9 lines
271 B
Clojure
9 lines
271 B
Clojure
|
(ns buchdesmonats.sources.mojoreads
|
||
|
(:require [net.cgrand.enlive-html :as html]))
|
||
|
|
||
|
(defn find-cover-image [url]
|
||
|
(-> (html/html-resource (java.net.URL. url))
|
||
|
(html/select [:div.mojoreads-page-content-container :img])
|
||
|
(first)
|
||
|
(get-in [:attrs :src])))
|