Preserve TOC opts (#806)

Fixes #804.

Author: borkdude

src/nextjournal/clerk/parser.cljc

@@ -479,7 +479,7 @@
                                 (assoc :add-comment-on-line? true)
                                 (update :nodes rest)
                                 (assoc :block-settings next-block-settings)
-                                (assoc-in [:md-context :opts] md-settings)
+                                (update-in [:md-context :opts] merge md-settings)
                                 (update :blocks conj (add-block-id code-block)))
                       (not (contains? state :ns))
                       (assoc :ns *ns*)))

test/nextjournal/clerk/parser_test.clj

@@ -66,7 +66,16 @@ line\""}]
       (is (match? '([{:type :text, :text "$1 + $2 = $3"}]
                     [{:type :formula, :text "1 + "} {:type :text, :text "2 = $3"}]
                     [{:type :text, :text "$1 + $2 = $3"}])
-                  contents)))))
+                  contents))))
+
+  (testing "heading ids are preserved in toc (#804)"
+    (let [parsed (parser/parse-clojure-string "^:nextjournal.clerk/toc (ns example)
+
+;; # Workload Analysis
+
+;; some text")]
+      (is (match? {:toc {:children [{:type :toc :attrs {:id "workload-analysis"}}]}}
+                  parsed)))))
 
 (deftest parse-inline-comments
   (is (match? {:blocks [{:doc {:content [{:content [{:text "text before"}]}]}}