mezzo/buch_des_monats
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Packages Wiki Activity Actions

Layout works now

Browse source
This commit is contained in:
Aaron Mueller 2014-03-25 00:05:46 +01:00
parent e1d8943c96
commit e3714f87ff
1 changed files with 23 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/buchdesmonats/core.clj
View file

@ -6,7 +6,7 @@
[clojure.java.io :as io]
[me.raynes.fs :as fs]))
(def config {:books-url "https://raw.github.com/CTHN/wiki-data/master/pages/projects/buch_des_monats.mkd"
(def *config* {:books-url "https://raw.github.com/CTHN/wiki-data/master/pages/projects/buch_des_monats.mkd"
:target-dir (io/file "public" "book-covers")})
(defn imgurl->bytes [lovelybooks-url]
@ -39,9 +39,27 @@
(defn find-missing-covers [books-url target-dir]
(remove #(fs/exists? (url->file % target-dir))
(scrape-book-urls books-url)))
(html/defsnippet cover-item-model "buchdesmonats/layout.html" [:div#covers :> :div]
[link title]
[:a] (html/set-attr :href link)
[:img] (html/set-attr :src (url->file link "book-covers") :title title))
(html/deftemplate index-template "buchdesmonats/layout.html"
[cover-urls]
[:#covers] (html/content (map
#(cover-item-model % "To LovelyBooks")
cover-urls)))
(defn generate-html [book-urls target-dir]
(let [content (apply str (index-template book-urls))]
(with-open [out (io/writer (io/file "public" "index.html"))]
(.write out content))))
(defn -main [& args]
(fs/mkdirs (:target-dir config))
(doall (pmap #(scrape-book-cover % (:target-dir config))
(find-missing-covers (:books-url config) (:target-dir config))))
(fs/mkdirs (:target-dir *config*))
;;; TODO: refactor the whole config shit
(generate-html (scrape-book-urls (:books-url *config*)) "public")
(doall (pmap #(scrape-book-cover % (:target-dir *config*))
(find-missing-covers (:books-url *config*) (:target-dir *config*))))
true)