blob: 6abd250d7375699fcfa6043d12136260668368ac (
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
53
54
55
56
57
58
59
60
61
62
63
64
|
;;; 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)
(if (and (not theme) (functionp 'consult-theme))
(call-interactively 'consult-theme)
(let ((custom-safe-themes t))
(mapcar #'disable-theme custom-enabled-themes)
(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 current theme. Enabled themes: %s"
custom-enabled-themes))))
(defun mpolden/toggle-theme (&optional appearance)
"Toggle between dark and light themes.
The variables `mpolden/theme-light' and `mpolden/theme-dark'
decides the themes to toggle between.
A prefix argument prompts for a theme to load instead of toggling
the current theme.
If APPEARANCE is either 'light or 'dark, change to the matching
theme instead of toggling."
(interactive)
(if current-prefix-arg
(mpolden/switch-theme)
(if appearance
(pcase appearance
('light (mpolden/switch-theme mpolden/theme-light))
('dark (mpolden/switch-theme mpolden/theme-dark)))
(let* ((is-light (eq (mpolden/current-theme) 'light))
(new-theme (if is-light mpolden/theme-dark mpolden/theme-light)))
(mpolden/switch-theme new-theme)))))
(use-package doom-themes
:ensure t
:defer nil
:if (display-graphic-p)
:bind ("C-c t" . mpolden/toggle-theme)
:config
(if (boundp 'ns-system-appearance-change-functions)
(add-hook 'ns-system-appearance-change-functions #'mpolden/toggle-theme)
(mpolden/toggle-theme 'dark)))
(provide 'init-theme)
;;; init-theme.el ends here
|