lupan/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add function my-select-theme

Browse Source
This commit is contained in:
Łukasz Pankowski 2020-07-20 09:41:53 +02:00
parent 2ee80a0fc4
commit 66a5767ef9
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
init.el
View File

@ -1179,13 +1179,16 @@ Argument FRAMES has the same meaning as for `set-frame-font'"
(setq my-dark-theme 'apropospriate-dark (setq my-dark-theme 'apropospriate-dark
my-light-theme 'apropospriate-light)) my-light-theme 'apropospriate-light))
(defun my-select-theme (theme)
(mapc #'disable-theme custom-enabled-themes)
(load-theme theme t)
(my-helm-themes-after))
(defun my-toggle-theme () (defun my-toggle-theme ()
"Toggle between dark and light themes" "Toggle between dark and light themes"
(interactive) (interactive)
(let ((dark-p (custom-theme-enabled-p my-dark-theme))) (let ((dark-p (custom-theme-enabled-p my-dark-theme)))
(mapc #'disable-theme custom-enabled-themes) (my-select-theme (if dark-p my-light-theme my-dark-theme))))
(load-theme (if dark-p my-light-theme my-dark-theme) t))
(my-helm-themes-after))
(global-set-key (kbd "C-S-<f6>") #'my-toggle-theme) (global-set-key (kbd "C-S-<f6>") #'my-toggle-theme)