blob: 7eb4af37edcef2f28868a3f7e7d65c2f60d4c362 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
;;; init-doom-theme.el --- .Emacs Configuration -*- lexical-binding: t -*-
;;; Commentary:
;;
;;; Code:
(use-package doom-themes
:pin "MELPA"
:ensure t
:bind
("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)
)
(defun dark-theme ()
"Activate dark colortheme"
(interactive)
(load-theme 'doom-molokai)
(delete-selection-mode 1)
;; Invoke 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) ;; global
:config
(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")
;; Modeline
(set-face-background 'mode-line "#2D2E2E")
(set-face-background 'mode-line-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-doom-theme)
;;; init-doom-theme.el ends here
|
