public/PriceBot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Oh, right, options are nested.

Browse Source
This commit is contained in:
niten 2022-06-20 15:05:07 -07:00
parent eaf901c050
commit 9ab84d6e96
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/pricebot/core.clj
View File

@ -183,15 +183,15 @@
(with-out-str (clojure.pprint/pprint o))) (with-out-str (clojure.pprint/pprint o)))
(defn get-args [keys args] (defn get-args [keys args]
(let [input-opts (parse-opts args cli-opts) (let [{:keys [options arguments errors summary]} (parse-opts args cli-opts)
opts (into {} (map (partial get-key input-opts) keys)) resolved (into {} (map (partial get-key options) keys))
missing (filter (fn [k] (not (get opts k))) keys)] missing (filter (fn [k] (not (get resolved k))) keys)]
(cond (:help opts) (exit! 0 (:summary opts)) (cond (:help options) (exit! 0 summary)
(:errors opts) (exit! 1 (str/join \newline (:errors opts))) errors (exit! 1 (str/join \newline errors))
(not (empty? missing)) (exit! 2 (str "missing arguments: " (str/join " " (map name missing)) (not (empty? missing)) (exit! 2 (str "missing arguments: " (str/join " " (map name missing))
\newline \newline
"available: " (pprint-to-string opts))) "available: " (pprint-to-string opts)))
:else opts))) :else resolved)))
(defn -main [& args] (defn -main [& args]
(let [required-keys [:exchange-host (let [required-keys [:exchange-host