@puzzler (select (pred (complement seq?)) m)?

`=> (select (pred (complement seq?)) [:a :b [:c :d] :e [:c :d]]) [[:a :b [:c :d] :e [:c :d]]]`

I did something like this:

=> (transform [(continuous-subseqs vector?)] #(first %) [:a :b [:c :d] :e [:c :d]])
[:a :b :c :d :e :c :d]

It feels a little hacky to me, but I don't see another way to do it.

Actually, that won't work if they are adjacent.

Hmmmm.

Any other ideas?

=> (transform [(continuous-subseqs vector?)] #(first %) [:a :b [:c :d] [:c :d]])
[:a :b :c :d]

@caio I don't see how yours would work, but mine doesn't work either.

This works:

=> (transform [(continuous-subseqs vector?)] #(apply concat %) [:a :b [:c :d] [:c :d]])
[:a :b :c :d :c :d]

It's still hacky

@puzzler you could make a new navigator which navigates to each element as a 1 element subsequence

or a new version of ALL which does splicing if the transformed element has metadata indicating to do so

e.g. (transform [MY-ALL vector?] (fn [v] (with-meta v {:all-splice true})) data)

can also do this:

(def SPLICED (comp-paths (continuous-subseqs vector?) (view #(apply concat %))))
(transform SPLICED identity [:a :b [:c :d] :e [:c :d]])
[:a :b :c :d :e :c :d]