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

Final polishing

Browse source
This commit is contained in:
Aaron Mueller 2014-03-25 23:41:56 +01:00
parent e3714f87ff
commit 5c4d0d897a
2 changed files with 44 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/buchdesmonats/core.clj
View file

@ -6,9 +6,6 @@
[clojure.java.io :as io] [clojure.java.io :as io]
[me.raynes.fs :as fs])) [me.raynes.fs :as fs]))
(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] (defn imgurl->bytes [lovelybooks-url]
(-> (java.net.URL. lovelybooks-url) (-> (java.net.URL. lovelybooks-url)
html/html-resource html/html-resource
@ -21,8 +18,10 @@
(defn url->file [lovelybooks-url target-dir] (defn url->file [lovelybooks-url target-dir]
(let [[_ author title] (re-find #".\/autor\/([^\/]+)\/(.+)-([0-9]+)-.\/$" lovelybooks-url)] (let [[_ author title] (re-find #".\/autor\/([^\/]+)\/(.+)-([0-9]+)-.\/$" lovelybooks-url)]
(io/file target-dir (-> (str author "_" title ".jpg")
(str/lower-case (str author "_" title ".jpg"))))) str/lower-case
(str/replace #"[^a-z0-9-_.]" "")
(#(io/file target-dir %)))))
(defn scrape-book-urls [github-url] (defn scrape-book-urls [github-url]
(->> (http-client/get github-url) (->> (http-client/get github-url)
@ -47,8 +46,8 @@
(html/deftemplate index-template "buchdesmonats/layout.html" (html/deftemplate index-template "buchdesmonats/layout.html"
[cover-urls] [cover-urls]
[:#covers] (html/content (map [:#covers] (html/content
#(cover-item-model % "To LovelyBooks") (map #(cover-item-model % "zu Lovely Books")
cover-urls))) cover-urls)))
(defn generate-html [book-urls target-dir] (defn generate-html [book-urls target-dir]
@ -57,9 +56,10 @@
(.write out content)))) (.write out content))))
(defn -main [& args] (defn -main [& args]
(fs/mkdirs (:target-dir *config*)) (let [github-url "https://raw.github.com/CTHN/wiki-data/master/pages/projects/buch_des_monats.mkd"
;;; TODO: refactor the whole config shit target-dir (io/file "public" "book-covers")]
(generate-html (scrape-book-urls (:books-url *config*)) "public") (fs/mkdirs target-dir)
(doall (pmap #(scrape-book-cover % (:target-dir *config*)) (generate-html (scrape-book-urls github-url) "public")
(find-missing-covers (:books-url *config*) (:target-dir *config*)))) (doall (pmap #(scrape-book-cover % target-dir)
true) (find-missing-covers github-url target-dir)))
true))

30
src/buchdesmonats/layout.html Normal file
View file

@ -0,0 +1,30 @@
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>cthn.de -- Buch des Monats</title>
<link rel="stylesheet" href="styles.css">
<script src="vendors/jquery-2.1.0.min.js"></script>
<script src="vendors/masonry-3.1.5.pkgd.min.js"></script>
<script src="main.js"></script>
</head>
<body>
<h1>Buch des Monats</h1>
<p>Handerlesen und für gut befunden seit 2010
von <a href="https://twitter.com/mezzomix22" rel="author">Michael
Reutter</a>. Jeden Monat ein neues Buch aus seiner Sammlung zu den
Themengebieten Netzkultur, Geektum, Computerspiele und
Cyberpunk. Als <a href="http://cthn.de/projects/buch_des_monats">CTHN-Projekt</a>
begonnen ist diese Bücherliste mittlerweile Anlaufstelle für so manchen
Leser der nach neuem Stoff sucht. Die Buchcover stammen
von <a href="http://lovelybooks.de/">Lovely Books</a>, <a href="https://github.com/aaronmueller/buchdesmonats">der Code</a>
von <a href="https://aaron-mueller.de/">Aaron Mueller</a>.</p>
<div id="covers">
<div class="cover-item">
<a href="#">
<img src="#" alt="LovelyBooks cover" title="Book title">
</a>
</div>
</body>
</html>