source: projects/specs/trunk/e/emacs/vine-default-faces.el @ 1273

Revision 1273, 3.4 KB checked in by munepi, 14 years ago (diff)

updated emacs and merged some patches and files
Line 
1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2;;  -*- coding: utf-8-unix -*-
3;;  FSF Emacs 23 用 Vine Linux フォント/カラー設定
4;;    Munehiro Yamamoto <munepi@cg8.so-net.ne.jp>
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;; (if window-system
69;;     (progn
70;;       (set-face-background 'default "#333366")
71;;       (set-face-foreground 'default "white")
72;;       (set-face-background 'mode-line "grey94")
73;;       (set-cursor-color "white")
74;;       )
75;;   (progn
76;;     (set-face-background 'default "000000")
77;;     (set-face-foreground 'default "ffffff")
78;;     )
79;;   )
80
81;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
82
83(provide 'vine-default-faces)
84
85;; Local Variables:
86;; mode: emacs-lisp
87;; End:
Note: See TracBrowser for help on using the repository browser.