code.delx.au - dotemacs/blob - pastels-on-dark-theme.el

   1 ;;; pastels-on-dark-theme.el --- Pastels on Dark theme for Emacs 24
   2
   3 ;; Modified by: James Bunton
   4 ;; Author: Mats Persson
   5 ;; URL: http://gist.github.com/1906662
   6 ;; Version: 0.3
   7 ;; Keywords: theme, color
   8
   9 ;;; Commentary:
  10
  11 ;; Pastels on Dark was created by Mats Persson and popularized in
  12 ;; TextMate.app.  Ported to Emacs 24 by Shane Celis because I love it!
  13
  14 ;; To install the theme, M-x `load-theme' then enter
  15 ;; `pastels-on-dark'.  If you run into any issues, check the
  16 ;; `custom-theme-load-path' variable.
  17
  18
  19 ;;; Code:
  20
  21 (deftheme pastels-on-dark
  22   "Pastels on Dark created by Mats Persson and popularized in TextMate.app.  Ported to Emacs 24 by Shane Celis because I love it!")
  23
  24 (custom-theme-set-faces
  25  'pastels-on-dark
  26  '(cursor ((t (:background "#FFFFFF"))))
  27  '(escape-glyph ((t (:foreground "#47B8D6"))))
  28  '(minibuffer-prompt ((t (:foreground "#47B8D6"))))
  29  '(highlight ((t (:background "#262626"))))
  30  '(region ((t (:background "#822A31"))))
  31  '(shadow ((t (:foreground "#555555"))))
  32  '(secondary-selection ((t (:background "#463849"))))
  33  '(trailing-whitespace ((t (:background "#FFD0D0"))))
  34  '(font-lock-builtin-face ((t (:foreground "#7171F3" :weight bold))))
  35  '(font-lock-comment-delimiter-face ((t (:foreground "#ed5b15" :inherit font-lock-comment-face))))
  36  '(font-lock-comment-face ((t (:foreground "#ed5b15"))))
  37  '(font-lock-constant-face ((t (:foreground "#DF7921" :weight bold))))
  38  '(font-lock-function-name-face ((t (:foreground "#A1A1FF"))))
  39  '(font-lock-keyword-face ((t (:foreground "#4856F7" :weight bold))))
  40  '(font-lock-preprocessor-face ((t (:foreground "#4856F7"))))
  41  '(font-lock-regexp-grouping-backslash ((t (:inherit bold :foreground "#666666"))))
  42  '(font-lock-regexp-grouping-construct ((t (:inherit bold :foreground "#666666"))))
  43  '(font-lock-string-face ((t (:foreground "#A2925E"))))
  44  '(font-lock-type-face ((t (:foreground "#DADADA"))))
  45  '(font-lock-variable-name-face ((t (:foreground "#C1C144"))))
  46  '(font-lock-warning-face ((t (:foreground "#EC9E00"))))
  47  '(link ((t (:foreground "#0066FF" :underline t))))
  48  '(link-visited ((t (:inherit link :foreground "#FF0066"))))
  49  '(fringe ((t nil)))
  50  '(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button)))))
  51  '(isearch ((t (:background "#463849" :foreground "#ffffff" :weight bold))))
  52  '(compilation-error ((t (:inherit error))))
  53  '(error ((t (:foreground "#B20006" :weight bold))))
  54  '(warning ((t (:foreground "#FF8000" :weight bold))))
  55  '(success ((t (:foreground "#00DD00" :weight bold))))
  56  '(compilation-line-number ((t (:foreground "#EC9E00"))))
  57  '(glyphless-char ((t (:background "#4F4D4D"))))
  58  '(lazy-highlight ((t (:background "#302733"))))
  59  '(default (
  60             (((type tty)) (:stipple nil :background nil :foreground nil :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal))
  61             (((type graphic)) (:stipple nil :background "#000000" :foreground "#DADADA" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal))
  62             )))
  63
  64
  65 ;;;###autoload
  66 (when load-file-name
  67   (add-to-list 'custom-theme-load-path
  68                (file-name-as-directory (file-name-directory load-file-name))))
  69
  70 (provide-theme 'pastels-on-dark)
  71
  72 ;; Local Variables:
  73 ;; no-byte-compile: t
  74 ;; End:
  75
  76 ;;; pastels-on-dark-theme.el ends here