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

Add edition

Browse Source
This commit is contained in:
Andros Fenollosa
2021-07-07 01:07:59 +02:00
parent da7a19f62b
commit 678a973c19
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/rsspaper/feeds.clj
View File

@@ -17,12 +17,12 @@
(defn filter-edition
[articles]
(let [daily (- (c/to-long (t/now)) 86400), weekly (- (c/to-long (t/now)) 604800)]
(let [daily (- (c/to-long (t/now)) 86400)
weekly (- (c/to-long (t/now)) 604800)]
(case (:edition config)
"daily" articles
"weekly" articles
:else articles
)))
"daily" (filter (fn [article] (> (:published-date article) daily)) articles)
"weekly" (filter (fn [article] (> (:published-date article) weekly)) articles)
:else articles)))
(defn add-datetimes-formatter
@@ -58,8 +58,8 @@
(conj feeds
(parse-url feed-url {:insecure? true :throw-exceptions false}))
) [] (:feeds config))
filter-edition
zip-feeds-in-articles
add-cover-article
datetimes-to-unixtime
filter-edition
add-cover-article
add-datetimes-formatter))))