#1: Provided sensible defaults for all configuration parameters.

`:verbosity` was the one whose lack was causing the null pointer exception.
This commit is contained in:
Simon Brooke 2018-09-20 13:31:21 +01:00
parent 508dc08ae7
commit ae7134ce3c

View file

@ -35,8 +35,15 @@
argument, in which case that file will be used in preference argument, in which case that file will be used in preference
to any specified in the `project.clj`." to any specified in the `project.clj`."
[project & args] [project & args]
(let [c (:adl project) (let [c (merge
config {:options (merge {:path "."} c) ;; defaults
{:abstract-key-name-convention "id"
:help false
:locale (or (java.util.Locale/getDefault) "en_GB.UTF-8")
:path "."
:verbosity 0}
(:adl project))
config {:options c
:arguments (cond :arguments (cond
(not (empty? args)) args (not (empty? args)) args
(not (nil? (:adl-file c))) (:adl-file c) (not (nil? (:adl-file c))) (:adl-file c)