luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix formatting

Browse source
This commit is contained in:
Michiel Borkent 2021-03-26 12:00:51 +01:00
parent 55be656d82
commit c53a0b079b
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/babashka/main.clj
View file

@ -169,11 +169,18 @@ Use -- to separate script command line args from bb command line args.
,) ;; end defn ,) ;; end defn
(defn print-tasks [tasks] (defn print-tasks [tasks]
(let [tasks (into (sorted-map) tasks)] (let [tasks (into (sorted-map) tasks)
ks (keys tasks)
longest (apply max
(map (comp count str)
ks))
fmt (str "%1$-" longest "s")]
(println "The following tasks are available:") (println "The following tasks are available:")
(println) (println)
(doseq [[k v] tasks] (doseq [[k v] tasks]
(println k (:description (meta v)))) (println (str (format fmt k)
(when-let [d (:description (meta v))]
(str " - " d)))))
(println) (println)
(println "Run bb :help <task> to view help of a specific task.") (println "Run bb :help <task> to view help of a specific task.")
[nil 0])) [nil 0]))