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

Fix more bugs in toggle_theme

Browse source
This commit is contained in:
Rune Juhl Jacobsen 2024-02-09 08:49:03 +01:00
parent fa2854e376
commit 07dadc4795
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
toggle_theme
View file

@ -19,7 +19,8 @@
(defn current-theme (defn current-theme
[] []
(if (re-find #"dark" (:out (sh "gsettings" "get" "org.gnome.desktop.interface" "gtk-theme"))) (if (re-find #"dark" (->> (sh "gsettings" "get" "org.gnome.desktop.interface" "color-scheme")
:out))
:dark :dark
:light)) :light))
@ -52,7 +53,7 @@
(run! (run!
#(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" (name (if (= :dark (current-theme)) :prefer-light :prefer-dark))) (sh "gsettings" "set" "org.gnome.desktop.interface" "color-scheme" (str "prefer-" (name (next-theme))))
(sh "emacsclient" "-e" (str "(load-theme '" ((:emacs themes) switch-to) ")")) (sh "emacsclient" "-e" (str "(load-theme '" ((:emacs themes) (next-theme)) ")"))
nil)) nil))