-
Notifications
You must be signed in to change notification settings - Fork 24
/
slingcode-site-bootleg.clj
12 lines (12 loc) · 1.02 KB
/
slingcode-site-bootleg.clj
1
2
3
4
5
6
7
8
9
10
11
12
(let [template (html "../build/index.html")
template (enlive/at template [:head] (enlive/append (html "slingcode-social.html" :hickory-seq)))
template (enlive/at template [:link] (fn [t] (update-in t [:attrs :href] (fn [a] (str "public/" a)))))
template (enlive/at template [:script] (enlive/substitute nil))
static (html "slingcode-static.html")
static (enlive/at static [:section#about] (enlive/content (markdown (str "../" (last *command-line-args*)) :hickory-seq)))
static (enlive/at static [:p#gh-logo] (enlive/substitute nil))
static (enlive/at static [:section#about] (enlive/prepend (convert-to [:img {:src "public/img/computers-in-our-lives.jpg"}] :hickory-seq)))
static (enlive/at static [:p#youtube] (enlive/substitute (html "slingcode-embed.html" :hickory-seq)))
;static (enlive/at static [:section#about] (enlive/prepend (convert-to [:div [:p.title "Slingcode personal computing platform."]] :hickory-seq)))
]
(enlive/at template [:body] (enlive/content static)))