This commit is contained in:
Michiel Borkent 2021-05-08 11:06:34 +02:00
parent 9a8bf7d0c3
commit f3a441ee3c

View file

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