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: |
---|