legacy-dotfiles/emacs.d/elisp/color-theme-weirdness.el
Tom Willemsen 62f897fdf5 New .emacs style
* .emacs only loops through .emacs.d and runs the *.el files there.

 * files are automatically compiled before loading. But only if it
   hasn't already been compiled.

 * all emacs el files, save for the startup scripts, have been moved
   to .emacs.d/elisp
2011-02-21 00:27:43 +01:00

74 lines
4.4 KiB
EmacsLisp

(require 'color-theme)
;; weirdness color-theme
(defun color-theme-weirdness ()
(interactive)
(color-theme-install
'(color-theme-weirdness
((background-color . "#000000")
(background-mode . dark)
(border-color . "#000000")
(cursor-color . "#FFFFFF")
(foreground-color . "#FFFFFF")
(mouse-color . "#000000"))
(org-level-1 ((t (:foreground "#5BFD5B" :weight normal))))
(org-level-2 ((t (:foreground "#379A37" :weight normal))))
(org-level-3 ((t (:foreground "#757575" :weight normal))))
(org-level-4 ((t (:foreground "#778899" :weight normal))))
(org-level-5 ((t (:foreground "#9898FF" :weight normal))))
(org-level-6 ((t (:foreground "#0000B0" :weight normal))))
(org-level-7 ((t (:foreground "#740091" :weight normal))))
(org-level-8 ((t (:foreground "#B275C1" :weight normal))))
(fringe ((t (:background "#000000"))))
(mode-line ((t (:foreground "#B3B3B3" :background "#43527A" :background "#000000" :box nil))))
(region ((t (:background "#3D3D3D"))))
(minibuffer-prompt ((t (:foreground "#72F3FF" :bold t))))
(flymake-warnline ((t (:background "#000060"))))
(flymake-errline ((t (:background "#600000"))))
(font-lock-builtin-face ((t (:foreground "#C436C4"))))
(font-lock-comment-face ((t (:foreground "#00AC00" :background "#004000" :bold t :box (:line-width 1 :color "#006000" :style nil)))))
(font-lock-comment-delimiter-face ((t (:inherit 'font-lock-comment-face))))
(font-lock-function-name-face ((t (:foreground "#0FFF28"))))
(font-lock-keyword-face ((t (:foreground "#4E61BB" :bold t))))
(font-lock-string-face ((t (:foreground "#E00900"))))
(font-lock-type-face ((t (:foreground "#8522DD"))))
(font-lock-variable-name-face ((t (:foreground "#18EFF2"))))
(font-lock-warning-face ((t (:foreground "#FF0000" :bold t)))))))
;; weirdnes color-theme 2
;; thinking of improving it.
(defun color-theme-weirdness2 ()
(interactive)
(color-theme-install
'(color-theme-weirdness
((background-color . "#000000")
(background-mode . dark)
(border-color . "#000000")
(cursor-color . "#FFFFFF")
(foreground-color . "#FFFFFF")
(mouse-color . "#000000"))
(org-level-1 ((t (:foreground "#5BFD5B" :weight normal))))
(org-level-2 ((t (:foreground "#379A37" :weight normal))))
(org-level-3 ((t (:foreground "#757575" :weight normal))))
(org-level-4 ((t (:foreground "#778899" :weight normal))))
(org-level-5 ((t (:foreground "#9898FF" :weight normal))))
(org-level-6 ((t (:foreground "#0000B0" :weight normal))))
(org-level-7 ((t (:foreground "#740091" :weight normal))))
(org-level-8 ((t (:foreground "#B275C1" :weight normal))))
(fringe ((t (:background "#000000"))))
(mode-line ((t (:foreground "#B3B3B3" :background "#43527A" :background "#000000" :box nil))))
(region ((t (:background "#3D3D3D"))))
(minibuffer-prompt ((t (:foreground "#72F3FF" :bold t))))
(flymake-warnline ((t (:background "#000060"))))
(flymake-errline ((t (:background "#600000"))))
(font-lock-builtin-face ((t (:foreground "#C436C4"))))
(font-lock-comment-face ((t (:foreground "#00AC00" :background "#004000" :bold t :box (:line-width 1 :color "#006000" :style nil)))))
(font-lock-comment-delimiter-face ((t (:inherit 'font-lock-comment-face))))
(font-lock-function-name-face ((t (:foreground "#8522DD"))))
(font-lock-keyword-face ((t (:foreground "royal blue"))))
(font-lock-string-face ((t (:foreground "#E00900"))))
(font-lock-type-face ((t (:foreground "#FF9800"))))
(font-lock-variable-name-face ((t (:foreground "#18EFF2"))))
(font-lock-warning-face ((t (:foreground "#FF0000" :bold t)))))))
(provide 'color-theme-weirdness)