heckyel/emacs-personal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

semi-dark-theme for default

Browse Source
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
1 changed files with 38 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
modules/init-theme.el
View File

@ -8,6 +8,7 @@
:ensure t :ensure t
:bind :bind
("C-x t d" . dark-theme) ("C-x t d" . dark-theme)
("C-x t s" . semi-dark-theme)
("C-x t l" . light-theme) ("C-x t l" . light-theme)
:init :init
@ -24,35 +25,60 @@
(load-theme 'doom-molokai) (load-theme 'doom-molokai)
(delete-selection-mode 1) (delete-selection-mode 1)
;; Invoke customcolors ;; 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 ;; Invoke theme
(load-theme 'doom-molokai t) (load-theme 'doom-molokai t) ;; global
:config :config
(defun customcolors () (defun darkcolor ()
"Simple customcolors for theme." "Simple dark for theme."
(set-cursor-color "#2979FF") (set-cursor-color "#2979FF")
(set-face-background 'highlight "#2979FF") (set-face-background 'highlight "#2979FF")
;; (set-background-color "#1C1E1F") ;; semi-dark (set-background-color "#101418")
(set-background-color "#101418") ;; dark
;; Modeline ;; Modeline
;; (set-face-background 'mode-line "#131313") ;; semi-dark (set-face-background 'mode-line "#0C0E10")
(set-face-background 'mode-line "#0C0E10") ;; dark
(set-face-background 'modeline-inactive "#333333") (set-face-background 'modeline-inactive "#333333")
;; (set-face-foreground 'mode-line "#FFFFFF") ;; (set-face-foreground 'mode-line "#FFFFFF")
;; Fix linum current-line highlight ;; Fix linum current-line highlight
(defface my-linum-hl (defface my-linum-hl
;; '((t :background "#131313" :foreground "gold")) ;; semi-dark '((t :background "#0C0E10" :foreground "gold"))
'((t :background "#0C0E10" :foreground "gold")) ;; dark
"Face for the currently active Line number" "Face for the currently active Line number"
:group 'linum) :group 'linum)
) )
;; Invoke customcolors (defun semidarkcolor ()
(customcolors) "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) (provide 'init-theme)