semi-dark-theme for default

This commit is contained in:
Jesús 2019-09-18 00:20:34 -05:00
parent 2393b459e6
commit b919cdf1d2
No known key found for this signature in database
GPG Key ID: F6EE7BC59A315766

View File

@ -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 "#1C1E1F") ;; semi-dark
(set-background-color "#101418") ;; dark
(set-background-color "#101418")
;; Modeline
;; (set-face-background 'mode-line "#131313") ;; semi-dark
(set-face-background 'mode-line "#0C0E10") ;; dark
(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 "#131313" :foreground "gold")) ;; semi-dark
'((t :background "#0C0E10" :foreground "gold")) ;; dark
'((t :background "#0C0E10" :foreground "gold"))
"Face for the currently active Line number"
:group 'linum)
)
;; Invoke customcolors
(customcolors)
(defun semidarkcolor ()
"Simple semidarkcolor for theme."
(set-cursor-color "#2979FF")
(set-face-background 'highlight "#2979FF")
(set-background-color "#1C1E1F")
;; Modeline
(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 "gray20" :foreground "gold"))
"Face for the currently active Line number"
:group 'linum)
)
;; Invoke color
(semidarkcolor) ;; default
)
(provide 'init-theme)