From 2797d9df1f203d60a6969e4242d6be77f270c503 Mon Sep 17 00:00:00 2001
From: "Rune Juhl (Atea)" <rune.juhl@atea.dk>
Date: Mon, 27 Feb 2023 09:27:18 +0100
Subject: [PATCH] Change dark theme, switch in all emacs instances

---
 toggle_theme | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/toggle_theme b/toggle_theme
index bf453cd..ace23a0 100755
--- a/toggle_theme
+++ b/toggle_theme
@@ -2,11 +2,12 @@
 (ns toggle-theme
   "Script to toggle between light and dark themes. Inspired by
   https://github.com/pedrocr/dotfiles/blob/master/.config/sway/envsetup."
-  (:require [clojure.java.shell :refer [sh]]))
+  (:require [clojure.java.shell :refer [sh]]
+            [babashka.fs :as fs]))
 
 (def themes
   {:emacs
-   {:dark "doom-solarized-dark-high-contrast"
+   {:dark "doom-opera"
     :light "doom-solarized-light"}
    :gnome
    {:dark  "Adwaita-dark"
@@ -55,5 +56,9 @@
      theme-preferences)
     (sh "gsettings" "set" "org.gnome.desktop.interface" "color-scheme" (str "prefer-" (name (next-theme))))
 
-    (sh "emacsclient" "-e" (str "(load-theme '" ((:emacs themes) (next-theme)) ")"))
-    nil))
+    (run!
+     #(sh "emacsclient" "--socket-name" % "--eval" (str "(load-theme '" ((:emacs themes) switch-to) ")"))
+     (map str (fs/list-dir (fs/file (System/getenv "XDG_RUNTIME_DIR") "emacs"))))
+    nil)
+
+  false)