From 2121420ddbcbba9cef859505af25288ee6f75713 Mon Sep 17 00:00:00 2001
From: prabhanshuguptagit <guptaprabhanshu1@gmail.com>
Date: Fri, 10 Nov 2023 15:15:12 +0530
Subject: [PATCH] Add buttons to switch between dark/light mode

---
 src/bean/ui/scratch.cljs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/bean/ui/scratch.cljs b/src/bean/ui/scratch.cljs
index 9b0f612..140533b 100644
--- a/src/bean/ui/scratch.cljs
+++ b/src/bean/ui/scratch.cljs
@@ -18,11 +18,18 @@
                                    :evaluated)))
                     :scratch)}
    [:div {:class "scratch-header bean-label"}
-    [:button {:on-click (fn [_]
+    [:button {:class [:scratch-header-btn]
+              :on-click (fn [_]
                           (swap! sheet #(-> %
                                             scratch/reevaluate
                                             set-eval-state)))}
      "▶"]
+    [:button {:class [:scratch-header-btn :dark-mode-btn]
+              :on-click #(.setAttribute js/document.documentElement "data-theme" "dark")}
+     "☾"]
+    [:button {:class [:scratch-header-btn :light-mode-btn]
+              :on-click #(.setAttribute js/document.documentElement "data-theme" "light")}
+     "☀"]
     [:div {:class :scratch-error} (:code-error @sheet)]]
    [:div {:class :scratch-thick-lines}]
    [:div {:class :scratch-body}