source: projects/rootfiles/trunk/.emacs-faces.el @ 1127

Revision 1127, 2.2 KB checked in by daisuke, 14 years ago (diff)

import rootfiles-20090501 from internal cvs repository
Line 
1;; デフォルトのフォントセットなど
2(if (or (and window-system (>= emacs-major-version 19))
3        (>= emacs-major-version 21))
4    (progn
5
6      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7      ;; フォント/ウィンドウサイズの設定
8
9      (if window-system
10          (progn
11            (load "~/.emacs-fontset.el")
12            (setq default-frame-alist
13                  (append
14                   '((font . "fontset-14") ;; デフォルトフォントセット
15                     ;(width . 80) (height . 40) ;; ウィンドウサイズ
16                     )
17                   default-frame-alist))))
18
19      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
20      ;; font-lock-mode
21      ;; 色をつける
22      (global-font-lock-mode t)
23      ;; font-lockでの装飾レベル
24      (setq font-lock-maximum-decoration t)
25      (setq fast-lock nil)
26      (setq lazy-lock nil)
27      (setq jit-lock t)
28
29      ;; hilit19 の設定
30      ;; 背景色が明るい色
31      ;;(setq hilit-background-mode 'light)
32      ;; 背景色が暗い色
33      (setq hilit-background-mode 'dark)
34      ;; hilit19 の読み込み
35      (require 'hilit19)
36     
37      ;(set-background-color "grey80")         ;; 明るい背景色(Emacs20)
38      ;(set-face-background 'default "grey80") ;; 明るい背景色
39      ;(set-face-foreground 'default "black")  ;; 暗い文字色
40      (set-background-color "#333366")         ;; 標準の背景色(Emacs20)
41      (set-face-background 'default "#333366") ;; 標準の背景色
42      (set-face-foreground 'default "white")   ;; 標準の文字色
43      (if (and window-system (>= emacs-major-version 21))
44          (progn
45            (set-face-background 'menu "grey94")        ;; メニュー
46            (set-face-background 'tool-bar "grey94")    ;; ツールバー
47            (set-face-background 'mode-line "grey94")   ;; モードライン
48            (set-face-background 'scroll-bar "grey94")  ;; スクロールバー
49            (set-face-foreground 'tooltip "black")  ;; ツールチップ
50            (set-face-background 'tooltip "ghostwhite")  ;; ツールチップ
51            ))
52      (set-cursor-color "white")
53
54      (if (not window-system)
55          (progn
56            ;; 非X環境での色設定
57            (set-face-background 'default "000000")
58            (set-face-foreground 'default "ffffff")))
59      )
60)
Note: See TracBrowser for help on using the repository browser.