,#+ARROYOMODULEWANTS: cce/exwm.org
Make my computer match my working environment, Themeing my Emacs depending on whether I am
working in our basement at night or out in the park, or even just
sitting in front of my sun-side window. Eventually want to integrate
this with Code Surfing
Mode, they seem related… This should be one of my Dipswitches, bound to <SPC>tn
Those code could really use a re-factor already, and I just wrote it! toggles like this are such a pain to build, I'm not sure why…
provide 'cce/toggle-theme)
(setq cce/light-theme 'ef-cyprus)
(setq cce/dark-theme 'ef-bio)
(defun cce/switch-dark-theme ()
("Enable dark theme in Firefox, KDE and Emacs"
(interactive)
(disable-theme cce/light-theme)
(enable-theme cce/dark-theme)
(save-excursion"lookandfeeltool -a 'garden.arcology.arroyo.bismuth'")
(call-process-shell-command ;; (cce/toggle-firefox-darkreader)
))
defun cce/switch-light-theme ()
("Enable light theme in Firefox, KDE and Emacs at once"
(interactive)
(disable-theme cce/dark-theme)
(enable-theme cce/light-theme)
(save-excursion"lookandfeeltool -a 'garden.arcology.arroyo.bismuth.light'")
(call-process-shell-command ;; (cce/toggle-firefox-darkreader)
))
defun cce/toggle-firefox-darkreader ()
(
(interactive)first (seq-filter
(with-current-buffer (lambda (buf)
("Firefox:" (buffer-name buf)))
(s-starts-with?
(buffer-list)))
(with-selected-window (get-buffer-window)aref (kbd "M-S-d") 0)))))
(exwm-input--fake-key (
defun cce/toggle-theme ()
(
(interactive)let ((active-theme (car custom-enabled-themes)))
(cond
(eq active-theme cce/light-theme)
((
(cce/switch-dark-theme))eq active-theme cce/dark-theme)
((
(cce/switch-light-theme)))) (cce-update-org-todo-keyword-faces))