Clojurians Log v2

Hey guys I have been scratching my head for some time now. I want to operate the following transformation :

["toto"
{:tag tag-to-unwrap :content ["titi" "tutu"]}
{:tag tag-to-unwrap :content ["toto"]}]
;=>
["toto" "titi" "tutu" "toto"]

(transform [ALL XML-ZIP NEXT-WALK NODE map? #(= :tag-to-unwrap (:tag %))]
:content
["toto"
{:tag tag-to-unwrap :content ["titi" "tutu"]}
{:tag tag-to-unwrap :content ["toto"]}])

["toto" ["titi" "tutu"] ["toto"]]

@jeremys with what's built-in you can do something like this:

(require '[com.rpl.specter.zipper :as z])

(def data
  ["toto"
    {:tag :a :content ["titi" "tutu"]}
    {:tag :a :content ["toto"]}]
  )

(transform
  [z/VECTOR-ZIP
   z/DOWN
   z/NEXT-WALK
   (selected? z/NODE map?)
   z/NODE-SEQ]
  #(select [FIRST :content ALL] %)
  data)

it's also pretty easy to make an ALL-SEQ navigator which navigates to each element as a 1 element sequence, and then you could do:

(transform [ALL-SEQ (selected? FIRST map?)]
  #(select [FIRST :content ALL] %)
  data
  )

technically this would work: (def ALL-SEQ (path z/VECTOR-ZIP z/DOWN z/NEXT-WALK z/NODE-SEQ))

though you could make it more efficient with a custom navigator

another solution:

(transform (continuous-subseqs map?)
  #(select [ALL :content ALL] %)
  data
  )

Thx @nathanmarz I’ll take a look and see what I can come up with.