https://github.com/ckirkendall/fresnel.git
git clone 'https://github.com/ckirkendall/fresnel.git'
(ql:quickload :ckirkendall.fresnel)
A library for composing lenses and working with complex state objects. This library is a paired down version lens code embedded in Christophe Grand's Enliven.
All artifacts are published to clojars.
If you reified the Lens protocol directly you will have to now reify IFetch and IPutback protocols.
The concept of a lens is very simple. A lens consists of two methods; one that transforms the state object into desired form and one that takes a transform object and pushes its state back into the main state object. Fresnel provides a mechanism to define lenses and to compose them. Fresnel builds on the concepts that already existing in Clojure. In Clojure we see two types of lenses for associative structures. The first is the keyword and we use get and assoc as the transform functions. The other is composition of these lenses in the form of a vector. We use get-in and assoc-in as transform functions in this case. Fresnel extends this concept beyond associative structures and unifies the access methods under a single protocol Lens.
(def state {:a {:aa "a1,b1,c1"
:ab 2}
:b {:ba "a2,b2,c2"
:bb 2}})
;fresnel supports custom lenses
(deflens comma-to-map [oval nval]
:fetch
(reduce #(assoc %1 (.trim %2) true) {} (split oval #","))
:putback
(reduce #(if %1 (str %2 "," %1) %2)
nil
(filter #(nval %1) (keys nval))))
;fresnel supports composing of lenses
(def compound-lens [:a :aa comma-to-map])
(fetch state compound-lens)
;{:a1 true :b1 true :c1 true}
(def new-state
(putback state
compound-lens
{:a1 false :b1 true :c1 true :d1 true}))
;;new-state {:a {:aa "b1,c1,d1" :ab 2}
;; :b {:ba "a2,b2,c2" :bb 2}})
Copyright © 2014 Creighton Kirkendall
Distributed under the Eclipse Public License either version 1.0 or (at your option) any later version.