Clojure work to reomve embedded gists and replace with code blocks

README.md

Not a big fan of the my old embedded gists in posts so lets get them outta here.

• Find all posts (historical ones) that have gists
• Get the raw gist content and possibly syntax type (probably via api)
• syntax highlight that
• replace script tags (and noscript tags) with the generated syntax highlights code in a pre tag
• win big
• hilary

files.clj

(ns briefcase.files
  (require [stasis.core :as stasis]))

(def articles
  (stasis/slurp-directory "resources/content/articles" #".*\.md$"))

(defn has-gists [[path content]]
  (not (nil? (re-find #"https://gist\.github\.com/" content))))

(defn extract-gists [content]
  (map #(nth % 1) (re-seq #"[\"|\'](http[s]?://gist\.github\.com/\d*\.js(\?[^\'\"]*)?)[\"|\']" content)))



(defn get-one [path] (let [gisted (filter has-gists articles)]
  (get (zipmap (keys gisted) (map extract-gists (vals gisted))) path)))

(map extract-gists (vals (filter has-gists articles)))
(get-one "/2011-06-21-microorms-for-dotnet-inserts-updates-deletes.md")

(def content "")

(has-gists ["" content])

(re-find #"a" "jmes")



(re-seq #"[\"|\'](http[s]?://gist\.github\.com/\d*\.js(\?[^\'\"]*)?)[\"|\']" content)