Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-10 17:18:21 -05:00
Code Issues Activity

Remove unused lenses related code from utils ns.

Browse source
This commit is contained in:
Andrey Antukh 2016-02-21 20:32:09 +02:00
parent 43d7a5cec2
commit 6f23272c63
1 changed files with 0 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/uxbox/util/lens.cljs
View file

@ -2,17 +2,6 @@
(:refer-clojure :exclude [derive merge]) (:refer-clojure :exclude [derive merge])
(:require [cats.labs.lens :as l])) (:require [cats.labs.lens :as l]))
(defn dep-in
[where link]
{:pre [(vector? where) (vector? link)]}
(l/lens
(fn [s]
(let [value (get-in s link)
path (conj where value)]
(get-in s path)))
(fn [s f]
(throw (ex-info "Not implemented" {})))))
(defn getter (defn getter
[f] [f]
(l/lens f #(throw (ex-info "Not implemented" {})))) (l/lens f #(throw (ex-info "Not implemented" {}))))
@ -22,13 +11,3 @@
(l/lens (l/lens
(fn [s] (cljs.core/merge s data)) (fn [s] (cljs.core/merge s data))
#(throw (ex-info "Not implemented" {})))) #(throw (ex-info "Not implemented" {}))))
(defn derive
[a path]
(l/focus-atom (l/in path) a))
(defn focus
([state]
(l/focus-atom l/id state))
([lens state]
(l/focus-atom lens state)))