diff options
author | Franck Cuny <franck.cuny@gmail.com> | 2016-11-17 10:26:29 -0800 |
---|---|---|
committer | Franck Cuny <franck.cuny@gmail.com> | 2016-11-17 10:26:29 -0800 |
commit | 80fb0028dff04c5cc4666320672895bac7623c86 (patch) | |
tree | db40f3737bf52e48532c498dc2532b2e1ef6b924 | |
parent | [Emacs] add a few comments (diff) | |
download | emacs.d-80fb0028dff04c5cc4666320672895bac7623c86.tar.gz |
[Emacs] Add a custom theme.
A simple theme, with no syntax highlighting. The text is black, and comments / documentation are bold (to make it easier to see).
-rw-r--r-- | emacs.d/lib/basic-theme.el | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/emacs.d/lib/basic-theme.el b/emacs.d/lib/basic-theme.el new file mode 100644 index 0000000..8d25caa --- /dev/null +++ b/emacs.d/lib/basic-theme.el @@ -0,0 +1,50 @@ +;;; basic-theme.el --- Black and light yellow theme without syntax highlighting + +;;; Code: + +(deftheme basic) + +(defvar basic-faces + `(default + font-lock-builtin-face + font-lock-function-name-face + font-lock-keyword-face + font-lock-negation-char-face + font-lock-function-name-face + font-lock-keyword-face + font-lock-negation-char-face + font-lock-preprocessor-face + font-lock-regexp-grouping-backslash + font-lock-regexp-grouping-construct + font-lock-string-face + font-lock-type-face + font-lock-variable-name-face + font-lock-warning-face + sh-quoted-exec + fringe)) + +(let ((bg "#FFFFE8") + (black "#000") + (white "#fff") + (cyan-light "#e6fafa") + (highlight "#e8eb98")) + (apply 'custom-theme-set-faces 'basic + `(default ((t (:foreground ,black :background ,bg)))) + `(mode-line ((t (:background ,cyan-light :box (:line-width 1))))) + `(mode-line-inactive ((t (:background ,cyan-light :box (:line-width -1 :style pressed-button))))) + `(cursor ((t (:background ,black :foreground ,white)))) + `(font-lock-comment-face ((t (:foreground ,black :weight bold)))) + `(font-lock-comment-delimiter-face ((t (:foreground ,black :weight bold)))) + `(font-lock-doc-face ((t (:foreground ,black :weight bold)))) + `(region ((t (:background ,highlight)))) + `(highlight ((t (:background ,highlight)))) + (mapcar (lambda (n) `(,n ((t (:background ,bg :foreground ,black))))) basic-faces))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'basic) + +;;; basic-theme.el ends here |