complete-computing-environment/toggle_bright_dark_theme_in_emacs_kde_and_firefox.org

Toggle Bright/Dark Theme in Emacs, KDE and FireFox

,#+ARROYO_MODULE_WANTS: 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-spring)
(setq cce/dark-theme 'ef-autumn)
(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
    (call-process-shell-command "lookandfeeltool -a 'org.kde.breezedark.desktop'")
    ;; (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
    (call-process-shell-command "lookandfeeltool -a 'org.kde.breeze.desktop'") 
    ;; (cce/toggle-firefox-darkreader)
    )) 
        
(defun cce/toggle-firefox-darkreader ()
  (interactive)
  (with-current-buffer (first (seq-filter
                               (lambda (buf)
                                 (s-starts-with? "Firefox:" (buffer-name buf)))
                               (buffer-list)))
    (with-selected-window (get-buffer-window)
      (exwm-input--fake-key (aref (kbd "M-S-d") 0)))))
        
(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)))))