Implement CaseSensitiveQuery #39
4 changed files with 13 additions and 3 deletions
|
@ -78,6 +78,8 @@
|
||||||
boards))))
|
boards))))
|
||||||
|
|
||||||
(defn config-fill-board-defaults
|
(defn config-fill-board-defaults
|
||||||
|
;; TODO: must have check that if board is default, it's enabled, if it's not, give some big fat warning
|
||||||
|
;; that users must always specify board, maybe change the error?
|
||||||
"Fills every enabled board with default config values"
|
"Fills every enabled board with default config values"
|
||||||
[config]
|
[config]
|
||||||
(let [defaults (:boards-defaults config)]
|
(let [defaults (:boards-defaults config)]
|
||||||
|
|
|
@ -72,6 +72,7 @@
|
||||||
(let [config (conf/get-some-config (:config options))]
|
(let [config (conf/get-some-config (:config options))]
|
||||||
;; TODO: probably refactor to use separate config.clj file when validation will be added
|
;; TODO: probably refactor to use separate config.clj file when validation will be added
|
||||||
;; Init the few globals we have
|
;; Init the few globals we have
|
||||||
|
;; TODO: this all needs to go in separate function so it doesnt have to duplicated in repl-main
|
||||||
(reset! conf/GLOBAL-CONFIG config)
|
(reset! conf/GLOBAL-CONFIG config)
|
||||||
(reset! feed/boards-enabled-cache (set (keys (get config :boards-enabled))))
|
(reset! feed/boards-enabled-cache (set (keys (get config :boards-enabled))))
|
||||||
(reset! watcher/chod-threads-cache (watcher/generate-chod-cache-structure config))
|
(reset! watcher/chod-threads-cache (watcher/generate-chod-cache-structure config))
|
||||||
|
@ -83,6 +84,12 @@
|
||||||
(defn repl-main
|
(defn repl-main
|
||||||
"Development entry point"
|
"Development entry point"
|
||||||
[]
|
[]
|
||||||
|
(let [config (conf/get-some-config nil)]
|
||||||
|
;; TODO: probably refactor to use separate config.clj file when validation will be added
|
||||||
|
;; Init the few globals we have
|
||||||
|
(reset! conf/GLOBAL-CONFIG config)
|
||||||
|
(reset! feed/boards-enabled-cache (set (keys (get config :boards-enabled))))
|
||||||
|
(reset! watcher/chod-threads-cache (watcher/generate-chod-cache-structure config)))
|
||||||
(jetty/run-jetty (rp/wrap-params #'feed/http-handler)
|
(jetty/run-jetty (rp/wrap-params #'feed/http-handler)
|
||||||
{:port (:port conf/CONFIG-DEFAULT)
|
{:port (:port conf/CONFIG-DEFAULT)
|
||||||
;; Dont block REPL thread
|
;; Dont block REPL thread
|
||||||
|
|
|
@ -74,6 +74,7 @@
|
||||||
{k (map-apply-defaults conf-val default-val)}
|
{k (map-apply-defaults conf-val default-val)}
|
||||||
{k (nil?-else conf-val default-val)})))))
|
{k (nil?-else conf-val default-val)})))))
|
||||||
|
|
||||||
|
;; This is a shitty version of reduce-kv
|
||||||
(defn fmap
|
(defn fmap
|
||||||
"Applies function [f] to every key and value in map [m]
|
"Applies function [f] to every key and value in map [m]
|
||||||
Function signature should be (f [key value]).
|
Function signature should be (f [key value]).
|
||||||
|
|
Loading…
Reference in a new issue