Show
Ignore:
Timestamp:
04/02/08 11:09:39 (6 years ago)
Author:
shyouhei
Message:

dotfiles/emacs/shyouhei/.emacs.d/elisp/unix-defaults.el: set font in default-frame-alist

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • dotfiles/emacs/shyouhei/.emacs.d/elisp/unix-defaults.el

    r4460 r8628  
    1515(if window-system 
    1616    (progn 
    17       (if t 
    18           (progn 
    19             (setq default-frame-alist 
    20                   (append 
    21                    (list '(foreground-color . "alice blue") 
    22                          '(background-color . "black") 
    23                          '(border-color . "white") 
    24                          '(cursor-color . "azure") 
    25                          '(mouse-color . "orange") 
    26                          '(vertical-scroll-bars . nil)) 
    27                    default-frame-alist)) 
    28             (set-face-foreground 'modeline "black") 
    29             (set-face-background 'modeline "gray80")) 
    30         (progn 
    31           (setq default-frame-alist 
    32                 (list '(foreground-color . "black") 
    33                       '(background-color . "snow") 
    34                       '(border-color . "black") 
    35                       '(cursor-color . "MidnightBlue") 
    36                       '(mouse-color . "orange") 
    37                       '(width . 80) 
    38                       '(height . 40) 
    39                       '(top . 0) 
    40                       '(left . 0) 
    41                       '(vertical-scroll-bars . nil)) 
    42                 default-frame-alist) 
    43           (set-face-foreground 'modeline "alice blue") 
    44           (set-face-background 'modeline "black"))) 
    45  
    4617      ;; M+ 
    4718      (create-fontset-from-fontset-spec 
     
    6536       japanese-jisx0208:-mplus-gothic-bold-r-normal--12-*-jisx0208.1990-0, 
    6637       katakana-jisx0201:-mplus-gothic-bold-r-normal--12-*-jisx0201.1976-0") 
    67       (set-default-font "fontset-mplus_12r"))) 
     38      (set-default-font "fontset-mplus_12r") 
     39      (if t 
     40          (progn 
     41            (setq default-frame-alist 
     42                  (append 
     43                   (list '(foreground-color . "alice blue") 
     44                         '(background-color . "black") 
     45                         '(border-color . "white") 
     46                         '(cursor-color . "azure") 
     47                         '(mouse-color . "orange") 
     48                         '(vertical-scroll-bars . nil) 
     49                         '(font . "fontset-mplus_12r")) 
     50                   default-frame-alist)) 
     51            (set-face-foreground 'modeline "black") 
     52            (set-face-background 'modeline "gray80")) 
     53        (progn 
     54          (setq default-frame-alist 
     55                (list '(foreground-color . "black") 
     56                      '(background-color . "snow") 
     57                      '(border-color . "black") 
     58                      '(cursor-color . "MidnightBlue") 
     59                      '(mouse-color . "orange") 
     60                      '(width . 80) 
     61                      '(height . 40) 
     62                      '(top . 0) 
     63                      '(left . 0) 
     64                      '(vertical-scroll-bars . nil)) 
     65                default-frame-alist) 
     66          (set-face-foreground 'modeline "alice blue") 
     67          (set-face-background 'modeline "black"))))) 
    6868 
    6969