aboutsummaryrefslogtreecommitdiffstats
path: root/modules/init-doom-theme.el
blob: 581b5afc45070f7e20cca325be717ff456b58f5f (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
;;; 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)

  :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 '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))

  (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))

(provide 'init-doom-theme)

;;; init-doom-theme.el ends here