Load notebook contents initially

notebooks/test.clj

@@ -0,0 +1,4 @@
+;; # Ahoi
+(ns test)
+
+123

src/nextjournal/clerk/render/editor.cljs

@@ -326,7 +326,7 @@
  {:key "Escape"
  :run #(reset! !show-docstring? false)}]))]))
  @!container-el))]
- #_(show-notebook view)
+ (show-notebook view)
  #(.destroy view))))
  (code/use-dark-mode !view)
  [:<>
@@ -362,19 +362,26 @@
  "Shift-Alt-d" #'doc}]]]))
 
 (defn root []
- [view ";; # Ahoi"
- {:eval-notebook-fn (fn [str]
- (js/console.log :eval str )
- (.. (render/clerk-eval
- (list 'do
- (list 'println "Saving...")
- (list 'spit "notebooks/test.clj" str)
- (list 'println "Saved...")
- (list 'nextjournal.clerk/show! "notebooks/test.clj")
- :evaled))
- ;; FIXME: eval-reply
- (then (fn [r] (js/console.log :evaled r)))
- (catch (fn [e] (js/console.log :error e)))))}])
+ (let [!doc-str (hooks/use-state nil)]
+ (hooks/use-effect
+ (fn []
+ (.then (render/clerk-eval (list 'slurp "notebooks/test.clj"))
+ (fn [doc-str] (reset! !doc-str doc-str)))))
+ (if @!doc-str
+ [view @!doc-str
+ {:eval-notebook-fn (fn [str]
+ (js/console.log :eval str)
+ (.. (render/clerk-eval
+ (list 'do
+ (list 'println "Saving...")
+ (list 'spit "notebooks/test.clj" str)
+ (list 'println "Saved...")
+ (list 'nextjournal.clerk/show! "notebooks/test.clj")
+ :evaled))
+ ;; FIXME: eval-reply
+ (then (fn [r] (js/console.log :evaled r)))
+ (catch (fn [e] (js/console.log :error e)))))}]
+ [spinner-svg])))
 
 (defn ^:export init []
  (.render (react-client/createRoot (js/document.getElementById "editor"))

src/nextjournal/clerk/view.clj

@@ -77,7 +77,6 @@ viewer.init(viewer.read_string(state))\n"
  (include-viewer-css state)
  (include-css+js state))]
  [:body.dark:bg-gray-900
- [:h1 "Ahoi "]
  [:div#editor]
  [:script {:type "module"}
  (str "nextjournal.clerk.render.editor.init()\n"