Initial import.

diff --git a/BTCSB-theme.el b/BTCSB-theme.el
new file mode 100644 (file)
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)

diff --git a/README.md b/README.md
index 58a482d..61e59a1 100644 (file)
--- a/README.md
+++ b/README.md
@@ -1,4 +1,24 @@
-BTCSB-emacs-theme
-=================
+# Baby, The Code Shines Bright
 
-Ultra kawaii Emacs theme
\ No newline at end of file
+This is an Emacs adaptation of
+[Jessica Allen's TextMate theme of the same name][1], which is in turn
+a TextMate adaptation of [frilly dresses][3]. Because Emacs and
+TextMate have slightly different views on how to fontify source code,
+it doesn't look exactly the same, but I think it has the same spirit.
+
+It uses the new Emacs 24 theming capabilities, and not the old
+`color-theme` interface. To use it, just dump it in your `~/.emacs.d`
+and add something like
+
+    (load-theme 'BTCSB t)
+
+to your `~/.emacs`. Make sure to disable any `color-theme`-based
+theming you may have been using previously because if put in the same
+buffer they will fight in uncute ways.
+
+For more help with the new Emacs theming method,
+[Bozhidar Batsov has a quick overview of the new interface][2].
+
+  [1]: http://spacekat.github.com/blog/2010/08/26/cute-code-overload/
+  [2]: http://batsov.com/articles/2012/02/19/color-theming-in-emacs-reloaded/
+  [3]: http://www.babyssb.co.jp/