mode-line の色とか

どうもどうも。
試験が間近に迫っているので,部屋の片付けとか掃除とか,
そのほかのことがはかどって仕方がありません。


さて,以前,フォントについては書いたけど,色を変えて見やすくしたかったので。
M-x apropos (ワタシは C-c a に割り当てている )で,^mode-line すると,
出てきました。

mode-line, mode-line-buffer-id が対象。
で,カーソルを上記の上にもってて,C-m (Enter) するとできます。
後から知ったのですが,ここからでもフォントを設定できるのですね。

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(YaTeX-font-lock-declaration-face ((t (:bold t :weight bold :foreground "peru"))))
 '(YaTeX-font-lock-label-face ((t (:bold t :weight bold :foreground "gold"))))
 '(ac-dabbrev-menu-face ((t (:background "slate gray" :foreground "white"))))
 '(ac-dabbrev-selection-face ((t (:background "firebrick4" :foreground "white"))))
 '(ac-gtags-candidate-face ((t (:background "slate gray" :foreground "white"))))
 '(ac-gtags-selection-face ((t (:background "sienna4" :foreground "white"))))
 '(ac-menu-face ((t (:background "slate gray" :foreground "white"))))
 '(ac-selection-face ((t (:background "blue" :foreground "white"))))
 '(diff-hunk-header-face ((t (:background "olive drab"))))
 '(elscreen-tab-current-screen-face ((t (:background "steel blue"))))
 '(font-lock-comment-delimiter-face ((t (:foreground "yellow"))))
 '(font-lock-comment-face ((t (:foreground "yellow"))))
 '(font-lock-doc-face ((t (:foreground "yellow"))))
 '(font-lock-string-face ((t (:foreground "aquamarine"))))
 '(iswitchb-current-match ((t (:bold t :foreground "gold" :weight bold))))
 '(iswitchb-single-match ((t (:bold t :weight bold :foreground "gold"))))
 '(jde-java-font-lock-number-face ((t (:foreground "white"))))
 '(mcomplete-history-method-alternative-part-face ((t (:foreground "gold"))))
 '(mcomplete-history-method-fixed-part-face ((t (:foreground "gold" :bold t :weight bold))))
 '(mcomplete-prefix-method-alternative-part-face ((t (:foreground "gold"))))
 '(mcomplete-prefix-method-fixed-part-face ((t (:bold t :weight bold :foreground "gold"))))
 '(mcomplete-substr-method--part-face ((t (:bold t :weight bold :foreground "gold"))))
 '(mcomplete-substr-method-alternative-part-face ((t (:foreground "gold"))))
 '(minibuffer-prompt ((t (:foreground "yellow"))))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; ここ以降が,今回のカスタマイズで追加されたよ。
 '(mode-line ((t (:background "HotPink" :foreground "black" :box (:line-width -1 :style released-button) :slant normal :weight normal :height 128 :width normal :family "*"))))
 '(mode-line-buffer-id ((t (:background "pink" :foreground "black" :slant normal :weight normal :height 136 :width normal :family "*")))))

とりあえず,ホットなピンクにしてみました。
これで,複数のウィンドウに分割しているときに,どのウィンドウがアクティブか,
一目でわかるね。えかったえかった。
ちなみに色見本は,M-x list-colors-display すればどの色が使用可能かわかるよ。


たぶん,family のところが,Font Family に対応していると思われるので,
そこでフォントを指定すれば,いけると思う。
試してみる。
どうやら,「MeiryoKeConConsolas」はオッケーだけど,
「MeiryoKeConConsolas-15」とかはだめみたい。
以前の設定した方法とは指定方法が違うみたい。


参考までに,フォントの設定はこんな風に指定している。

(set-face-font 'mode-line "MeiryoKeConConsolas-14")
(set-face-font 'mode-line-inactive "MeiryoKeConConsolas-14")
(set-face-font 'mode-line-buffer-id "MeiryoKeConConsolas-15")

お疲れちゃん。