[2293] | 1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 2 | ;; -*- coding: utf-8-unix -*- |
---|
| 3 | ;; FSF Emacs 22 用 Vine Linux フォント/カラー設定 |
---|
| 4 | ;; Munehiro Yamamoto <munepi@vinelinux.org> |
---|
| 5 | ;; $Id: vine-default-faces.el,v 1.11 2009/07/25 14:04:04 munepi Exp $ |
---|
| 6 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 7 | |
---|
| 8 | ;; (if (and window-system |
---|
| 9 | ;; (string-match "^23\." emacs-version)) |
---|
| 10 | ;; (progn |
---|
| 11 | ;; (setq desktop-gnome-interface-monospace-font-name |
---|
| 12 | ;; (replace-regexp-in-string "\n" "" |
---|
| 13 | ;; (shell-command-to-string |
---|
| 14 | ;; "bash -c \'gconftool-2 --get /desktop/gnome/interface/monospace_font_name 2> /dev/null\'"))) |
---|
| 15 | ;; (if (null desktop-gnome-interface-monospace-font-name) |
---|
| 16 | ;; (setq desktop-gnome-interface-monospace-font-name "Monospace 10"));; default |
---|
| 17 | |
---|
| 18 | ;; (set-frame-font desktop-gnome-interface-monospace-font-name) |
---|
| 19 | |
---|
| 20 | ;; (unless (assoc 'font default-frame-alist) |
---|
| 21 | ;; (add-to-list 'default-frame-alist |
---|
| 22 | ;; '(font . desktop-gnome-interface-monospace-font-name)) |
---|
| 23 | ;; (setcdr (assoc 'font default-frame-alist) |
---|
| 24 | ;; desktop-gnome-interface-monospace-font-name)) |
---|
| 25 | |
---|
| 26 | ;; ;; (set-fontset-font (frame-parameter nil 'font) |
---|
| 27 | ;; ;; 'japanese-jisx0208 |
---|
| 28 | ;; ;; '("VLゴシック regular" . "iso10646-1")) |
---|
| 29 | ;; ;; (set-fontset-font (frame-parameter nil 'font) |
---|
| 30 | ;; ;; 'katakana-jisx0201 |
---|
| 31 | ;; ;; '("VLゴシック regular" . "iso10646-1")) |
---|
| 32 | ;; ;; (set-fontset-font (frame-parameter nil 'font) |
---|
| 33 | ;; ;; 'japanese-jisx0213-1 |
---|
| 34 | ;; ;; '("VLゴシック regular" . "iso10646-1")) |
---|
| 35 | ;; ;; (set-fontset-font (frame-parameter nil 'font) |
---|
| 36 | ;; ;; 'japanese-jisx0213-2 |
---|
| 37 | ;; ;; '("VLゴシック regular" . "iso10646-1")) |
---|
| 38 | ;; ) |
---|
| 39 | ;; ) |
---|
| 40 | |
---|
| 41 | (if (string-match "^22\." emacs-version) |
---|
| 42 | (progn |
---|
| 43 | (utf-translate-cjk-mode t) |
---|
| 44 | (utf-translate-cjk-set-unicode-range |
---|
| 45 | '((#x00a2 . #x00a3) ; ¢, £ |
---|
| 46 | (#x00a7 . #x00a8) ; §, ¨ |
---|
| 47 | (#x00ac . #x00ac) ; ¬ |
---|
| 48 | (#x00b0 . #x00b1) ; °, ± |
---|
| 49 | (#x00b4 . #x00b4) ; ´ |
---|
| 50 | (#x00b6 . #x00b6) ; ¶ |
---|
| 51 | (#x00d7 . #x00d7) ; × |
---|
| 52 | (#X00f7 . #x00f7) ; ÷ |
---|
| 53 | (#x0370 . #x03ff) ; Greek and Coptic |
---|
| 54 | (#x0400 . #x04FF) ; Cyrillic |
---|
| 55 | (#x2000 . #x206F) ; General Punctuation |
---|
| 56 | (#x2100 . #x214F) ; Letterlike Symbols |
---|
| 57 | (#x2190 . #x21FF) ; Arrows |
---|
| 58 | (#x2200 . #x22FF) ; Mathematical Operators |
---|
| 59 | (#x2300 . #x23FF) ; Miscellaneous Technical |
---|
| 60 | (#x2500 . #x257F) ; Box Drawing |
---|
| 61 | (#x25A0 . #x25FF) ; Geometric Shapes |
---|
| 62 | (#x2600 . #x26FF) ; Miscellaneous Symbols |
---|
| 63 | (#x2e80 . #xd7a3) (#xff00 . #xffef))) |
---|
| 64 | ) |
---|
| 65 | ) |
---|
| 66 | |
---|
| 67 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
| 68 | |
---|
| 69 | (provide 'vine-default-faces) |
---|
| 70 | |
---|
| 71 | ;; Local Variables: |
---|
| 72 | ;; mode: emacs-lisp |
---|
| 73 | ;; End: |
---|