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

minor

Browse source
This commit is contained in:
Michiel Borkent 2021-05-08 11:06:34 +02:00
parent 9a8bf7d0c3
commit f3a441ee3c
1 changed files with 29 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/babashka/impl/tasks.clj
View file

@ -360,14 +360,14 @@
loc (zip/find-value loc :tasks) loc (zip/find-value loc :tasks)
loc (zip/right loc) loc (zip/right loc)
loc (zip/down loc)] loc (zip/down loc)]
(->> (into []
loc (comp
(iterate zip/right)
(take-nth 2 ) (take-nth 2 )
(take-while #(not (zip/end? %))) (take-while #(not (zip/end? %)))
(filter zip/sexpr-able?) (filter zip/sexpr-able?)
(map zip/sexpr) (map zip/sexpr)
(filter symbol?)))) (filter symbol?))
(iterate zip/right loc))))
(defn list-tasks (defn list-tasks
[sci-ctx] [sci-ctx]