book setup

notebooks/chapters.edn

@@ -0,0 +1 @@
+["walkthrough"]

notebooks/dev.clj

@@ -0,0 +1,13 @@
+(ns dev
+  (:require [scicloj.clay.v2.api :as clay]))
+
+(clay/make! {:format [:quarto :html]
+             :base-source-path "notebooks"
+             :source-path (->> "notebooks/chapters.edn"
+                               slurp
+                               clojure.edn/read-string
+                               (map #(format "hanacloth/%s.clj" %))
+                               (cons "index.clj"))
+             :base-target-path "docs"
+             :book {:title "Hanacloth"}
+             :clean-up-target-dir true})

notebooks/index.clj

@@ -0,0 +1,42 @@
+;; # Preface
+
+^:kindly/hide-code
+(ns index
+  (:require [scicloj.kindly.v4.api :as kindly]
+            [scicloj.kindly.v4.kind :as kind]
+            [clojure.string :as str]
+            [clojure.string :as string]
+            [scicloj.clay.v2.api :as clay]))
+
+^:kindly/hide-code
+(def md
+  (comp kindly/hide-code kind/md))
+
+(md "
+
+Hanacloth is a composition of Hanami data visualizations and Tablecloth datasets
+
+## Existing chapters in this book:
+")
+
+^:kindly/hide-code
+(defn chapter->title [chapter]
+  (or (some->> chapter
+               (format "notebooks/hanacloth/%s.clj")
+               slurp
+               str/split-lines
+               (filter #(re-matches #"^;; # .*" %))
+               first
+               (#(str/replace % #"^;; # " "")))
+      chapter))
+
+(->> "notebooks/chapters.edn"
+     slurp
+     clojure.edn/read-string
+     (map (fn [chapter]
+            (prn [chapter (chapter->title chapter)])
+            (format "\n- [%s](hanacloth.%s.html)\n"
+                    (chapter->title chapter)
+                    chapter)))
+     (string/join "\n")
+     md)