(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")))