MyFavMirrors/RSSPAPER
1
0
Fork 0
mirror of https://github.com/tanrax/RSSPAPER.git synced 2025-11-25 12:06:14 -05:00
Code Issues Packages Projects Releases Wiki Activity

Update icons and fix cover

Browse Source
This commit is contained in:
Andros Fenollosa
2021-07-31 21:30:57 +02:00
parent 033c341b0d
commit 27d2c4625c
17 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/rsspaper/feeds.clj
View File

@@ -40,10 +40,13 @@
;; Add cover to article search first image in description
;; Iterate every blog
(map (fn [article]
(let [url-article (get-in article [:feed :link])
; User feedback
(prn (str "Looking for cover image for article > " (:link article)))
; Search cover image
(let [url-article (:link article)
html (:body (client/get url-article {:insecure? true}))
url-og-image (second (re-find #"<meta[^>].*?property=\"og:image(?::url)?\".*?content=\"(.*?)\".*?>|<meta[^>].*?content=\"(.*?)\".*?property=\"og:image(?::url)?\".*?>" html))
url-first-image (second (re-find #"<main.*>[\s\S]*<img[^>]+src=\"([^\"\'|>]+)\"|id=[\'\"] ?main ?[\'\"]>[\s\S]*<img[^>]+src=\"([^\"\'|>]+)\"|class=[\'\"] ?main ?[\'\"]>[\s\S]*<img[^>]+src=\"([^\"\'|>]+)\"" html))
url-first-image (second (re-find #"<main.*>[\s\S]+<img[^>]+src=\"([^\">]+)\"|id=['\"] ?main ?['\"]>[\s\S]+<img[^>]+src=\"([^\">]+)\"|class=['\"] ?main ?[\'\"]>[\s\S]+<img[^>]+src=\"([^\">]+)\"" html))
images [url-og-image url-first-image]
url-final-image (first (filter (fn [item] (not (nil? item))) images))]
(assoc article :cover url-final-image))) articles))
@@ -61,6 +64,8 @@
(fn [feeds feed-url]
; Read feed
(let [feed (parse-url feed-url {:insecure? true :throw-exceptions false})]
; User feedback
(prn (str "Reading RSS > " feed-url))
; Check is not null
(if-not (nil? feed)
; Add feed