Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-25 06:01:46 -05:00
Code Issues Activity

Update naming of lenses around all the project.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-12 16:41:49 +02:00
parent 851eff897e
commit 537dfa241d
15 changed files with 40 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
frontend/uxbox/ui/dashboard/header.cljs
View file

@ -12,7 +12,7 @@
[uxbox.ui.users :as ui.u]
[uxbox.ui.util :as util]))
(def ^:static header-state
(def ^:static header-l
(as-> (l/in [:dashboard]) $
(l/focus-atom $ s/state)))
@ -24,7 +24,7 @@
(defn header-render
[own]
(let [local (rum/react header-state)
(let [local (rum/react header-l)
projects? (= (:section local) :dashboard/projects)
elements? (= (:section local) :dashboard/elements)
icons? (= (:section local) :dashboard/icons)

10
frontend/uxbox/ui/dashboard/icons.cljs
View file

@ -21,7 +21,7 @@
;; Lenses
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(def ^:static dashboard-state
(def ^:static dashboard-l
(as-> (l/in [:dashboard]) $
(l/focus-atom $ st/state)))
@ -31,7 +31,7 @@
(defn page-title-render
[own coll]
(let [dashboard (rum/react dashboard-state)
(let [dashboard (rum/react dashboard-l)
own? (:builtin coll false)]
(html
[:div.dashboard-title {}
@ -57,7 +57,7 @@
(defn nav-render
[own]
(let [dashboard (rum/react dashboard-state)
(let [dashboard (rum/react dashboard-l)
collid (:collection-id dashboard)
own? (= (:collection-type dashboard) :own)
builtin? (= (:collection-type dashboard) :builtin)
@ -100,14 +100,14 @@
(defn grid-render
[own]
(let [dashboard (rum/react dashboard-state)
(let [dashboard (rum/react dashboard-l)
coll-type (:collection-type dashboard)
coll-id (:collection-id dashboard)
own? (= coll-type :own)
coll (get library/+icon-collections-by-id+ coll-id)]
;; coll (case coll-type
;; :builtin (get library/+color-collections-by-id+ coll-id)
;; :own (rum/react collection-state))]
;; :own (rum/react collection-l))]
;; edit-cb #(lightbox/open! :icon-form {:coll coll :icon %})
;; remove-cb #(rs/emit! (dd/remove-icon {:id (:id coll) :icon %}))]
;; (println "KAKAKKA" coll-type coll-id coll)

8
frontend/uxbox/ui/dashboard/projects.cljs
View file

@ -149,7 +149,7 @@
;; Menu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (def ^:static menu-state
;; (def ^:static menu-l
;; (as-> (l/select-keys [:projects]) $
;; (l/focus-atom $ s/state)))
@ -166,7 +166,7 @@
(defn menu-render
[]
(let [state {:projects []} #_(rum/react menu-state)
(let [state {:projects []} #_(rum/react menu-l)
pcount (count (:projects state))]
(html
[:section#dashboard-bar.dashboard-bar
@ -226,7 +226,7 @@
;; Grid
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(def ^:static grid-state
(def ^:static grid-l
(as-> (l/select-keys [:projects-by-id]) $
(l/focus-atom $ s/state)))
@ -235,7 +235,7 @@
(letfn [(on-click [e]
(dom/prevent-default e)
(lightbox/open! :new-project))]
(let [state (rum/react grid-state)]
(let [state (rum/react grid-l)]
(html
[:section.dashboard-grid
[:h2 "Your projects"]

4
frontend/uxbox/ui/users.cljs
View file

@ -48,13 +48,13 @@
:user/avatar "http://lorempixel.com/50/50/"}))
(def menu-open? (atom false))
(def ^:static user-state
(def ^:static user-l
(as-> (l/in [:user]) $
(l/focus-atom $ s/state)))
(defn user-render
[own]
(let [user (rum/react user-state)
(let [user (rum/react user-l)
local (:rum/local own)]
(html
[:div.user-zone {:on-mouse-enter #(swap! local assoc :open true)

2
frontend/uxbox/ui/workspace.cljs
View file

@ -53,7 +53,7 @@
(defn- workspace-render
[own projectid]
(let [workspace (rum/react wb/workspace-state)
(let [workspace (rum/react wb/workspace-l)
no-toolbars? (empty? (:toolboxes workspace))]
(html
[:div

14
frontend/uxbox/ui/workspace/base.cljs
View file

@ -15,28 +15,28 @@
;; Lenses
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(def ^:static project-state
(def ^:static project-l
(as-> (ul/dep-in [:projects-by-id] [:workspace :project]) $
(l/focus-atom $ st/state)))
(def ^:static page-state
(def ^:static page-l
(as-> (ul/dep-in [:pages-by-id] [:workspace :page]) $
(l/focus-atom $ st/state)))
(def ^:static pages-state
(def ^:static pages-l
(as-> (ul/getter #(let [pid (get-in % [:workspace :project])]
(dp/project-pages % pid))) $
(l/focus-atom $ st/state)))
(def ^:static workspace-state
(def ^:static workspace-l
(as-> (l/in [:workspace]) $
(l/focus-atom $ st/state)))
(def ^:static active-toolboxes-state
(def ^:static toolboxes-l
(as-> (l/in [:workspace :toolboxes]) $
(l/focus-atom $ st/state)))
(def ^:static flags-state
(def ^:static flags-l
(as-> (l/in [:workspace :flags]) $
(l/focus-atom $ st/state)))
@ -75,7 +75,7 @@
(defonce mouse-b (rx/bus))
(defonce mouse-s
(->> mouse-b
(rx/filter #(= (:id %) (:id @page-state)))
(rx/filter #(= (:id %) (:id @page-l)))
(rx/map :coords)))
;; Deltas

2
frontend/uxbox/ui/workspace/canvas.cljs
View file

@ -211,7 +211,7 @@
(defn- canvas-render
[own {:keys [width height id] :as page}]
(let [workspace (rum/react wb/workspace-state)
(let [workspace (rum/react wb/workspace-l)
shapes-by-id (rum/react shapes-by-id)
workspace-selected (:selected workspace)
shapes (map #(get shapes-by-id %) (:shapes page))

2
frontend/uxbox/ui/workspace/colorpalette.cljs
View file

@ -42,7 +42,7 @@
(defn- colorpalette-render
[own]
(let [local (:rum/local own)
flags (rum/react wb/flags-state)
flags (rum/react wb/flags-l)
collections-by-id (rum/react collections-by-id-l)
collections (vals collections-by-id)
collection (if-let [collid (:selected @local)]

4
frontend/uxbox/ui/workspace/grid.cljs
View file

@ -56,8 +56,8 @@
(let [padding (* 0 zoom)
ticks-mod (/ 100 zoom)
step-size (/ 10 zoom)
flags (rum/react wb/flags-state)
page (rum/react wb/page-state)
flags (rum/react wb/flags-l)
page (rum/react wb/page-l)
enabled? (contains? flags :workspace/grid)
vertical-ticks (range (- 0 wb/document-start-y)
(- (:width page) wb/document-start-y)

4
frontend/uxbox/ui/workspace/header.cljs
View file

@ -23,8 +23,8 @@
(defn header-render
[own]
(let [page (rum/react wb/page-state)
flags (rum/react wb/flags-state)
(let [page (rum/react wb/page-l)
flags (rum/react wb/flags-l)
toggle #(rs/emit! (dw/toggle-tool %))]
(html
[:header#workspace-bar.workspace-bar

2
frontend/uxbox/ui/workspace/lateralmenu.cljs
View file

@ -19,7 +19,7 @@
(defn lateralmenu-render
[own]
(let [toolboxes (rum/react wb/active-toolboxes-state)
(let [toolboxes (rum/react wb/toolboxes-l)
toggle #(rs/emit! (dw/toggle-toolbox %))]
(html
[:div#tool-bar.tool-bar

12
frontend/uxbox/ui/workspace/pagesmngr.cljs
View file

@ -18,7 +18,7 @@
(let [data {:edit true :form page}]
(reset! parent data)))]
(let [curpage (rum/react wb/page-state)
(let [curpage (rum/react wb/page-l)
active? (= (:id curpage) (:id page))
deletable? (> numpages 1)
navigate #(rs/emit! (dp/go-to (:project page) (:id page)))
@ -44,8 +44,8 @@
(defn- page-list-render
[own parent]
(let [project (rum/react wb/project-state)
pages (rum/react wb/pages-state)
(let [project (rum/react wb/project-l)
pages (rum/react wb/pages-l)
name (:name project)]
(html
[:div.project-bar-inside
@ -67,7 +67,7 @@
(defn- page-form-render
[own parent]
(let [form (:form @parent)
project @wb/project-state]
project @wb/project-l]
(letfn [(on-change [e]
(let [value (dom/event->value e)]
(swap! parent assoc-in [:form :name] value)))
@ -116,8 +116,8 @@
(defn pagesmngr-render
[own]
(let [local (:rum/local own)
flags (rum/react wb/flags-state)
project (rum/react wb/project-state)]
flags (rum/react wb/flags-l)
project (rum/react wb/project-l)]
(html
[:div#project-bar.project-bar
(when-not (contains? flags :workspace/pagesmngr)

2
frontend/uxbox/ui/workspace/sidebar.cljs
View file

@ -17,7 +17,7 @@
(defn aside-render
[own]
(println "aside-render")
(let [toolboxes (rum/react wb/active-toolboxes-state)]
(let [toolboxes (rum/react wb/toolboxes-l)]
(html
[:aside#settings-bar.settings-bar
[:div.settings-bar-inside

6
frontend/uxbox/ui/workspace/toolboxes.cljs
View file

@ -60,7 +60,7 @@
(defn draw-tools-render
[open-toolboxes]
(let [workspace (rum/react wb/workspace-state)
(let [workspace (rum/react wb/workspace-l)
close #(rs/emit! (dw/toggle-toolbox :draw))
tools (->> (into [] +draw-tools+)
(sort-by (comp :priority second)))]
@ -109,7 +109,7 @@
(defn layers-render
[own]
(let [workspace (rum/react wb/workspace-state)
(let [workspace (rum/react wb/workspace-l)
selected (:selected workspace)
shapes-by-id (rum/react shapes-by-id)
page (rum/react (focus-page (:page workspace)))
@ -182,7 +182,7 @@
(defn- select-icon
[icon]
(if (= (:drawing @wb/workspace-state) icon)
(if (= (:drawing @wb/workspace-l) icon)
(rs/emit! (dw/select-for-drawing nil))
(rs/emit! (dw/select-for-drawing icon))))

4
frontend/uxbox/ui/workspace/workarea.cljs
View file

@ -31,8 +31,8 @@
(defn viewport-render
[own]
(let [workspace (rum/react wb/workspace-state)
page (rum/react wb/page-state)
(let [workspace (rum/react wb/workspace-l)
page (rum/react wb/page-l)
drawing? (:drawing workspace)
zoom 1]
(html