(define -ayalog '())

括弧に魅せられて道を外した名前のないプログラマ

お洒落なEmacsを目指して。

せっかく素敵なエディタ使ってるのに、フォントの色とか変えないと勿体無い!!
ということで変えました。

;;カーソル行ハイライト
(defface hlline-face
  '((((class color)
      (background dark))
     (:background "dark slate gray"))
    (((class color)
      (background light))
     (:background "OliveDrab1"))
    (t
     ()))
  "*Face used by hl-line.")
(setq hl-line-face 'hlline-face)
;; (setq hl-line-face 'underline) ; 下線
(global-hl-line-mode)

;;alpha
(add-to-list 'default-frame-alist '(alpha . 50))

;;Window
(if window-system
    (progn
      ;; 文字の色を設定します。
      (add-to-list 'default-frame-alist '(foreground-color . "VioletRed1"))
      ;; 背景色を設定します。
      (add-to-list 'default-frame-alist '(background-color . "black"))
      ;; カーソルの色を設定します。
      (add-to-list 'default-frame-alist '(cursor-color . "snow"))
      ;; マウスポインタの色を設定します。
;      (add-to-list 'default-frame-alist '(mouse-color . "SlateBlue2"))
      ;; モードラインの文字の色を設定します。
;      (set-face-foreground 'modeline "white")
      ;; モードラインの背景色を設定します。
;      (set-face-background 'modeline "MediumPurple2")
      ;; 選択中のリージョンの色を設定します。
;      (set-face-background 'region "LightSteelBlue1")
      ;; モードライン(アクティブでないバッファ)の文字色を設定します。
;      (set-face-foreground 'mode-line-inactive "gray30")
      ;; モードライン(アクティブでないバッファ)の背景色を設定します。
;      (set-face-background 'mode-line-inactive "gray85")
      ))

カーソル行のハイライト

で、お好みのカラーを下のコマンドで探して。。。

M-x list-colors-display

いい感じでお洒落なEmacsになりますよっと。


ただ、Windowsだとalphaが効かないみたい?
NTEmacsなら透明にできるみたいだけど、GNU Emacsは無理そう?

もう少し、イジイジしなくては!!!