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

Improve toggle theme script

Browse source 
Now it can also output the current theme.
This commit is contained in:
Rune Juhl (Atea) 2022-11-01 11:30:40 +01:00
parent d42c453cc1
commit 49afde275e
1 changed files with 19 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

26
toggle_theme
View file

@ -17,16 +17,28 @@
"icon"
"cursor"])
(defn next-theme
(defn current-theme
[]
(if (re-find #"dark" (:out (sh "gsettings" "get" "org.gnome.desktop.interface" "gtk-theme")))
:dark
:light))
(defn next-theme
[]
(if (= :dark (current-theme))
:light
:dark))
(let [switch-to (next-theme)
gnome-theme ((:gnome themes) switch-to)]
(run!
#(sh "gsettings" "set" "org.gnome.desktop.interface" (str % "-theme") gnome-theme)
theme-preferences)
(case (some->> *command-line-args*
first)
"get" (println (name (current-theme)))
(sh "emacsclient" "-e" (str "(load-theme '" ((:emacs themes) switch-to) ")")))
"switch"
(let [switch-to (next-theme)
gnome-theme ((:gnome themes) switch-to)]
(run!
#(sh "gsettings" "set" "org.gnome.desktop.interface" (str % "-theme") gnome-theme)
theme-preferences)
(sh "emacsclient" "-e" (str "(load-theme '" ((:emacs themes) switch-to) ")"))
nil))