X-Git-Url: https://git.korewanetadesu.com/?p=BTCSB-emacs-theme.git;a=blobdiff_plain;f=BTCSB-theme.el;fp=BTCSB-theme.el;h=e7fa6408eeb970902b46e8179ee42a28a736bd37;hp=0000000000000000000000000000000000000000;hb=f4a8a84e6546e43f36bce2dcab9bc108a2e35399;hpb=00fd160c73a368de6e30be1c290acacd7d15c1e4

diff --git a/BTCSB-theme.el b/BTCSB-theme.el
new file mode 100644
index 0000000..e7fa640
--- /dev/null
+++ b/BTCSB-theme.el
@@ -0,0 +1,106 @@
+(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)