From 80fb0028dff04c5cc4666320672895bac7623c86 Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck.cuny@gmail.com>
Date: Thu, 17 Nov 2016 10:26:29 -0800
Subject: [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).
---
 emacs.d/lib/basic-theme.el | 50 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 emacs.d/lib/basic-theme.el

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
-- 
cgit 1.4.1