Cosmetic improvements on sitemap sidebar ns.

This commit is contained in:
Andrey Antukh 2016-06-25 17:01:42 +03:00
parent bf33926ec4
commit 5e6b3e94da
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -30,12 +30,12 @@
;; --- Lenses ;; --- Lenses
(def ^:const pages-l (def pages-l
(letfn [(getter [state] (letfn [(getter [state]
(let [project (get-in state [:workspace :project])] (let [project (get-in state [:workspace :project])]
(stpr/project-pages state project)))] (stpr/project-pages state project)))]
(as-> (l/lens getter) $ (-> (l/lens getter)
(l/derive $ st/state)))) (l/derive st/state))))
;; --- Component ;; --- Component