semi-dark-theme for default

1 files changed, 38 insertions, 12 deletions

diff --git a/modules/init-theme.el b/modules/init-theme.el
index 83976e5..17360c0 100644
--- a/modules/init-theme.el
+++ b/modules/init-theme.el
@@ -8,6 +8,7 @@
   :ensure t
   :bind
   ("C-x t d" . dark-theme)
+  ("C-x t s" . semi-dark-theme)
   ("C-x t l" . light-theme)
 
   :init
@@ -24,35 +25,60 @@
     (load-theme 'doom-molokai)
     (delete-selection-mode 1)
     ;; Invoke customcolors
-    (customcolors)
+    (darkcolor)
     )
+
+  (defun semi-dark-theme ()
+    "Activate semi-dark colortheme"
+    (interactive)
+    (load-theme 'doom-molokai)
+    (delete-selection-mode 1)
+    ;; Invoke customcolors
+    (semidarkcolor)
+    )
+
   ;; Invoke theme
-  (load-theme 'doom-molokai t)
+  (load-theme 'doom-molokai t) ;; global
 
   :config
-  (defun customcolors ()
-    "Simple customcolors for theme."
+  (defun darkcolor ()
+    "Simple dark for theme."
+    (set-cursor-color "#2979FF")
+    (set-face-background 'highlight "#2979FF")
+    (set-background-color "#101418")
+
+    ;; Modeline
+    (set-face-background 'mode-line "#0C0E10")
+    (set-face-background 'modeline-inactive "#333333")
+    ;; (set-face-foreground 'mode-line "#FFFFFF")
+
+    ;; Fix linum current-line highlight
+    (defface my-linum-hl
+      '((t :background "#0C0E10" :foreground "gold"))
+      "Face for the currently active Line number"
+      :group 'linum)
+    )
+
+  (defun semidarkcolor ()
+    "Simple semidarkcolor for theme."
     (set-cursor-color "#2979FF")
     (set-face-background 'highlight "#2979FF")
-    ;; (set-background-color "#1C1E1F") ;; semi-dark
-    (set-background-color "#101418") ;; dark
+    (set-background-color "#1C1E1F")
 
     ;; Modeline
-    ;; (set-face-background 'mode-line "#131313") ;; semi-dark
-    (set-face-background 'mode-line "#0C0E10") ;; dark
+    (set-face-background 'mode-line "#2D2E2E")
     (set-face-background 'modeline-inactive "#333333")
     ;; (set-face-foreground 'mode-line "#FFFFFF")
 
     ;; Fix linum current-line highlight
     (defface my-linum-hl
-      ;; '((t :background "#131313" :foreground "gold")) ;; semi-dark
-      '((t :background "#0C0E10" :foreground "gold")) ;; dark
+      '((t :background "gray20" :foreground "gold"))
       "Face for the currently active Line number"
       :group 'linum)
     )
 
-  ;; Invoke customcolors
-  (customcolors)
+  ;; Invoke color
+  (semidarkcolor) ;; default
   )
 
 (provide 'init-theme)