Refactoring code

modules/init-doom-theme.el

@@ -7,17 +7,16 @@
   :pin "MELPA"
   :ensure t
   :bind
-  ("C-x t d" . dark-theme)
-  ("C-x t s" . semi-dark-theme)
-  ("C-x t l" . light-theme)
+  (("C-x t d" . dark-theme)
+   ("C-x t s" . semi-dark-theme)
+   ("C-x t l" . light-theme))
 
   :init
   (defun light-theme ()
     "Activate light colortheme"
     (interactive)
     (load-theme 'doom-one-light)
-    (delete-selection-mode 1)
-    )
+    (delete-selection-mode 1))
 
   (defun dark-theme ()
     "Activate dark colortheme"
@@ -25,8 +24,7 @@
     (load-theme 'doom-molokai)
     (delete-selection-mode 1)
     ;; Invoke customcolors
-    (darkcolor)
-    )
+    (darkcolor))
 
   (defun semi-dark-theme ()
     "Activate semi-dark colortheme"
@@ -34,11 +32,10 @@
     (load-theme 'doom-molokai)
     (delete-selection-mode 1)
     ;; Invoke customcolors
-    (semidarkcolor)
-    )
+    (semidarkcolor))
 
   ;; Invoke theme
-  (load-theme 'doom-molokai t) ;; global
+  (load-theme 'doom-molokai t)
 
   :config
   (defun darkcolor ()
@@ -49,15 +46,14 @@
 
     ;; Modeline
     (set-face-background 'mode-line "#0C0E10")
-    (set-face-background 'modeline-inactive "#333333")
+    (set-face-background 'mode-line-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)
-    )
+      :group 'linum))
 
   (defun semidarkcolor ()
     "Simple semidarkcolor for theme."
@@ -74,12 +70,10 @@
     (defface my-linum-hl
       '((t :background "gray20" :foreground "gold"))
       "Face for the currently active Line number"
-      :group 'linum)
-    )
+      :group 'linum))
 
   ;; Invoke color
-  (semidarkcolor) ;; default
-  )
+  (semidarkcolor))
 
 (provide 'init-doom-theme)