runejuhl/playground
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix even more bugs in toggle_theme

Browse source
This commit is contained in:
Rune Juhl Jacobsen 2024-03-31 22:12:47 +02:00
parent 3af2b9d97d
commit 112621e793
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
toggle_theme
View file

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