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

Merge branch 'master' of https://git.okoyono.de/mezzomix/buch_des_monats.git

Browse source
This commit is contained in:
Michael Reutter 2016-01-31 19:53:40 +01:00
commit 6401ba2f5a
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
project.clj
View file

@ -1,13 +1,13 @@
(defproject buchdesmonats "1.2" (defproject buchdesmonats "1.3"
:description "A simple tool to fetch all books of the month from the okoyono.de project." :description "A simple tool to fetch all books of the month from the okoyono.de project."
:url "https://git.okoyono.de/mezzomix/buch_des_monats" :url "https://git.okoyono.de/mezzomix/buch_des_monats"
:license {:name "MIT License" :license {:name "MIT License"
:url "http://opensource.org/licenses/MIT"} :url "http://opensource.org/licenses/MIT"}
:dependencies [[org.clojure/clojure "1.6.0"] :dependencies [[org.clojure/clojure "1.7.0"]
[org.clojure/tools.logging "0.3.1"] [org.clojure/tools.logging "0.3.1"]
[enlive "1.1.5"] [enlive "1.1.6"]
[me.raynes/fs "1.4.6"] [me.raynes/fs "1.4.6"]
[clj-http "1.1.2"]] [clj-http "2.0.0"]]
:main ^:skip-aot buchdesmonats.core :main ^:skip-aot buchdesmonats.core
:profiles {:uberjar {:aot :all}}) :profiles {:uberjar {:aot :all}})

1
src/buchdesmonats/core.clj
View file

@ -32,7 +32,6 @@
(html/select [:div.bookcoverXXL :> :div :> :img]) (html/select [:div.bookcoverXXL :> :div :> :img])
first first
(get-in [:attrs :src]) (get-in [:attrs :src])
(#(str "http:" %))
(http-client/get {:as :byte-array}) (http-client/get {:as :byte-array})
:body)) :body))