public
Last active

  • Download Gist
bubbleberry-theme.el
Emacs Lisp
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122
(deftheme bubbleberry "Light Table like theme")
 
;; Based on the theme used for LightTable (see: http://www.chris-granger.com/images/lightable/main.png )
 
;; Source: https://gist.github.com/8065710
;; Original Source: https://gist.github.com/3027622
 
(custom-theme-set-variables
'bubbleberry
'(linum-format "%3i")
;; '(fringe-mode 5 nil (fringe))
'(powerline-color1 "#3d3d68")
'(powerline-color2 "#292945")
)
 
(custom-theme-set-faces
'bubbleberry
 
;; basic theming.
'(default ((t (:foreground "#CCCCCC" :background "#202020" ))))
'(region ((t (:background "#151515" ))))
'(cursor ((t (:background "#EEEEEE" ))))
'(fringe ((t (:background "#2F2F2F" :foreground "#FFFFFF" ))))
'(linum ((t (:background "#202020" :foreground "#777777" :box nil :height 100 ))))
'(minibuffer-prompt ((t (:foreground "#9489C4" :weight bold ))))
'(minibuffer-message ((t (:foreground "#FFFFFF" ))))
'(mode-line ((t (:foreground "#BBBBBB" :background "#191919" ))))
'(mode-line-inactive ((t (:foreground "#777777" :background "#303030" :weight light :box nil :inherit (mode-line )))))
 
'(font-lock-keyword-face ((t (:foreground "#B8E9CB"))))
'(font-lock-type-face ((t (:foreground "#C5B3FD"))))
'(font-lock-constant-face ((t (:foreground "#C5B3FD"))))
'(font-lock-variable-name-face ((t (:foreground "#ADCEFD"))))
'(font-lock-builtin-face ((t (:foreground "#6767AE"))))
'(font-lock-string-face ((t (:foreground "#B3DADC"))))
'(font-lock-comment-face ((t (:foreground "#9AACCB"))))
'(font-lock-comment-delimiter-face ((t (:foreground "#9AACCB"))))
'(font-lock-warning-face ((t (:background "#9AACCB"))))
'(font-lock-preprocessor-face ((t (:foreground "#B8E9CB"))))
'(font-lock-reference-face ((t (:foreground "#000000"))))
'(font-lock-negation-char-face ((t (:foreground "#000000"))))
 
'(font-lock-function-name-face ((t (:foreground "#ADCEFD"))))
'(font-lock-doc-face ((t (:foreground "#AAAAAA"))))
'(font-lock-doc-string-face ((t (:foreground "#496B83"))))
 
'(flymake-errline ((t (:foreground "#EE8888" :background nil :underline nil))))
'(flymake-warnline ((t (:foreground "#8888FF" :background "#303030" :underline nil))))
 
;; easy defaults...
'(tooltip ((default nil) (nil nil)))
'(next-error ((t (:inherit (region)))))
'(query-replace ((t (:inherit (isearch)))))
'(button ((t (:inherit (link)))))
'(fixed-pitch ((t (:family "Monospace"))))
'(variable-pitch ((t (:family "Sans Serif"))))
'(escape-glyph ((t (:foreground "#FF6600"))))
'(mode-line-emphasis ((t (:weight bold))))
'(mode-line-highlight ((t (:box nil (t (:inherit (highlight)))))))
 
'(highlight
((((class color) (min-colors 88) (background light)) (:background "#003453"))
(((class color) (min-colors 88) (background dark)) (:background "#003450"))
(((class color) (min-colors 16) (background light)) (:background "#003450"))
(((class color) (min-colors 16) (background dark)) (:background "#004560"))
(((class color) (min-colors 8)) (:foreground "#000000" :background "#00FF00")) (t (:inverse-video t))))
 
'(shadow
((((class color grayscale) (min-colors 88) (background light)) (:foreground "#999999"))
(((class color grayscale) (min-colors 88) (background dark)) (:foreground "#999999"))
(((class color) (min-colors 8) (background light)) (:foreground "#00ff00"))
(((class color) (min-colors 8) (background dark)) (:foreground "#ffff00"))))
 
'(trailing-whitespace
((((class color) (background light)) (:background "#ff0000"))
(((class color) (background dark)) (:background "#ff0000")) (t (:inverse-video t)))))
 
'(link
((((class color) (min-colors 88) (background light)) (:underline t :foreground "#00b7f0"))
(((class color) (background light)) (:underline t :foreground "#0044FF"))
(((class color) (min-colors 88) (background dark)) (:underline t :foreground "#0099aa"))
(((class color) (background dark)) (:underline t :foreground "#0099aa")) (t (:inherit (underline)))))
 
'(link-visited
((default (:inherit (link)))
(((class color) (background light)) (:inherit (link)))
(((class color) (background dark)) (:inherit (link)))))
 
'(header-line
((default (:inherit (mode-line))) (((type tty)) (:underline t :inverse-video nil))
(((class color grayscale) (background light)) (:box nil :foreground "#222222" :background "#bbbbbb"))
(((class color grayscale) (background dark)) (:box nil :foreground "#bbbbbb" :background "#222222"))
(((class mono) (background light)) (:underline t :box nil :inverse-video nil :foreground "#000000" :background "#ffffff"))
(((class mono) (background dark)) (:underline t :box nil :inverse-video nil :foreground "#ffffff" :background "#000000"))))
 
'(isearch
((((class color) (min-colors 88) (background light)) (:foreground "#99ccee" :background "#444444"))
(((class color) (min-colors 88) (background dark)) (:foreground "#bb3311" :background "#444444"))
(((class color) (min-colors 16)) (:foreground "#0088cc" :background "#444444"))
(((class color) (min-colors 8)) (:foreground "#0088cc" :background "#444444")) (t (:inverse-video t))))
 
'(isearch-fail
((((class color) (min-colors 88) (background light)) (:background "#ffaaaa"))
(((class color) (min-colors 88) (background dark)) (:background "#880000"))
(((class color) (min-colors 16)) (:background "#FF0000"))
(((class color) (min-colors 8)) (:background "#FF0000"))
(((class color grayscale)) (:foreground "#888888")) (t (:inverse-video t))))
 
'(lazy-highlight
((((class color) (min-colors 88) (background light)) (:background "#77bbdd"))
(((class color) (min-colors 88) (background dark)) (:background "#77bbdd"))
(((class color) (min-colors 16)) (:background "#4499ee"))
(((class color) (min-colors 8)) (:background "#4499ee")) (t (:underline t))))
 
'(match
((((class color) (min-colors 88) (background light)) (:background "#3388cc"))
(((class color) (min-colors 88) (background dark)) (:background "#3388cc"))
(((class color) (min-colors 8) (background light)) (:foreground "#000000" :background "#FFFF00"))
(((class color) (min-colors 8) (background dark)) (:foreground "#ffffff" :background "#0000FF"))
(((type tty) (class mono)) (:inverse-video t)) (t (:background "#888888"))))
 
(provide-theme 'bubbleberry)

Hey there, thanks for working on this, but you should've just got me to turn this into a proper repo so you could submit a pull request. - Never mind, let's get that going now ok?

See https://github.com/jasonm23/emacs-bubbleberry-theme

I'll make this ready for MELPA/Marmalade today.

BTW, I've just given you push access to the repo, so you'll have co-authorship. Seems only fair after you did all the color calibration work. You won't need to do pull requests, you'll be able to push directly.

For the moment, I think it'll be ok to do push straight to master. For safety you could use feature branches, but I don't think the velocity on this will warrant it.

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.