1
0
mirror of https://github.com/tanrax/RSSPAPER.git synced 2025-02-18 17:12:35 -05:00

Update feeds.clj

This commit is contained in:
Andros Fenollosa 2021-07-31 11:07:41 +02:00 committed by GitHub
parent 831ab88001
commit 4080ac1435
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

@ -42,8 +42,8 @@
(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-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))
images [first-content second-content first-image]
final-image (first (filter (fn [item] (not (nil? item))) images))]
@ -74,4 +74,4 @@
filter-edition
order-published
add-cover-article
add-datetimes-formatter))
add-datetimes-formatter))