Persist taps window view choice

Author: zampino

src/nextjournal/clerk/window.clj

@@ -3,29 +3,33 @@
             [nextjournal.clerk.viewer :as v]
             [nextjournal.clerk.webserver :as webserver]))
 
+(declare open!)
+(defonce !taps-view (atom :stream))
+(defn set-view! [x] (reset! !taps-view x) (open! ::taps))
+
 (def taps-viewer
-  {:render-fn '(fn [taps opts]
-                 (let [!view (nextjournal.clerk.render.hooks/use-state :stream)]
-                   [:div
-                    [:div.flex.justify-between.items-center
-                     (into [:div.flex.items-center.font-sans.text-xs.mb-3 [:span.text-slate-500.mr-2 "View-as:"]]
-                           (map (fn [choice]
-                                  [:button.px-3.py-1.font-medium.hover:bg-indigo-50.rounded-full.hover:text-indigo-600.transition
-                                   {:class (if (= @!view choice) "bg-indigo-100 text-indigo-600" "text-slate-500")
-                                    :on-click #(reset! !view choice)}
-                                   choice]) [:stream :latest]))
-                     [:button.text-xs.rounded-full.px-3.py-1.border-2.font-sans.hover:bg-slate-100.cursor-pointer
-                      {:on-click #(nextjournal.clerk.render/clerk-eval `(tap/reset-taps!))} "Clear"]]
-                    (into [:div]
-                          (nextjournal.clerk.viewer/inspect-children opts)
-                          (cond->> taps (= :latest @!view) (take 1)))]))})
+  {:render-fn '(fn [taps {:as opts :keys [taps-view]}]
+                 [:div
+                  [:div.flex.justify-between.items-center
+                   (into [:div.flex.items-center.font-sans.text-xs.mb-3 [:span.text-slate-500.mr-2 "View-as:"]]
+                         (map (fn [choice]
+                                [:button.px-3.py-1.font-medium.hover:bg-indigo-50.rounded-full.hover:text-indigo-600.transition
+                                 {:class (if (= taps-view choice) "bg-indigo-100 text-indigo-600" "text-slate-500")
+                                  :on-click #(nextjournal.clerk.render/clerk-eval `(set-view! ~choice))}
+                                 choice]) [:stream :latest]))
+                   [:button.text-xs.rounded-full.px-3.py-1.border-2.font-sans.hover:bg-slate-100.cursor-pointer
+                    {:on-click #(nextjournal.clerk.render/clerk-eval `(tap/reset-taps!))} "Clear"]]
+                  (into [:div]
+                        (nextjournal.clerk.viewer/inspect-children opts)
+                        (cond->> taps (= :latest taps-view) (take 1)))])})
 
 (defn open!
   ([id]
    (case id
      ::taps (open! id {:title "🚰 Taps" :css-class "p-0"}
                    (v/with-viewers (v/add-viewers [tap/tap-viewer])
-                       (v/with-viewer taps-viewer @tap/!taps)))))
+                       (v/with-viewer taps-viewer {:nextjournal/opts {:taps-view @!taps-view}}
+                         @tap/!taps)))))
   ([id content] (open! id {} content))
   ([id opts content]
    ;; TODO: consider calling v/transform-result
@@ -44,10 +48,9 @@
 
 #_(open! ::taps)
 #_(doseq [f @@(resolve 'clojure.core/tapset)] (remove-tap f))
-#_(reset! !taps ())
 #_(tap> (range 30))
 #_(destroy! ::taps)
-#_(tap> (v/html [:h1 "Ahoi"]))
+#_(tap> (v/plotly {:data [{:y [1 2 3]}]}))
 #_(tap> (v/table [[1 2] [3 4]]))
 #_(open! ::my-window {:title "🔭 Rear Window"} (v/table [[1 2] [3 4]]))
 #_(open! ::my-window {:title "🔭 Rear Window"} (range 30))