MyFavMirrors/RSSPAPER
1
0
Fork 0
mirror of https://github.com/tanrax/RSSPAPER.git synced 2025-04-04 20:00:42 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add sort

Browse Source
This commit is contained in:
Andros Fenollosa 2021-07-02 21:29:55 +02:00
parent 34e59753cb
commit e34e09eccd
5 changed files with 51 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
resources/themes/light.html
View File

@ -238,25 +238,23 @@
<hr class="separator"> <hr class="separator">
</header> </header>
<main class="main"> <main class="main">
{% for item in data %} {% for article in articles %}
{% for article in item.feed.entries %} <article class="feed__article article">
<article class="feed__article article"> <header class="article__header">
<header class="article__header"> {% if article.cover %}
{% if article.cover %} <p class="article__header-img">
<p class="article__header-img"> <img src="{{ article.cover }}" alt="{{ article.title }}">
<img src="{{ article.cover }}" alt="{{ article.title }}"> </p>
</p> {% endif %}
{% endif %} <div class="article__titles">
<div class="article__titles"> <h1 class="article__title">{{ article.title }}</h1>
<h1 class="article__title">{{ article.title }}</h1> <h2 class="article__feed">{{ article.feed.title }} <span class="article__date">{{ article.published-date-formatter }}</span></h2>
<h2 class="article__feed">{{ item.feed.title }} <span class="article__date">{{ article.published-date-formatter }}</span></h2> </div>
</div> </header>
</header> <main class="container article__main">
<main class="container article__main"> {{ article.description.value|safe }}
{{ article.description.value|safe }} </main>
</main> </article>
</article>
{% endfor %}
{% endfor %} {% endfor %}
</main> </main>
</div> </div>

2
rsspaper.iml
View File

@ -16,6 +16,7 @@
<orderEntry type="library" name="Leiningen: cheshire:5.9.0" level="project" /> <orderEntry type="library" name="Leiningen: cheshire:5.9.0" level="project" />
<orderEntry type="library" name="Leiningen: clj-http:3.10.2" level="project" /> <orderEntry type="library" name="Leiningen: clj-http:3.10.2" level="project" />
<orderEntry type="library" name="Leiningen: clj-rss:0.2.7" level="project" /> <orderEntry type="library" name="Leiningen: clj-rss:0.2.7" level="project" />
<orderEntry type="library" name="Leiningen: clj-time:0.15.2" level="project" />
<orderEntry type="library" name="Leiningen: clj-tuple:0.2.2" level="project" /> <orderEntry type="library" name="Leiningen: clj-tuple:0.2.2" level="project" />
<orderEntry type="library" name="Leiningen: clj-yaml:0.4.0" level="project" /> <orderEntry type="library" name="Leiningen: clj-yaml:0.4.0" level="project" />
<orderEntry type="library" name="Leiningen: clojure-complete:0.2.5" level="project" /> <orderEntry type="library" name="Leiningen: clojure-complete:0.2.5" level="project" />
@ -28,6 +29,7 @@
<orderEntry type="library" name="Leiningen: commons-io:2.6" level="project" /> <orderEntry type="library" name="Leiningen: commons-io:2.6" level="project" />
<orderEntry type="library" name="Leiningen: commons-logging:1.2" level="project" /> <orderEntry type="library" name="Leiningen: commons-logging:1.2" level="project" />
<orderEntry type="library" name="Leiningen: hiccup:1.0.5" level="project" /> <orderEntry type="library" name="Leiningen: hiccup:1.0.5" level="project" />
<orderEntry type="library" name="Leiningen: joda-time:2.10" level="project" />
<orderEntry type="library" name="Leiningen: json-html:0.4.4" level="project" /> <orderEntry type="library" name="Leiningen: json-html:0.4.4" level="project" />
<orderEntry type="library" name="Leiningen: nrepl:0.6.0" level="project" /> <orderEntry type="library" name="Leiningen: nrepl:0.6.0" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.httpcomponents/httpasyncclient:4.1.4" level="project" /> <orderEntry type="library" name="Leiningen: org.apache.httpcomponents/httpasyncclient:4.1.4" level="project" />

4
src/rsspaper/core.clj
View File

@ -1,10 +1,10 @@
(ns rsspaper.core (ns rsspaper.core
(:require (:require
[rsspaper.feeds :refer [get-feeds]] [rsspaper.feeds :refer [get-articles]]
[rsspaper.html :refer [make-html]]) (:gen-class)) [rsspaper.html :refer [make-html]]) (:gen-class))
(defn -main [& args] (defn -main [& args]
;; Main ;; Main
(prn "Reading feeds... Please be patient.") (prn "Reading feeds... Please be patient.")
(make-html (get-feeds)) (make-html (get-articles))
(prn "Generated \uD83D\uDCF0 in 'dist/index.html'!")) (prn "Generated \uD83D\uDCF0 in 'dist/index.html'!"))

44
src/rsspaper/feeds.clj
View File

@ -8,32 +8,44 @@
(def date-custom-formatter (f/formatter "dd MM yyyy")) (def date-custom-formatter (f/formatter "dd MM yyyy"))
(defn datetimes-to-unixtime (defn datetimes-to-unixtime
[data] [articles]
(map (fn [blog] (map (fn [article]
(assoc-in blog [:feed :entries] (assoc article :published-date (c/to-long (:published-date article)))) articles))
(map (fn [article]
(assoc article :published-date (c/to-long (:published-date article))))
(get-in blog [:feed :entries])))) data))
(defn add-datetimes-formatter (defn add-datetimes-formatter
[data] [articles]
(map (fn [blog] (map (fn [article]
(assoc-in blog [:feed :entries] (assoc article :published-date-formatter (f/unparse date-custom-formatter (c/from-long (:published-date article))))) articles))
(map (fn [article]
(assoc article :published-date-formatter (f/unparse date-custom-formatter (c/from-long (:published-date article)))))
(get-in blog [:feed :entries])))) data))
(defn get-feeds (defn zip-feeds-in-articles
[feeds]
;; Flat all articles
(reduce (fn [articles feed]
;; Add in every article, all information from feed
(concat articles (map (fn [article] (assoc article :feed (:feed (update-in feed [:feed] dissoc :entries)) )) (get-in feed [:feed :entries])))) [] feeds))
(defn add-cover-article
[articles]
;; Add cover to article search first image in description
;; Iterate every blog
(map (fn [article]
(assoc article :cover (second (re-find #"<img[^>]+src=\"([^\">]+)\"" (str (get-in article [:description :value])))))
) articles))
(defn get-articles
[] []
;; Get all feeds from config -> feeds ;; Get all feeds from config -> feeds
(-> (reverse (sort-by :published-date (->
(reduce (reduce
(fn [feeds feed-url] (fn [feeds feed-url]
(conj feeds (conj feeds
(parse-url feed-url {:insecure? true :throw-exceptions false})) (parse-url feed-url {:insecure? true :throw-exceptions false}))
) [] (:feeds config)) ) [] (:feeds config))
zip-feeds-in-articles
add-cover-article
datetimes-to-unixtime datetimes-to-unixtime
add-datetimes-formatter)) add-datetimes-formatter))))

16
src/rsspaper/html.clj
View File

@ -4,21 +4,9 @@
[rsspaper.config :refer [config]] [rsspaper.config :refer [config]]
[selmer.parser :as s])) [selmer.parser :as s]))
(defn add-cover-article
[data]
;; Add cover to article search first image in description
;; Iterate every blog
(map (fn [blog]
;; Replace entries
(assoc-in blog [:feed :entries]
;; New entries with add cover
(map (fn [article]
(assoc article :cover (second (re-find #"<img[^>]+src=\"([^\">]+)\"" (str (get-in article [:description :value]))))))
(get-in blog [:feed :entries])) )
) data))
(defn make-html (defn make-html
[data] [articles]
;; Render html in dist/index.html ;; Render html in dist/index.html
(let [dir "dist" (let [dir "dist"
path (str dir "/index.html")] path (str dir "/index.html")]
@ -30,5 +18,5 @@
(with-open [wrtr (io/writer path)] (with-open [wrtr (io/writer path)]
(.write wrtr (s/render-file (str "themes/" (:theme config) ".html") { (.write wrtr (s/render-file (str "themes/" (:theme config) ".html") {
:title (:title config) :title (:title config)
:data (add-cover-article data) :articles articles
}))))) })))))