;;; Emacs customization file -*- emacs-lisp -*-
;;; Time-stamp: <2000-04-17 13:27:54 naoto>
;;; by NaO <ohtaki@wig.nu> for Meadow (Emacs20.5.1)

; 基本的にelispをさっぱり分かってない奴が書いているので、
; ウソ大げさ紛らわしい表現が存在しているはずです。
; 眼に余ると思ったときは上記までemailで教えてください。
; このファイルを(load "~/.fontlock")などとやって.emacsから読み込んでます。

;;; @ font-lock
(if window-system
    (progn
      (modify-frame-parameters (selected-frame) '((background-mode . dark)))
      (global-font-lock-mode t)
      (setq font-lock-support-mode 'fast-lock-mode)
      (setq fast-lock-cache-directories '("/usr/local/Meadow/lock"))
      (set-face-foreground font-lock-builtin-face       "LightSkyBlue")
      (set-face-foreground font-lock-comment-face       "moccasin")
      (set-face-foreground font-lock-constant-face      "Plum1")
      (set-face-foreground font-lock-function-name-face "LawnGreen")
      (set-face-foreground font-lock-keyword-face       "cyan")
      (set-face-foreground font-lock-string-face        "orange")
      (set-face-foreground font-lock-type-face          "yellow")
      (set-face-foreground font-lock-variable-name-face "OrangeRed")
      (set-face-foreground font-lock-warning-face       "pink")))

(define-key global-map [f6] 'font-lock-fontify-buffer)
;; C-l (recenter) に、色を付け直す機能を付け加える
(defun my-recenter-and-fontify-buffer ()
  (interactive)(recenter)(font-lock-fontify-buffer))
(add-hook 'font-lock-mode-hook
	  '(lambda ()
	     (local-set-key "\C-l" 'my-recenter-and-fontify-buffer)))

;;; @ dired-mode
(defvar font-lock-keywords-for-dired
      '(("^  \\(\\([a-z]:\\)?/.+\\)$" 1 font-lock-builtin-face) ; ヘッダ
	("\\([^ ]+\\) -> [^ ]+$"      1 font-lock-function-name-face) ;smlnk
	("^\\([^ ]\\).* \\([^ ]+\\)$" (1 font-lock-warning-face)
	                              (2 font-lock-warning-face)) ;mark
	("^..d.*[0-9] \\(.+\\)$"      1 font-lock-keyword-face) ;dir
	(" \\(.+~\\|.+#\\)$"          1 font-lock-comment-face) ;deleted
	("^ .*\\.\\(tar\\|gz\\|tgz\\|lzh\\|LZH\\|zip\\|ZIP\\|Z\\|rar\\|cab\\|CAB\\|bz2\\|taz\\|arj\\)$"
	 1 font-lock-builtin-face) ;LightSkyBlue
	("^ .*\\.\\(c\\|h\\|cpp\\|el\\|bas\\|pl\\|awk\\|sh\\|cgi\\|sed\\)$"
	 1 font-lock-function-name-face) ;LawnGreen
	("^ .*\\.\\(jpg\\|JPG\\|gif\\|GIF\\|png\\|MAG\\|PIC\\|PI\\|bmp\\|BMP\\|tif\\|ico\\|ICO\\|pi2\\|xbm\\|xpm\\)$"
	 1 font-lock-type-face) ;yellow
	("^ .*\\.\\(wav\\|WAV\\|mp3\\|MP3\\|mp2\\|au\\|mid\\|MID\\|m3u\\)$"
	 1 font-lock-string-face) ;orange
	("^ .*\\.\\(html\\|HTML\\|HTM\\|htm\\|asp\\|css\\|txt\\|TXT\\|tex\\)"
	 1 font-lock-keyword-face) ;cyan
	("^ .*\\.\\(exe\\|EXE\\|com\\|COM\\|bat\\|BAT\\|scr\\|SCR\\)"
	 1 font-lock-variable-name-face) ;OrangeRed
	("^ .*\\.\\(psd\\|PSD\\|p65\\|P65\\|qxd\\|ai\\|AI\\|EPS\\|eps\\)"
	 1 font-lock-comment-face) ;mocassin
	("^ .*\\.\\(sys\\|SYS\\|DLL\\|dll\\|ini\\|INI\\|vxd\\|VXD\\|inf\\|INF\\|reg\\|REG\\)"
	 1 font-lock-constant-face)) ;Plum1
      "Additional expressions to highlight in Dired mode.")

(add-hook 'dired-mode-hook
	  '(lambda ()
	      (make-local-variable 'font-lock-defaults)
	      (setq font-lock-defaults '(font-lock-keywords-for-dired t))
	      (turn-on-font-lock)))

;;; info-mode color
(add-hook 'Info-mode-hook
	  '(lambda ()
	     (copy-face 'default 'info-node)
	     (copy-face 'bold 'info-menu-5)
	     (copy-face 'default 'info-xref)
	     (set-face-foreground 'info-node "green")
	     (set-face-foreground 'info-menu-5 "pink")
	     (set-face-foreground 'info-xref "cyan")))