blob: b13a7fbbdc560f9d2eb5d27a6b6447812f460574 (
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
|
;;; 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/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 (memq mpolden/theme-light custom-enabled-themes) )
(is-dark (memq mpolden/theme-dark custom-enabled-themes)))
(cond
(is-light (mpolden/switch-theme mpolden/theme-dark))
(is-dark (mpolden/switch-theme mpolden/theme-light))
(t (message "Don't know how to toggle theme: %s" (car custom-enabled-themes))))))
(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
|
