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)))
(defn get-args [keys args]
(let [input-opts (parse-opts args cli-opts)
opts (into {} (map (partial get-key input-opts) keys))
missing (filter (fn [k] (not (get opts k))) keys)]
(cond (:help opts) (exit! 0 (:summary opts))
(:errors opts) (exit! 1 (str/join \newline (:errors opts)))
(let [{:keys [options arguments errors summary]} (parse-opts args cli-opts)
resolved (into {} (map (partial get-key options) keys))
missing (filter (fn [k] (not (get resolved k))) keys)]
(cond (:help options) (exit! 0 summary)
errors (exit! 1 (str/join \newline errors))
(not (empty? missing)) (exit! 2 (str "missing arguments: " (str/join " " (map name missing))
\newline
"available: " (pprint-to-string opts)))
:else opts)))
:else resolved)))
(defn -main [& args]
(let [required-keys [:exchange-host