Compare commits

...

2 commits

Author SHA1 Message Date
fa2854e376 Improve toggle_theme 2024-02-07 13:22:48 +01:00
848c02e77f Add files to .gitignore 2024-02-07 13:22:34 +01:00
2 changed files with 16 additions and 0 deletions

2
.gitignore vendored Normal file
View file

@ -0,0 +1,2 @@
/.clj-kondo/
/.lsp/

View file

@ -36,9 +36,23 @@
"switch"
(let [switch-to (next-theme)
gnome-theme ((:gnome themes) switch-to)]
;; https://askubuntu.com/questions/1464937/inconsistent-dark-theme-for-gtk-apps-on-23-04
;;
;; $ gsettings get org.gnome.desktop.interface color-scheme
;; 'prefer-dark'
;; $ gsettings get org.gnome.desktop.interface gtk-theme
;; 'Yaru-dark'
;; $ gsettings get org.gnome.desktop.wm.preferences theme
;; 'Yaru-dark'
;; [["org.gnome.desktop.interface" "gtk-theme"]
;; ["org.gnome.desktop.wm.preferences" "theme"]]
(run!
#(sh "gsettings" "set" "org.gnome.desktop.interface" (str % "-theme") gnome-theme)
theme-preferences)
(sh "gsettings" "set" "org.gnome.desktop.interface" "color-scheme" (name (if (= :dark (current-theme)) :prefer-light :prefer-dark)))
(sh "emacsclient" "-e" (str "(load-theme '" ((:emacs themes) switch-to) ")"))
nil))