Clojurians Log v2

I do this:

(def yaml-frontmatter
  #"^---\n((?:\s|.)+?)---")

(defn yaml->map
  "Convert `yaml` kvs to a Clojure map."
  [yaml]
  (into {} (for [line (str/split yaml #"\n")]
             (let [[k v] (str/split (str/trim line) #":\s")]
               [(keyword k) v]))))

;; usage
(let [[frontmatter yaml] (re-find yaml-frontmatter markdown)]
  (yaml->map yaml))

There seems to be a commonmark extension for it: https://github.com/commonmark/commonmark-java/tree/main/commonmark-ext-yaml-front-matter https://github.com/commonmark/commonmark-java/tree/main?tab=readme-ov-file#yaml-front-matter

I don't want yaml tho, I want edn there instead

I guess manual parsing it is then

yeah, turns out - it was far easier than I expected. I shouldn't have wasted anyone's attention and time. Still, thank you for your help.

Of course cjohansen has tread this path before, here's a whole library for this https://github.com/magnars/mapdown

magnars isn't cjohansen although they work together

😱 how embarrassing. of course, I know that hah, sorry for the mistake

Also cjohansen has built powerpack off of many magnars libs

I recently met both of them in London

just ran across this, this is how I implemented edn frontmatter:

(defn parse-edn-frontmatter
  [lines-seq]
  (if (re-matches #"\{.*" (or (first lines-seq) ""))
    ;; take sequences until you hit an empty line
    (let [meta-lines (take-while (comp not (partial re-matches #"\s*"))
                                 lines-seq)]
      [(->> meta-lines
            ;; join together and parse
            (str/join "\n")
            edn/read-string)
       ;; count the trailing empty line
       (inc (count meta-lines))])
    [nil 0]))

makes sense!