2021-03-04 20:59:24 +01:00
|
|
|
(ns buchdesmonats.sources.mojoreads)
|
2020-11-10 20:43:04 +01:00
|
|
|
|
|
|
|
(defn find-cover-image [url]
|
2021-03-04 20:59:24 +01:00
|
|
|
(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")))
|