From a5d7d58a25c894296423dbae3b29317e91196c38 Mon Sep 17 00:00:00 2001 From: Felisp Date: Thu, 15 Aug 2024 20:46:17 +0200 Subject: [PATCH] SYNC commit --- project.clj | 2 +- src/rss_thread_watch/feed_generator.clj | 10 +++++----- src/rss_thread_watch/watcher.clj | 3 +++ 3 files changed, 9 insertions(+), 6 deletions(-) diff --git a/project.clj b/project.clj index 2abe787..382df6f 100644 --- a/project.clj +++ b/project.clj @@ -1,4 +1,4 @@ -(defproject rss-thread-watch "0.4.1-SNAPSHOT" +(defproject rss-thread-watch "0.4.2-SNAPSHOT" :description "RSS based thread watcher" :url "http://example.com/FIXME" :license {:name "AGPL-3.0-only" diff --git a/src/rss_thread_watch/feed_generator.clj b/src/rss_thread_watch/feed_generator.clj index 33760e5..6047730 100644 --- a/src/rss_thread_watch/feed_generator.clj +++ b/src/rss_thread_watch/feed_generator.clj @@ -84,9 +84,8 @@ (map guid-fn actuall-matches))) (defn thread-to-rss-item - "If I wasnt retarded I could have made the cached version look like - rss item already but what can you do. I'll refactor I promise, I just need this done ASAP" ;Todo: do what the docstring says - [t] ;TODO: oh Luna the hardcodes ;;RESUME + "Converts cached thread item to feed item which can be serialized into RSS" + [t host board] ;;NOW2 ;TODO: oh Luna the hardcodes ;;RESUME (let [link-url (str "https://boards.4chan.org/mlp/thread/" (:no t))] ; jesus, well I said only /mlp/ is supported now so fuck it {:title (format "%.2f%% - %s" (:chod t) (:title t)) ;TODO: Generate link from the target somehow, or just include it from API response ;; :url link-url <- this is supposed to be for images according to: https://cyber.harvard.edu/rss/rss.html @@ -96,7 +95,7 @@ (defn generate-feed "Generates feed from matching items" - [query-vec chod-treshold repeat? cache] + [query-vec chod-treshold repeat? cache board-config] (let [items (filter-chod-posts query-vec chod-treshold repeat? cache) head {:title "RSS Thread watcher v0.4.1" ;TODO: hardcoded string here, remake to reference to config.clj :link "https://tools.treebrary.org/thread-watcher/feed.xml" @@ -130,6 +129,7 @@ 60 (Integer/parseInt chod)) (catch Exception e 94))) + board-config (get ) cache @watcher/chod-threads-cache] (println "\n\nRCVD: " rqst) ;; (println rqst) @@ -166,7 +166,7 @@ ;; There shouldn't be any problems with this mime type but if there are ;; replace with "text/xml", or even better, get RSS reader that is not utter shit :header {"Content-Type" "application/rss+xml"} - :body (generate-feed queries real-chod repeat? (watcher/get-thread-data board @watcher/GLOBAL-CONFIG))}) + :body (generate-feed queries real-chod repeat? (watcher/get-thread-data board @watcher/GLOBAL-CONFIG))}) ;NOW3 give board specific config here (catch Exception e ;; Ex-info has been crafted to match HTTP response body so we can send it (if-let [caught (ex-data e)] diff --git a/src/rss_thread_watch/watcher.clj b/src/rss_thread_watch/watcher.clj index 93b068c..ac1ddf1 100644 --- a/src/rss_thread_watch/watcher.clj +++ b/src/rss_thread_watch/watcher.clj @@ -47,6 +47,9 @@ (recur (rest remaining-threads) threads-total (inc index) + ;; NOW: Cache fomrat here + ;; We have to somehow include URL which is a problem since the catalog does not contain any + ;; I of course know how to craft it but the result will be kind of 4chan specific (conj! ret {:title (or (:sub thread) ;We use thread title if thread has it (:com thread) ;we use body if thread has it "") ;Thread has neither, this prevents null pointer