Integrate zippers with Specter

specter.zip.clj

(ns specter.zip
  (:use [com.rpl.specter.macros :only [defpath]]
        [com.rpl specter])
  (:require [clojure [zip :as zip]]))

(def VECTOR-ZIP (view zip/vector-zip))
(def NEXT (view zip/next))
(def RIGHT (view zip/right))
(def LEFT (view zip/left))
(def DOWN (view zip/down))
(def UP (view zip/up))

(defpath NODE []
  (select* [this structure next-fn]
    (next-fn (zip/node structure))
    )
  (transform* [this structure next-fn]
    (zip/root (zip/edit structure next-fn))
    ))