Remove panel

Author: mk

src/nextjournal/clerk/render.cljs

@@ -14,7 +14,6 @@
             [nextjournal.clerk.render.context :as view-context]
             [nextjournal.clerk.render.hooks :as hooks]
             [nextjournal.clerk.render.navbar :as navbar]
-            [nextjournal.clerk.render.panel :as panel]
             [nextjournal.clerk.viewer :as viewer]
             [nextjournal.clerk.walk :as w]
             [reagent.core :as r]
@@ -33,13 +32,11 @@
   (r/atom {:eval-counter 0
            :doc nil
            :viewers viewer/!viewers
-           :panels {}
            :render-errors []}))
 
 (defonce !eval-counter (r/cursor !state [:eval-counter]))
 (defonce !doc (r/cursor !state [:doc]))
 (defonce !viewers (r/cursor !state [:viewers]))
-(defonce !panels (r/cursor !state [:panels]))
 (defonce !render-errors (r/cursor !state [:render-errors]))
 
 (defn reagent-atom? [x]
@@ -567,11 +564,6 @@
     [view-context/provide {:fetch-fn fetch-fn}
      [inspect-presented (:desc @!state)]]))
 
-(defn show-panel [panel-id panel]
-  (swap! !panels assoc panel-id panel))
-
-#_(show-panel :test {:content [:div "Test"] :width 600 :height 600})
-
 (defn with-fetch-fn [{:nextjournal/keys [presented blob-id]} body-fn]
   ;; TODO: unify with result-viewer
   (let [!presented-value (hooks/use-state presented)
@@ -626,15 +618,7 @@
      (when-let [render-errors (not-empty @!render-errors)]
        [render-errors-overlay render-errors]))
    (when (:nextjournal/value @!doc)
-     [inspect-presented @!doc])
-   (into [:<>]
-         (map (fn [[id state]]
-                ^{:key id}
-                [panel/show
-                 (:content state)
-                 (-> state
-                     (assoc :id id :on-close #(swap! !panels dissoc id)))]))
-         @!panels)])
+     [inspect-presented @!doc])])
 
 (declare mount)