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

[toggle_themes] add Kitty support

Browse source
This commit is contained in:
Rune Juhl (Atea) 2024-12-02 10:44:30 +01:00
parent 1ba93e4cad
commit ba5efb8223
1 changed files with 13 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

24
toggle_theme
View file

@ -6,12 +6,13 @@
[babashka.fs :as fs])) [babashka.fs :as fs]))
(def themes (def themes
{:emacs {:light {:emacs "doom-oksolar-light"
{:dark "doom-opera" :gnome "Adwaita"
:light "doom-oksolar-light"} :kitty "doom-oksolar-light"}
:gnome
{:dark "Adwaita-dark" :dark {:emacs "doom-opera"
:light "Adwaita"}}) :gnome "Adwaita-dark"
:kitty "Solarized Darcula"}})
(def theme-preferences (def theme-preferences
["gtk" ["gtk"
@ -36,8 +37,9 @@
"get" (println (name (current-theme))) "get" (println (name (current-theme)))
"toggle" "toggle"
(let [switch-to (next-theme) (let [next-scheme (next-theme)
gnome-theme ((:gnome themes) switch-to)] next-themes (next-scheme themes)
gnome-theme (:gnome next-themes)]
;; 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
;; ;;
;; $ gsettings get org.gnome.desktop.interface color-scheme ;; $ gsettings get org.gnome.desktop.interface color-scheme
@ -50,16 +52,16 @@
;; [["org.gnome.desktop.interface" "gtk-theme"] ;; [["org.gnome.desktop.interface" "gtk-theme"]
;; ["org.gnome.desktop.wm.preferences" "theme"]] ;; ["org.gnome.desktop.wm.preferences" "theme"]]
(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" (str "prefer-" (name (next-theme)))) (sh "gsettings" "set" "org.gnome.desktop.interface" "color-scheme" (str "prefer-" (name next-scheme)))
(sh "gsettings" "set" "org.gnome.desktop.wm.preferences" "theme" gnome-theme) (sh "gsettings" "set" "org.gnome.desktop.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 next-themes) ")"))
(map str (fs/list-dir (fs/file (System/getenv "XDG_RUNTIME_DIR") "emacs")))) (map str (fs/list-dir (fs/file (System/getenv "XDG_RUNTIME_DIR") "emacs"))))
(sh "kitty" "+kitten" "themes" "--reload-in=all" (:kitty next-themes))
nil) nil)
false) false)