project.clj

@@ -1,4 +1,4 @@
-(defproject rss-thread-watch "0.4.4-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"

res/ExampleConfig-documented.edn

@@ -14,12 +14,14 @@
                    :starting-page 7
                    ;; Default ChOD to use if none is specified by the user
                    :default-chod 94
-                   ;; This is target for Catalog API requests
+                   ;; If you want to do some preprocessing beforehand, you can override
-                   ;; {board} will be substitued for board
+                   ;; target URL for the board, but the response must be same the 4chan API would return
-                   :target "https://api.4chan.org/{board}/catalog.json"
+                   ;; /$board/catalog.json will be appended to this link
-                   ;; This is where threads actually reside if different from :target
+                   ;; This is target for API requests
-                   ;; you can use {board} and {threadnum} for substitutions
+                   :target "https://api.4chan.org"
-                   :host "https://boards.4chan.org/{board}/thread/{threadnum}"
+                   ;; This host that has the actual threads, /board/thread-no will be appeneded
+                   ;; to this
+                   :host "https://boards.4chan.org"
                    ;; Commented parts bellow are still unimplemented
                    ;; ------
                    ;; Only download catalog when someone requests feed and cache is old

src/rss_thread_watch/core.clj

@@ -15,7 +15,6 @@
 (ns rss-thread-watch.core
   (:require [clojure.java.io :as io]
             [clojure.edn :as edn]
-            [clojure.string :as s]
             [clojure.tools.cli :refer [parse-opts]]
             [ring.adapter.jetty :as jetty]
             [ring.middleware.params :as rp]
@@ -24,7 +23,7 @@
             [rss-thread-watch.utils :as u])
   (:gen-class))
 
-(def VERSION "0.4.4")
+(def VERSION "0.4.3")
 
 ;; Internal default config
 (def CONFIG-DEFAULT
@@ -36,8 +35,8 @@
    :boards-defaults {:refresh-rate 300
                      :starting-page 7
                      :default-chod 94
-                     :target "https://api.4chan.org/{board}/catalog.json"
+                     :target "https://api.4chan.org"
-                     :host "https://boards.4chan.org/{board}/thread/{threadnum}"
+                     :host "https://boards.4chan.org"
                      :lazy-load true}
    :boards-enabled {"/mlp/" {:lazy-load false}
                     "/g/" {:starting-page 7}
@@ -77,31 +76,17 @@
       (with-open [r (io/reader fl)]
         (edn/read (java.io.PushbackReader. r))))))
 
-(defn config-url-expand
-  "Expands substitution in :target and :host fields"
-  [filled-config]
-  (let [boards (get filled-config :boards-enabled)
-        selecting '(:target :host)
-        pattern "{board}"]
-    (u/fmap (fn [board confs]
-              (->> (select-keys confs selecting)
-                   (u/fmap (fn [k v]
-                             (s/replace v pattern (s/replace board "/" ""))))
-                   (merge confs)))
-            boards)))
-
 (defn config-fill-board-defaults
   "Fills every enabled board with default config values"
   [config]
   (let [defaults (:boards-defaults config)]
-    (-> config
+    (dissoc (update-in config
-        (update-in '(:boards-enabled)
+                       '(:boards-enabled)
-                   (fn [mp]
+                       (fn [mp]
-                     (u/fmap (fn [k v]
+                         (u/fmap (fn [k v]
-                               (assoc (u/map-apply-defaults v defaults) :name k))
+                                   (assoc (u/map-apply-defaults v defaults) :name k))
-                             mp)))
+                                 mp)))
-        (dissoc :boards-defaults)
+            :boards-defaults)))
-        (config-url-expand))))
 
 (defn get-some-config
   "Attempts to get config somehow,

src/rss_thread_watch/feed_generator.clj

@@ -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.4" ;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"}