From 6c825bcaaaf848d228ebf0cafbe1d9d5017ed267 Mon Sep 17 00:00:00 2001
From: Felisp <rspointer@post.cz>
Date: Tue, 27 Aug 2024 14:24:09 +0200
Subject: [PATCH] Emergency bugfix for wrong URL generation

---
 project.clj                             | 2 +-
 src/rss_thread_watch/core.clj           | 3 ++-
 src/rss_thread_watch/feed_generator.clj | 4 ++--
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/project.clj b/project.clj
index 382df6f..fcd2fc8 100644
--- a/project.clj
+++ b/project.clj
@@ -1,4 +1,4 @@
-(defproject rss-thread-watch "0.4.2-SNAPSHOT"
+(defproject rss-thread-watch "0.4.3-SNAPSHOT"
   :description "RSS based thread watcher"
   :url "http://example.com/FIXME"
   :license {:name "AGPL-3.0-only"
diff --git a/src/rss_thread_watch/core.clj b/src/rss_thread_watch/core.clj
index 0969835..fc37fdc 100644
--- a/src/rss_thread_watch/core.clj
+++ b/src/rss_thread_watch/core.clj
@@ -23,7 +23,7 @@
             [rss-thread-watch.utils :as u])
   (:gen-class))
 
-(def VERSION "0.4.2")
+(def VERSION "0.4.3")
 
 ;; Internal default config
 (def CONFIG-DEFAULT
@@ -36,6 +36,7 @@
                      :starting-page 7
                      :default-chod 94
                      :target "https://api.4chan.org"
+                     :host "https://boards.4chan.org"
                      :lazy-load true}
    :boards-enabled {"/mlp/" {:lazy-load false}
                     "/g/" {:starting-page 7}
diff --git a/src/rss_thread_watch/feed_generator.clj b/src/rss_thread_watch/feed_generator.clj
index 63a5f5d..df1b427 100644
--- a/src/rss_thread_watch/feed_generator.clj
+++ b/src/rss_thread_watch/feed_generator.clj
@@ -86,7 +86,7 @@
 (defn thread-to-rss-item
   "Converts cached thread item to feed item which can be serialized into RSS"
   [t host board]
-  (let [link-url (str host board (:no t))]
+  (let [link-url (str host board "thread/" (:no t))]            ;Hardcode emergency bugfix
   {: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
    :description (format "The thread: '%s' has %.2f%% chance of dying" (:title t) (:chod t))
@@ -97,7 +97,7 @@
   "Generates feed from matching items"
   [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.2" ;TODO: hardcoded string here, remake to reference to config.clj
+        head {:title "RSS Thread watcher v0.4.3" ;TODO: hardcoded string here, remake to reference to config.clj
               :link "https://tools.treebrary.org/thread-watcher/feed.xml"
               :feed-url "https://tools.treebrary.org/thread-watcher/feed.xml"
               :description "RSS based thread watcher"}