Set up dark-mode with 8-color theme

diff --git a/init.el b/init.el
index 0bbc64dcc04cf9d4135f404c1a3d3ac4bc2ae432..c95572a61421d0b43af5656da72fedbe6c890f03 100644 (file)
--- a/init.el
+++ b/init.el
@@ -168,7 +168,31 @@
 (setq bookmark-save-flag 1)
 \f
 ;; GUI Settings
-(invert-face 'default)
+(set-face-attribute 'default nil :foreground "white" :background "black")
+(set-face-attribute 'error nil :foreground "red")
+(set-face-attribute 'highlight nil :background "darkseagreen2" :foreground "black")
+(set-face-attribute 'region nil :background "blue" :foreground "white" :extend t)
+;;; Mode Line
+(set-face-attribute 'mode-line nil :box t :foreground "white" :background "black")
+(set-face-attribute 'mode-line-inactive nil :box nil :foreground "white" :background "black")
+;;; Font-Lock
+(set-face-attribute 'font-lock-builtin-face nil :foreground "blue" :weight 'bold)
+(set-face-attribute 'font-lock-comment-face nil :foreground "red1")
+(set-face-attribute 'font-lock-constant-face nil :foreground "magenta")
+(set-face-attribute 'font-lock-function-name-face nil :foreground "blue" :weight 'bold)
+(set-face-attribute 'font-lock-keyword-face nil :foreground "cyan" :weight 'bold)
+(set-face-attribute 'font-lock-string-face nil :foreground "green")
+(set-face-attribute 'font-lock-type-face nil :foreground "green")
+(set-face-attribute 'font-lock-variable-name-face nil :foreground "yellow" :weight 'light)
+;;; Org
+(set-face-attribute 'org-agenda-structure nil :foreground "blue" :bold t)
+(set-face-attribute 'org-time-grid nil :foreground "yellow")
+(set-face-attribute 'org-todo nil :foreground "red" :bold t)
+(set-face-attribute 'org-done nil :foreground "green")
+(set-face-attribute 'org-agenda-done nil :foreground "green" : t)
+(set-face-attribute 'org-done nil :foreground "green")
+(set-face-attribute 'org-upcoming-deadline nil :foreground "pink" :bold t)
+
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (setq initial-buffer-choice 'recentf-open-files)