blob: 82d54c00bd27bcf58d57cd2d9d7b238af6c58668 (
plain) (
blame)
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
|
;;; init-theme.el --- configure theme -*- lexical-binding:t -*-
;;; Commentary:
;;; Code:
(defvar mpolden/theme-light 'doom-one-light
"The light theme to use when toggling themes with `mpolden/toggle-theme'.")
(defvar mpolden/theme-dark 'doom-one
"The dark theme to use when toggling themes with `mpolden/toggle-theme'.")
(defun mpolden/switch-theme (&optional theme)
"Disable any currently enabled themes and load THEME."
(interactive "P")
(mapcar #'disable-theme custom-enabled-themes)
(let ((custom-safe-themes t))
(if theme
(load-theme theme)
(call-interactively 'load-theme))))
(defun mpolden/current-theme ()
"Return current theme, which is either \"light\" or \"dark\"."
(cond
((memq mpolden/theme-light custom-enabled-themes) "light")
((memq mpolden/theme-dark custom-enabled-themes) "dark")
(t (error "Failed to detect light theme. Enabled themes: %s"
custom-enabled-themes))))
(defun mpolden/toggle-theme ()
"Toggle between dark and light themes.
The variables `mpolden/theme-light' and `mpolden/theme-dark'
decides the themes to toggle between."
(interactive)
(let* ((is-light (equal (mpolden/current-theme) "light"))
(new-theme (if is-light mpolden/theme-dark mpolden/theme-light))
(new-vterm-theme (if is-light "dark" "light")))
(mpolden/switch-theme new-theme)
(when (fboundp 'mpolden/vterm-change-theme)
(mpolden/vterm-change-theme new-vterm-theme))
(when (fboundp 'mpolden/vterm-set-theme)
(mpolden/vterm-set-theme new-vterm-theme))))
(use-package doom-themes
:ensure t
:defer nil
:if (display-graphic-p)
:bind ("C-c T" . mpolden/toggle-theme)
:config
(load-theme mpolden/theme-dark t))
(provide 'init-theme)
;;; init-theme.el ends here
|