以前のfaceの設定

appearance.el

(when window-system
  (eval-safe
   ;; (add-to-list 'default-frame-alist '(alpha . (95 80)))
   (add-to-list 'default-frame-alist '(foreground-color . "ivory"))
   (add-to-list 'default-frame-alist '(background-color . "#2D0922"))
   (add-to-list 'default-frame-alist '(cursor-color . "purple2"))
   (set-face-background 'region "RoyalBlue4")
   (set-face-background 'cua-rectangle "DodgerBlue4")
   (set-face-foreground 'mode-line "white")
   (set-face-background 'mode-line "#2d2d30")
   (set-face-foreground 'mode-line-inactive "gray11")
   (set-face-background 'mode-line-inactive "gray30")
   (set-face-foreground 'mode-line-buffer-id "#da8107")
   (set-face-foreground 'font-lock-comment-face "#7a7a7a")
   (set-face-foreground 'font-lock-string-face "LightSalmon3")
   (set-face-background 'hl-line "#2a2040")
   (set-face-foreground 'warning "gold")
   (set-face-foreground 'error "red")
   (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")
   (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")
   (set-face-background 'lazy-highlight "RoyalBlue4")
   (set-face-foreground 'lazy-highlight "yellow")
   (set-face-background 'isearch "red4")
   (set-face-foreground 'isearch "ivory")
   (set-face-foreground 'show-paren-match "red")
   (set-face-background 'show-paren-match nil)
   (set-face-attribute 'show-paren-match t :weight 'bold)
   (set-face-foreground 'show-paren-mismatch "black")
   (set-face-background 'show-paren-mismatch "yellow")
   (set-face-background 'highlight "dark green")
   (set-face-attribute
    'font-lock-function-name-face nil
    :underline t)
   (set-face-attribute
    'tabbar-default nil
    :background (assoc-default 'background-color default-frame-alist))
   (set-face-attribute
    'tabbar-unselected nil
    :background (assoc-default 'background-color default-frame-alist)
    :foreground "gray75"
    :box nil)
   (set-face-attribute
    'tabbar-selected nil
    :background (assoc-default 'background-color default-frame-alist)
    :foreground "red"
    :box nil)
   (set-face-attribute
    'helm-source-header nil
    :weight 'normal :family nil :height 120)
   (set-face-foreground 'helm-header "yellow2")
   (set-face-background 'helm-ff-directory nil)
   (set-face-foreground 'helm-ff-directory "orange")
   (set-face-foreground 'yascroll:thumb-fringe "#404070")
   (set-face-background 'yascroll:thumb-fringe "#404070")
   (set-face-foreground 'yascroll:thumb-text-area "#404070")
   ))