hiccup-paths.cljc

(ns hiccup-paths
  (:require [com.rpl.specter :as spr]))

(def tags-recursive
  (spr/recursive-path [tags] p
    (spr/cond-path
      #(and (vector? %)
            (tags (first %)))
      spr/STAY

      #(and (coll? %)
            (not (map? %)))
      [spr/ALL p])))

(defn tag [tag]
  #(and (vector? %)
        (= (first %) tag)))

(defn child-tag [t]
  (spr/comp-paths spr/ALL
                  (tag t)))

(spr/defnav
  NONE->val
  [v]
  (select* [this structure next-fn]
           (next-fn (if (= structure spr/NONE) v structure)))
  (transform* [this structure next-fn]
              (next-fn (if (= structure spr/NONE) v structure))))

(def ATTRS
  (spr/if-path [1 map?]
               1
               [(spr/before-index 1)
                (NONE->val {})]))