Takes a ghost export file on stdin. Writes markdown files with headers in ./

ghost-to-md.clj

#!/usr/bin/env bb

(def md-head-template
  "---
path: \"/blog/%s\"
date: \"%s\"
title: \"%s\"
---
")

(defn post->date
  [post]
  (first (str/split (:created_at post) #" ")))


(defn post->md
  [post]
  (str
   (format md-head-template
           (:slug post)
           (post->date post)
           (:title post))
   "\n"
   (:plaintext post)))


(def posts (-> *in*
               io/reader
               (json/parse-stream true)
               :db
               first
               :data
               :posts
               (as-> posts (filter #(not= (:status %) "draft") posts))))


(doseq [post posts]
  (spit (str "./"
             (post->date post)
             "-"
             (:slug post) ".md")
        (post->md post)))