Treebrary.org/rss-thread-watcher
1
0
Fork 0
Code Issues 19 Pull requests Projects 2 Releases 2 Packages Wiki Activity

Refactored that horrible abomination of a code

Browse source 
I don't do drugs but I must have or something, otherwise that is just
unexplainable, I'm sorry if you had to see that, I really am
This commit is contained in:
Felisp 2024-09-24 00:53:47 +02:00
parent 8d61968dc9
commit 18cc3e730c
1 changed files with 5 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/rss_thread_watch/feed_generator.clj
View file

@ -145,18 +145,12 @@
;; qrs (prms "q") ;; qrs (prms "q")
self-uri (str (s/replace-first scheme ":" "") self-uri (str (s/replace-first scheme ":" "")
"://" server-name uri "?" query) "://" server-name uri "?" query)
;; queries (if (vector? qrs) qrs [qrs]) ; to always return vector
real-chod (if-let [ch (or (and (vector? chod)
(first chod))
chod)]
(try ;If we can't parse number from chod, use default 94
(if (or (vector? chod)
;; TODO: Do we seriously parse this twice?
(<= (Integer/parseInt chod) 60)) ; Never accept chod lower than 60 TODO: don't hardcode this
60 (Integer/parseInt chod))
(catch Exception e
94)))
board-config (get-in @conf/GLOBAL-CONFIG [:boards-enabled board]) board-config (get-in @conf/GLOBAL-CONFIG [:boards-enabled board])
real-chod (try (max (Integer/parseInt (or (and (vector? chod)
(first chod))
chod)) 60) ;HARDCODED CHoD
(catch Exception _
(get board-config :default-chod)))
cache @watcher/chod-threads-cache] cache @watcher/chod-threads-cache]
(println "\n\nRCVD: " rqst) (println "\n\nRCVD: " rqst)
;; (println rqst) ;; (println rqst)