From 07dadc4795ba42655acaabbf5073450b8e1bc7cd Mon Sep 17 00:00:00 2001 From: Rune Juhl Jacobsen Date: Fri, 9 Feb 2024 08:49:03 +0100 Subject: [PATCH] Fix more bugs in toggle_theme --- toggle_theme | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/toggle_theme b/toggle_theme index 05bd749..bf453cd 100755 --- a/toggle_theme +++ b/toggle_theme @@ -19,7 +19,8 @@ (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 :light)) @@ -52,7 +53,7 @@ (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 "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))