bouzuya · August 21, 2012 14:35
diff --git a/core.clj b/core.clj
 (defn load-jekyll-post-file
  [post-file]
  (let [text (slurp post-file)
        [_ yaml content] (re-find #"(?m)(?s)^---\s*(.*?)^---\s*^(.*)" text)]
    (reduce (fn [m [_ k v]] (assoc m (keyword k) v))
            {:content (markdown-to-html content)}
            (re-seq #"(\w+):\s*(.*)\n" yaml))))
	(defn load-jekyll-post-file
	[post-file]
	(let [text (slurp post-file)
	[_ yaml content] (re-find #"(?m)(?s)^---\s(.?)^---\s^(.)" text)]
	(reduce (fn [m [_ k v]] (assoc m (keyword k) v))
	{:content (markdown-to-html content)}
	(re-seq #"(\w+):\s(.)\n" yaml))))
No results found