From f4a8a84e6546e43f36bce2dcab9bc108a2e35399 Mon Sep 17 00:00:00 2001 From: Joe Wreschnig Date: Mon, 1 Apr 2013 00:07:02 +0200 Subject: [PATCH] Initial import. --- BTCSB-theme.el | 106 +++++++++++++++++++++++++++++++++++++++++++++++++ README.md | 26 ++++++++++-- 2 files changed, 129 insertions(+), 3 deletions(-) create mode 100644 BTCSB-theme.el 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) diff --git a/README.md b/README.md index 58a482d..61e59a1 100644 --- 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/ -- 2.20.1