Fix showing new taps

Author: zampino

src/nextjournal/clerk/window.clj

@@ -17,26 +17,24 @@
                        (v/with-viewer taps-viewer @tap/!taps)))))
   ([id content] (open! id {} content))
   ([id opts content]
+   ;; TODO: consider calling v/transform-result
    (webserver/update-window! id (merge opts {:nextjournal/presented (update (v/present content) :nextjournal/css-class #(or % ["px-0"]))
                                              :nextjournal/hash (gensym)
                                              :nextjournal/fetch-opts {:blob-id (str id)}
                                              :nextjournal/blob-id (str id)}))))
 
+(add-watch tap/!taps ::tap-watcher (fn [_ _ _ _] (open! ::taps)))
+
 (defn destroy! [id] (webserver/destroy-window! id))
 
 (defn destroy-all! []
   (doseq [w (keys @webserver/!windows)]
     (destroy! w)))
 
 #_(open! ::taps)
-
-#_(defn tapped [x] (swap! !taps conj x) (open! ::taps))
-#_(defonce taps-setup (add-tap tapped))
-
 #_(doseq [f @@(resolve 'clojure.core/tapset)] (remove-tap f))
 #_(reset! !taps ())
 #_(tap> (range 30))
-#_(open! ::taps)
 #_(destroy! ::taps)
 #_(tap> (v/html [:h1 "Ahoi"]))
 #_(tap> (v/table [[1 2] [3 4]]))