|
|
@ -330,12 +330,12 @@ Restore it to reasonable value after init. Also stop garbage collection during m |
|
|
|
(defun my/toggle-theme () |
|
|
|
(interactive) |
|
|
|
(when (or *sys/windows* *sys/linux*) |
|
|
|
(if (eq (car custom-enabled-themes) 'tango-dark) |
|
|
|
(progn (disable-theme 'tango-dark) |
|
|
|
(load-theme 'tango)) |
|
|
|
(if (eq (car custom-enabled-themes) 'plastic) |
|
|
|
(progn (disable-theme 'plastic) |
|
|
|
(load-theme 'leuven)) |
|
|
|
(progn |
|
|
|
(disable-theme 'tango) |
|
|
|
(load-theme 'tango-dark))))) |
|
|
|
(disable-theme 'leuven) |
|
|
|
(load-theme 'plastic))))) |
|
|
|
|
|
|
|
(bind-key "C-c t" 'my/toggle-theme) |
|
|
|
#+END_SRC |
|
|
|