Changeset 2811

Show
Ignore:
Timestamp:
12/07/07 23:53:42 (5 years ago)
Author:
mrkn
Message:

dotfiles/emacs/mrkn/.emacs, dotfiles/emacs/mrkn/.emacs.d/fonts.el: fontset definition for Emacs 23.x with Xft.

Location:
dotfiles/emacs/mrkn
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • dotfiles/emacs/mrkn/.emacs

    r2801 r2811  
    2828 
    2929;;; SKK 
    30 ;;(set-input-method "japanese-skk") 
    31 ;;(toggle-input-method nil) 
     30(if (string-match "^GNU Emacs 23" (emacs-version)) 
     31    (progn 
     32      (set-input-method "japanese-skk") 
     33      (toggle-input-method nil))) 
    3234 
    3335;;; UIM 
    … …  
    3840;;;   Emacs*xnlLanguage: C 
    3941;;;   Emacs*useXIM: false 
    40 (if (not (featurep 'meadow)) 
     42(if (and (not (featurep 'meadow)) 
     43         (not (string-match "^GNU Emacs 23" (emacs-version)))) 
    4144    (progn 
    4245      (require 'uim-leim) 
    … …  
    4851(load "~/.emacs.d/fonts.el") 
    4952(when window-system 
    50   (if (featurep 'meadow) 
     53  (if (or (featurep 'meadow) 
     54          (string-match "^GNU Emacs 23" (emacs-version))) 
    5155      (setq default-frame-alist 
    52             (append '((font . "MeiryoKe_Console 12") 
    53                       (width . 96)) 
     56            (append (list (if (featurep 'meadow) 
     57                              '(font . "MeiryoKe_Console 12") 
     58                            '(font . "fontset-m+2vm+ipag circle_12")) 
     59                          '(width . 96)) 
    5460                    default-frame-alist)))) 
    5561 
    … …  
    209215(when window-system 
    210216  (require 'gnuserv-compat) 
    211   (gnuserv-start) 
    212   ) 
     217  (gnuserv-start)) 
    213218 
    214219;;; Local Variables: 

  • dotfiles/emacs/mrkn/.emacs.d/fonts.el

    r2488 r2811  
    55 ((string-match "^GNU Emacs 23" (emacs-version)) 
    66  (progn 
    7 ;;      (set-default-font "M+1VM+IPAG circle-14") 
    8 ;;      (set-default-font "VL Gothic-12") 
    9 ;;      (set-fontset-font (frame-parameter nil 'font) 
    10 ;;                      'han '("cwTeXHeiBold" . "unicode-bmp")) 
    11 ;;      (add-to-list 'default-frame-alist 
    12 ;;                 '(font . "M+1VM+IPAG circle-14")) 
    13 ;      (add-to-list 'default-frame-alist 
    14 ;;                 '(font . "VL Gothic-12")) 
    157    (when window-system 
    16       (create-fontset-from-ascii-font "-*-*-*-*-*-*-12-*-*-*-*-*-iso10646-1" 
    17                                       nil "MeiryoKe12") 
    18       (set-fontset-font "fontset-meiryoke12" 'ascii 
    19                         "MeiryoKe_Console-12") 
    20       (set-fontset-font "fontset-meiryoke12" 'japanese-jisx0213-1 
    21                         "MeiryoKe_Console-12") 
    22       (set-fontset-font "fontset-meiryoke12" 'japanese-jisx0213-2 
    23                         "MeiryoKe_Console-12") 
    24       (set-fontset-font "fontset-meiryoke12" 'japanese-jisx0208 
    25                         "MeiryoKe_Console") 
    26       (set-fontset-font "fontset-meiryoke12" 'katakana-jisx0201 
    27                         "MeiryoKe_Console-12") 
    28       (set-fontset-font "fontset-meiryoke12" 'jisx0201 
    29                         "MeiryoKe_Console-12") 
    30       (set-fontset-font "fontset-meiryoke12" 'japanese-jisx0208-1978 
    31                         "MeiryoKe_Console-12") 
    32       (set-fontset-font "fontset-meiryoke12" 'japanese-jisx0213.2004-1 
    33                         "MeiryoKe_Console-12") 
    34       (set-fontset-font "fontset-meiryoke12" 'japanese-jisx0213-a 
    35                         "MeiryoKe_Console-12") 
    36       (set-fontset-font "fontset-meiryoke12" 'katakana-sjis 
    37                         "MeiryoKe_Console-12") 
    38       (set-fontset-font "fontset-meiryoke12" 'ucs 
    39                         "MeiryoKe_Console-12") 
    40       (set-fontset-font "fontset-meiryoke12" 'unicode 
    41                         "MeiryoKe_Console-12") 
    42       (set-fontset-font "fontset-meiryoke12" 'latin-jisx0201 
    43                         "MeiryoKe_Console-12") 
    44       ) 
    45     )) 
     8      (let ((define-font 
     9              (function 
     10               (lambda (font-name font-size) ; "MeiryoKe_Console" 12 
     11                 (let (fsn-a fsn-b xlfd charsets) 
     12                   ;; MeiryoKe_Console_12 
     13                   (setq fsn-a (format "%s_%d" font-name font-size)) 
     14                   ;; fontset-meiryoke_console_12 
     15                   (setq fsn-b (format "fontset-%s" (downcase fsn-a))) 
     16                   ;; -*-*-*-*-*-*-12-*-*-*-*-*-iso10646-1 
     17                   (setq xlfd 
     18                         (format "-*-*-*-*-*-*-%d-*-*-*-*-*-iso10646-1" 
     19                                 font-size)) 
     20                   ;; MeiryoKe_Console-12 
     21                   (setq font-name (format "%s-%d" font-name font-size)) 
     22                   (create-fontset-from-ascii-font xlfd nil fsn-a) 
     23                   (setq charsets '(ascii  japanese-jisx0213-1 
     24                                    japanese-jisx0213-2  japanese-jisx0208 
     25                                    katakana-jisx0201  jisx0201 
     26                                    japanese-jisx0208-1978  japanese-jisx0213-a 
     27                                    japanese-jisx0213.2004-1  katakana-sjis 
     28                                    ucs  unicode  latin-jisx0201)) 
     29                   (while charsets 
     30                     (set-fontset-font fsn-b (car charsets) font-name) 
     31                     (setq charsets (cdr charsets))) 
     32                   ))))) 
     33        (funcall define-font "MeiryoKe_Console" 10) 
     34        (funcall define-font "MeiryoKe_Console" 12) 
     35        (funcall define-font "MeiryoKe_Console" 14) 
     36        (funcall define-font "MeiryoKe_Console" 16) 
     37        (funcall define-font "MeiryoKe_Console" 18) 
     38        (funcall define-font "MeiryoKe_Console" 20) 
     39        (funcall define-font "MeiryoKe_Console" 22) 
     40 
     41        (funcall define-font "M+1VM+IPAG circle" 10) 
     42        (funcall define-font "M+1VM+IPAG circle" 12) 
     43        (funcall define-font "M+1VM+IPAG circle" 14) 
     44        (funcall define-font "M+1VM+IPAG circle" 16) 
     45        (funcall define-font "M+1VM+IPAG circle" 18) 
     46        (funcall define-font "M+1VM+IPAG circle" 20) 
     47        (funcall define-font "M+1VM+IPAG circle" 22) 
     48 
     49        (funcall define-font "M+2VM+IPAG circle" 10) 
     50        (funcall define-font "M+2VM+IPAG circle" 12) 
     51        (funcall define-font "M+2VM+IPAG circle" 14) 
     52        (funcall define-font "M+2VM+IPAG circle" 16) 
     53        (funcall define-font "M+2VM+IPAG circle" 18) 
     54        (funcall define-font "M+2VM+IPAG circle" 20) 
     55        (funcall define-font "M+2VM+IPAG circle" 22) 
     56        )))) 
    4657 
    4758 ;; for Meadow