|
@ -171,13 +171,15 @@ Some windows specific stuff |
|
|
#+BEGIN_SRC emacs-lisp |
|
|
#+BEGIN_SRC emacs-lisp |
|
|
(defun my/toggle-theme () |
|
|
(defun my/toggle-theme () |
|
|
(interactive) |
|
|
(interactive) |
|
|
(when *windows* |
|
|
|
|
|
|
|
|
(when (or *windows* *linux*) |
|
|
(if (eq (car custom-enabled-themes) 'tango-dark) |
|
|
(if (eq (car custom-enabled-themes) 'tango-dark) |
|
|
(progn (disable-theme 'tango-dark) |
|
|
(progn (disable-theme 'tango-dark) |
|
|
(enable-theme 'tango)) |
|
|
|
|
|
|
|
|
(load-theme 'tango)) |
|
|
(progn |
|
|
(progn |
|
|
(disable-theme 'tango) |
|
|
(disable-theme 'tango) |
|
|
(enable-theme 'tango-dark))))) |
|
|
|
|
|
|
|
|
(load-theme 'tango-dark))))) |
|
|
|
|
|
|
|
|
|
|
|
(bind-key "C-c t" 'my/toggle-theme) |
|
|
#+END_SRC |
|
|
#+END_SRC |
|
|
|
|
|
|
|
|
Windows Theme: |
|
|
Windows Theme: |
|
|