[1127] | 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 | ) |
---|