Additional changes to path editing

This commit is contained in:
alonso.torres 2021-04-21 14:31:26 +02:00
parent c7683dfd80
commit 961a7a2e03
9 changed files with 66 additions and 37 deletions

View file

@ -165,9 +165,14 @@
(point->handlers )
(filter (fn [[ci cp]] (and (not= index ci) (not= prefix cp)) )))]
(when (= (count handlers) 1)
(->> handlers
first))))
(cond
(= (count handlers) 1)
(->> handlers first)
(and (= :c1 prefix) (= (count content) index))
[(dec index) :c2]
:else nil)))
(defn get-commands