MyFavMirrors
/
RSSPAPER
mirror of https://github.com/tanrax/RSSPAPER.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update feeds.clj

This commit is contained in:
Andros Fenollosa 2021-07-31 11:21:45 +02:00 committed by GitHub
parent ad64857fcf
commit 894b432ead
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/rsspaper/feeds.clj
View File

@ -42,9 +42,9 @@
(map (fn [article]
(let [url-article (get-in article [:feed :link])
html (:body (client/get url-article {:insecure? true}))
first-content (second (re-find #"^<meta.*content=\"([^\">]+)\".*property=\"og:image(?::url)?\".*>$" html))
second-content (second (re-find #"^<meta.*property=\"og:image(?::url)?\".*content=\"([^\">]+)\".*>$" html))
first-image (second (re-find #"<img[^>]+src=\"([^\">]+)\"" html))
first-content (second (re-find #"<meta.*content=\"([^\">]+)\"[^>].*property=\"og:image(?::url)?\".*>" html))
second-content (second (re-find #"<meta.*property=\"og:image(?::url)?\"[^>].*content=\"([^\">]+)\".*>" html))
first-image (second (re-find #"(<main|id=\".*main.*\"|class=\".*main.*\").*<img[^>]+src=\"([^\">]+)\"" html))
images [first-content second-content first-image]
final-image (first (filter (fn [item] (not (nil? item))) images))]
(assoc article :cover final-image))) articles))