Sriram Karra <[email protected]> writes:
> On Sun, Jun 24, 2012 at 10:37 PM, Christopher Allan Webber
> <[email protected]> wrote:
>
> Hey Aurélien,
>
> This is great. I formerly worked on something similar:
>
>
> http://labs.creativecommons.org/2010/11/10/bridging-public-bugtrackers-and-local-tasklists/
>
> Nice color-theme, there. If you use color-theme.el, can you share it?
> Otherwise, what's your config?
>
> -Karra
Ah, I've stopped using that theme! But it was a small extension to
color-theme-snow. Here it is. :)
#+begin_src emacs-lisp
;; This software is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
(defun color-theme-snow-better ()
"Because `color-theme-snow' is so awesome, except for when it isn't."
(interactive)
(color-theme-snow)
(let ((color-theme-is-cumulative t))
(color-theme-install
'(color-theme-snow-better
((background-color . "snow2")
(background-mode . light)
(border-color . "black")
(cursor-color . "cadet blue")
(foreground-color . "black")
(mouse-color . "black"))
(emacs-wiki-link-face ((t (:bold t :underline "BlueViolet" :foreground
"BlueViolet"))))
(muse-link-face ((t (:bold t :underline "BlueViolet" :foreground
"BlueViolet"))))
(info-xref ((t (:bold t :foreground "BlueViolet"))))
(region ((t (:background "light steel blue"))))
(cursor ((t (:background "cadet blue"))))
(fringe ((t (:background "white"))))
(planner-high-priority-task-face ((t (:foreground "red"))))
(planner-medium-priority-task-face ((t (:foreground "green"))))
(planner-low-priority-task-face ((t (:foreground "blue"))))
(planner-canceled-task-face ((t (:foreground "gray" :strike-through t))))
(org-todo ((t (:foreground "red2" :bold t))))
(org-done ((t (:foreground "SpringGreen3" :bold t))))
(org-special-keyword ((t (:foreground "sienna"))))
(org-column ((t (:background "gray85"))))
(erc-input-face ((t (:foreground "brown"))))
(erc-notice-face ((t (:foreground "SlateBlue" :bold t))))
(erc-current-nick-face ((t (:foreground "DarkTurquoise" :bold t))))
(erc-prompt-face ((t (:foreground "Black" :bold t :background
"lightBlue2"))))
(planner-note-headline-face ((t (:bold t :foreground "azure3"))))))))
#+end_src
