(deftheme BTCSB "Baby, The Code Shines Bright.")

(let ((class '((class color) (min-colors 89)))
      (btcsb-fg "#f6f6f6")
      (btcsb-fg-1 "#9c69f6")
      (btcsb-fg-2 "#fff39e")
      (btcsb-fg-3 "#d99ed1")
      (btcsb-fg-4 "#4d605f")
      (btcsb-fg-5 "#bff294")
      (btcsb-fg-6 "#de99bf")
      (btcsb-fg-7 "#94579e")
      (btcsb-fg-8 "#61c8c3")
      (btcsb-fg-9 "#f465b6")
      (btcsb-fg-10 "#9ca8d4")

      (btcsb-bg-1 "#a768ef")
      (btcsb-bg-2 "#533477")
      (btcsb-bg-3 "#d44741")
      (btcsb-bg-4 "#2a1852")
      (btcsb-bg-5 "#041c1a")
      )

  (custom-theme-set-faces
   'BTCSB
   `(default ((t (:background "black"
                  :foreground ,btcsb-fg
                  :slant normal
                  :weight normal
                  :height 120
                  :width normal
                  :foundry "apple"
                  :family "Monaco"))))
   `(cursor ((t (:background "#FFFFFF"))))
   `(fixed-pitch ((t (:family "Monospace"))))
   `(variable-pitch ((t (:family "Sans Serif"))))
   `(escape-glyph ((t (:foreground ,btcsb-fg-2))))
   `(minibuffer-prompt ((t (:foreground ,btcsb-fg-1))))
   `(highlight ((t (:background ,btcsb-bg-1))))
   `(region ((t (:background ,btcsb-bg-2))))
   `(shadow ((t (:foreground "#777777"))))
   `(secondary-selection ((t (:background ,btcsb-bg-2))))
   `(trailing-whitespace ((t (:background ,btcsb-bg-3))))
   `(font-lock-builtin-face ((t (:foreground ,btcsb-fg-3))))
   `(font-lock-comment-delimiter-face ((t (:inherit (font-lock-comment-face)))))
   `(font-lock-comment-face ((t (:foreground ,btcsb-fg-4 :slant italic))))
   `(font-lock-constant-face ((t (:foreground ,btcsb-fg-5))))
   `(font-lock-doc-face ((t (:inherit font-lock-string-face))))
   `(font-lock-function-name-face ((t (:foreground ,btcsb-fg-6))))
   `(font-lock-keyword-face ((t (:foreground ,btcsb-fg-7))))
   `(font-lock-negation-char-face ((t nil)))
   `(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
   `(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
   `(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
   `(font-lock-string-face ((t (:foreground ,btcsb-fg-8))))
   `(font-lock-type-face ((t (:foreground ,btcsb-fg-3))))
   `(font-lock-variable-name-face ((t (:foreground ,btcsb-fg-9))))
   `(font-lock-warning-face ((t (:background ,btcsb-bg-4
                                 :foreground ,btcsb-fg-10
                                 :underline t))))
   `(button ((t (:inherit (link)))))
   `(link ((t (:foreground ,btcsb-fg-2 :underline t))))
   `(link-visited ((t (:inherit link :foreground ,btcsb-fg-6))))
   `(fringe ((t (:background ,btcsb-bg-5))))
   `(header-line ((t (:inherit mode-line
                      :background ,btcsb-bg-5
                      :foreground ,btcsb-fg
                      :box nil))))
   `(tooltip ((t (:inherit variable-pitch
                  :background ,btcsb-fg-2
                  :foreground "black"))))
   `(mode-line ((t (:background ,btcsb-fg-1
                    :foreground "black"
                    :box (:line-width -1 :style released-button)))))
   `(mode-line-buffer-id ((t (:weight bold))))
   `(mode-line-emphasis ((t (:weight bold))))
   `(mode-line-highlight ((t (:background ,btcsb-bg-2
                              :box (:line-width 2
                                    :color ,btcsb-bg-2
                                    :style released-button)))))
   `(mode-line-inactive ((t (:weight light
                             :box (:line-width -1 :color ,btcsb-bg-2)
                             :foreground ,btcsb-fg
                             :background ,btcsb-bg-2
                             :inherit mode-line))))
   `(isearch ((t (:background ,btcsb-bg-1))))
   `(isearch-fail ((t (:background ,btcsb-bg-3 :foreground ,btcsb-fg))))
   `(lazy-highlight ((t (:background ,btcsb-bg-2))))
   `(match ((t (:background ,btcsb-fg-1))))
   `(next-error ((t (:inherit (region)))))
   `(query-replace ((t (:inherit (isearch)))))
  
   `(flyspell-duplicate ((t (:foreground ,btcsb-fg-9
                             :weight bold
                             :underline t))))
   `(flyspell-incorrect ((t (:foreground ,btcsb-fg-9
                             :weight bold
                             :underline t))))
   ))

(and load-file-name
     (boundp 'custom-theme-load-path)
     (add-to-list 'custom-theme-load-path
                  (file-name-as-directory
                   (file-name-directory load-file-name))))

(provide-theme 'BTCSB)