BTCSB-theme.el

   1 (deftheme BTCSB "Baby, The Code Shines Bright.")
   2
   3 (let ((class '((class color) (min-colors 89)))
   4       (btcsb-fg "#f6f6f6")
   5       (btcsb-fg-1 "#9c69f6")
   6       (btcsb-fg-2 "#fff39e")
   7       (btcsb-fg-3 "#d99ed1")
   8       (btcsb-fg-4 "#4d605f")
   9       (btcsb-fg-5 "#bff294")
  10       (btcsb-fg-6 "#de99bf")
  11       (btcsb-fg-7 "#94579e")
  12       (btcsb-fg-8 "#61c8c3")
  13       (btcsb-fg-9 "#f465b6")
  14       (btcsb-fg-10 "#9ca8d4")
  15
  16       (btcsb-bg-1 "#a768ef")
  17       (btcsb-bg-2 "#533477")
  18       (btcsb-bg-3 "#d44741")
  19       (btcsb-bg-4 "#2a1852")
  20       (btcsb-bg-5 "#041c1a")
  21       )
  22
  23   (custom-theme-set-faces
  24    'BTCSB
  25    `(default ((t (:background "black"
  26                   :foreground ,btcsb-fg
  27                   :slant normal
  28                   :weight normal
  29                   :height 120
  30                   :width normal
  31                   :foundry "apple"
  32                   :family "Monaco"))))
  33    `(cursor ((t (:background "#FFFFFF"))))
  34    `(fixed-pitch ((t (:family "Monospace"))))
  35    `(variable-pitch ((t (:family "Sans Serif"))))
  36    `(escape-glyph ((t (:foreground ,btcsb-fg-2))))
  37    `(minibuffer-prompt ((t (:foreground ,btcsb-fg-1))))
  38    `(highlight ((t (:background ,btcsb-bg-1))))
  39    `(region ((t (:background ,btcsb-bg-2))))
  40    `(shadow ((t (:foreground "#777777"))))
  41    `(secondary-selection ((t (:background ,btcsb-bg-2))))
  42    `(trailing-whitespace ((t (:background ,btcsb-bg-3))))
  43    `(font-lock-builtin-face ((t (:foreground ,btcsb-fg-3))))
  44    `(font-lock-comment-delimiter-face ((t (:inherit (font-lock-comment-face)))))
  45    `(font-lock-comment-face ((t (:foreground ,btcsb-fg-4 :slant italic))))
  46    `(font-lock-constant-face ((t (:foreground ,btcsb-fg-5))))
  47    `(font-lock-doc-face ((t (:inherit font-lock-string-face))))
  48    `(font-lock-function-name-face ((t (:foreground ,btcsb-fg-6))))
  49    `(font-lock-keyword-face ((t (:foreground ,btcsb-fg-7))))
  50    `(font-lock-negation-char-face ((t nil)))
  51    `(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
  52    `(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
  53    `(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
  54    `(font-lock-string-face ((t (:foreground ,btcsb-fg-8))))
  55    `(font-lock-type-face ((t (:foreground ,btcsb-fg-3))))
  56    `(font-lock-variable-name-face ((t (:foreground ,btcsb-fg-9))))
  57    `(font-lock-warning-face ((t (:background ,btcsb-bg-4
  58                                  :foreground ,btcsb-fg-10
  59                                  :underline t))))
  60    `(button ((t (:inherit (link)))))
  61    `(link ((t (:foreground ,btcsb-fg-2 :underline t))))
  62    `(link-visited ((t (:inherit link :foreground ,btcsb-fg-6))))
  63    `(fringe ((t (:background ,btcsb-bg-5))))
  64    `(header-line ((t (:inherit mode-line
  65                       :background ,btcsb-bg-5
  66                       :foreground ,btcsb-fg
  67                       :box nil))))
  68    `(tooltip ((t (:inherit variable-pitch
  69                   :background ,btcsb-fg-2
  70                   :foreground "black"))))
  71    `(mode-line ((t (:background ,btcsb-fg-1
  72                     :foreground "black"
  73                     :box (:line-width -1 :style released-button)))))
  74    `(mode-line-buffer-id ((t (:weight bold))))
  75    `(mode-line-emphasis ((t (:weight bold))))
  76    `(mode-line-highlight ((t (:background ,btcsb-bg-2
  77                               :box (:line-width 2
  78                                     :color ,btcsb-bg-2
  79                                     :style released-button)))))
  80    `(mode-line-inactive ((t (:weight light
  81                              :box (:line-width -1 :color ,btcsb-bg-2)
  82                              :foreground ,btcsb-fg
  83                              :background ,btcsb-bg-2
  84                              :inherit mode-line))))
  85    `(isearch ((t (:background ,btcsb-bg-1))))
  86    `(isearch-fail ((t (:background ,btcsb-bg-3 :foreground ,btcsb-fg))))
  87    `(lazy-highlight ((t (:background ,btcsb-bg-2))))
  88    `(match ((t (:background ,btcsb-fg-1))))
  89    `(next-error ((t (:inherit (region)))))
  90    `(query-replace ((t (:inherit (isearch)))))
  91
  92    `(flyspell-duplicate ((t (:foreground ,btcsb-fg-9
  93                              :weight bold
  94                              :underline t))))
  95    `(flyspell-incorrect ((t (:foreground ,btcsb-fg-9
  96                              :weight bold
  97                              :underline t))))
  98    ))
  99
 100 (and load-file-name
 101      (boundp 'custom-theme-load-path)
 102      (add-to-list 'custom-theme-load-path
 103                   (file-name-as-directory
 104                    (file-name-directory load-file-name))))
 105
 106 (provide-theme 'BTCSB)