my emacs color scheme

scoda.el

(defun color-theme-scoda ()
  "Color theme by iKlsR, created 2013-04-16."
  (interactive)
  (color-theme-install
   '(color-theme-scoda
    ;;;;;;;;
     ((background-color . "#1e1e1e")
      (background-mode . dark)
      (border-color . "black")
      (cursor-color . "#000000")
      (foreground-color . "#ffffff")
      (mouse-color . "#000000"))
     ;;;;;
     ((Man-overstrike-face . bold)
      (Man-underline-face . underline)
      (apropos-keybinding-face . underline)
      (apropos-label-face . italic)
      (apropos-match-face . secondary-selection)
      (apropos-property-face . bold-italic)
      (apropos-symbol-face . bold)
      (cperl-here-face . font-lock-string-face)
      (cperl-invalid-face quote underline)
      (cperl-pod-face . font-lock-comment-face)
      (cperl-pod-head-face . font-lock-variable-name-face)
      (help-highlight-face . underline)
      (ispell-highlight-face . highlight)
      (list-matching-lines-face . bold)
      (rpm-spec-dir-face . rpm-spec-dir-face)
      (rpm-spec-doc-face . rpm-spec-doc-face)
      (rpm-spec-ghost-face . rpm-spec-ghost-face)
      (rpm-spec-macro-face . rpm-spec-macro-face)
      (rpm-spec-package-face . rpm-spec-package-face)
      (rpm-spec-tag-face . rpm-spec-tag-face)
      (tags-tag-face . default)
      (view-highlight-face . highlight)
      (widget-mouse-face . highlight))
     ;;;;;;
     (default ((t (:background "#1e1e1e" :foreground "#000000"))))
     ;;;;;;;
     (Info-title-1-face ((t (nil))))
     (Info-title-2-face ((t (nil))))
     (Info-title-3-face ((t (nil))))
     (Info-title-4-face ((t (:bold (bold extra-bold ultra-bold)))))
     (bold ((t (:bold (bold extra-bold ultra-bold)))))
     (bold-italic ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold)))))
     (border ((t (:background "black"))))
     ;;;;;;;
     (comint-highlight-input ((t (:bold (bold extra-bold ultra-bold)))))
     (comint-highlight-prompt ((t (:foreground "#12ea43"))))
     ;;;;;;
     (cperl-array-face ((t (:foreground "brown"))))
     (cperl-hash-face ((t (:foreground "red"))))
     (cperl-nonoverridable-face ((t (:foreground "#008b8b"))))
     (cursor ((t (:background "#000000"))))
     (fixed-pitch ((t (nil))))
     ;;;;
     ;;;
     ; (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
     ; (font-lock-comment-face ((t (:foreground "IndianRed"))))
     ; (font-lock-constant-face ((t (:foreground "Aquamarine"))))
     ; (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
     ; (font-lock-function-name-face ((t (:foreground "YellowGreen"))))
     ; (font-lock-keyword-face ((t (:foreground "PaleYellow"))))
     ; (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
     ; (font-lock-reference-face ((t (:foreground "SlateBlue"))))
     ; (font-lock-string-face ((t (:foreground "Orange"))))
     ; (font-lock-type-face ((t (:foreground "Green"))))
     ; (font-lock-variable-name-face ((t (:foreground "darkseagreen"))))
     ; (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
     ;;;;;;
     (font-lock-builtin-face ((t (:foreground "#AB43AB"))))
     (font-lock-comment-face ((t (:foreground "#748396"))))
     (font-lock-constant-face ((t (:foreground "#FAFAFA"))))
     (font-lock-doc-face ((t (:background "#F2F2F2"))))
     (font-lock-function-name-face ((t (:foreground "#71AD82"))))
     (font-lock-keyword-face ((t (:bold (bold extra-bold ultra-bold) :foreground "#D4D39E"))))
     (font-lock-preprocessor-face ((t (:foreground "#AA56AF"))))
     (font-lock-string-face ((t (:foreground "#D4888A"))))
     (font-lock-type-face ((t (:foreground "#FAFAFA"))))
     (font-lock-variable-name-face ((t (:foreground "#A2B5D4"))))
     (font-lock-warning-face ((t (:bold (bold extra-bold ultra-bold) :foreground "Red"))))
     ;;;;;;
     (fringe ((t (:background "#E5E5E5"))))
     ; edit (fringe ((t (:background "#7AB47B"))))
     ;;;;;;
     (header-line ((t (:background "grey90" :foreground "grey20"))))
     (highlight ((t (:background "darkseagreen2"))))
     (info-header-node ((t (nil))))
     (info-header-xref ((t (nil))))
     (info-menu-5 ((t (:foreground "red1"))))
     (info-menu-header ((t (:bold (bold extra-bold ultra-bold)))))
     (info-node ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold) :foreground "brown"))))
     (info-xref ((t (:bold (bold extra-bold ultra-bold) :foreground "magenta4"))))
     (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
     (italic ((t (:italic (italic oblique)))))
     (menu ((t (nil))))
     ;;;;;;
     ;original (mode-line ((t (:background "grey75" :foreground "black"))))
     (mode-line ((t (:background "grey10" :foreground "#fafafa"))))
     (modeline-buffer-id ((t (:foreground "#FEC84A"))))
     ;;;;;
     (mouse ((t (:background "#000000"))))
     (region ((t (:background "lightgoldenrod2"))))
     (rpm-spec-dir-face ((t (:foreground "green"))))
     (rpm-spec-doc-face ((t (:foreground "magenta"))))
     (rpm-spec-ghost-face ((t (:foreground "red"))))
     (rpm-spec-macro-face ((t (:foreground "purple"))))
     (rpm-spec-package-face ((t (:foreground "red"))))
     (rpm-spec-tag-face ((t (:foreground "blue"))))
     (scroll-bar ((t (:background "grey75" :foreground "#000000"))))
     (secondary-selection ((t (:background "yellow"))))
     (sh-heredoc-face ((t (:foreground "tan"))))
     (show-paren-match-face ((t (:background "turquoise"))))
     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
     (tool-bar ((t (:background "grey75" :foreground "black"))))
     (tooltip ((t (:background "lightyellow" :foreground "black"))))
     (trailing-whitespace ((t (:background "red"))))
     (underline ((t (:underline t))))
     (variable-pitch ((t (nil))))
     (widget-button-face ((t (:bold (bold extra-bold ultra-bold)))))
     (widget-button-pressed-face ((t (:foreground "red"))))
     (widget-documentation-face ((t (:foreground "dark green"))))
     (widget-field-face ((t (:background "gray85"))))
     (widget-inactive-face ((t (:foreground "dim gray"))))
     (widget-single-line-field-face ((t (:background "gray85")))))))