14 lines
321 B
Clojure
14 lines
321 B
Clojure
(ns buchdesmonats.sources.mojoreads)
|
|
|
|
(defn find-cover-image [url]
|
|
(let [isbn (re-find #"[0-9]+" url)]
|
|
(str "https://medien.ubitweb.de/bildzentrale_original/"
|
|
(subs isbn 0 3)
|
|
"/"
|
|
(subs isbn 3 6)
|
|
"/"
|
|
(subs isbn 6 9)
|
|
"/"
|
|
(subs isbn 9)
|
|
".jpg")))
|