Created
November 24, 2014 13:12
-
-
Save ul/ebc72eee5a4d915c8f83 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn deck-structures [t state] | |
(let [structures (fr/cursor state :deck-structures) | |
structures-view (items-view :div deck-structure structures) | |
] | |
[:div | |
[:div {:horizontal 1 :layout 1 :center-justified 1} | |
[:paper-fab {:icon "fa:plus" | |
:on-click (fn [_] (swap! state assoc :page [:deck-structures (encore/uuid-str)]))}]] | |
#_structures-view | |
])) | |
;;;; | |
(defn admin [t state] | |
(let [ws-ready? (fr/cursor state :ws-ready?) | |
page (fr/cursor state :page) | |
debug? (fr/cursor state :debug?)] | |
(rx (if @ws-ready? | |
[:core-scaffold {:flex 1} | |
[:core-header-panel {:navigation 1 :flex 1 :mode "seamed"} | |
[:core-toolbar [:span "Menu"]] | |
[:core-menu | |
[:core-item {:label "Dashboard"} | |
[:a {:href "#/"}]] | |
[:core-item {:label "Structures"} | |
[:a {:href "#/decks/structures"}]]]] | |
(header t) | |
[:div {:fit 1 | |
:style {:padding "1rem"}} | |
(debug-rx (rx (match @page | |
[:deck-structures nil] [:div (rx (deck-structures t state))] | |
:else "Dashboard"))) | |
(footer t) | |
(rx (when @debug? (inspector state)))]] | |
(loader t))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
rx-debug(rx (match (clojure.core/deref page) [:deck-structures nil] [:div (rx (deck-structures t state))] :else "Dashboard")) : starting capture | |
core.cljs:55 rx-debug(rx (match (clojure.core/deref page) [:deck-structures nil] [:div (rx (deck-structures t state))] :else "Dashboard")) captured : #<ReactiveCursor: nil> | |
core.cljs:55 rx-debug(rx (match (clojure.core/deref page) [:deck-structures nil] [:div (rx (deck-structures t state))] :else "Dashboard")) captured : #<ReactiveAtom: {:debug? true, :page [:deck-structures nil], :deck-structures {bd76f7ac-2c7a-435a-9bd2-bb729c568dfa {:sections [{:name I, :size 8} {:name II, :size 8} {:name III, :size 8}], :name Futhark}, e6693441-9ac2-4d41-861e-903fbf1ee551 {:sections [{:name Major, :size 22} {:name Wands, :size 14} {:name Cups, :size 14} {:name Swords, :size 14} {:name Pentacles, :size 14}], :name Classic}}, :ws-ready? true, :users ({:service facebook, :email fer.obbee@gmail.com, :name Ruslan Prokopchuk, :id 713871485359290})}> | |
core.cljs:55 rx-debug(rx (match (clojure.core/deref page) [:deck-structures nil] [:div (rx (deck-structures t state))] :else "Dashboard")) notifiying invalidation watches: (rx-debug(rx (match (clojure.core/deref page) [:deck-structures nil] [:div (rx (deck-structures t state))] :else "Dashboard"))) & watches: nil | |
core.cljs:55 rx-debug(rx (match (clojure.core/deref page) [:deck-structures nil] [:div (rx (deck-structures t state))] :else "Dashboard")) : starting capture | |
core.cljs:55 rx-debug(rx (match (clojure.core/deref page) [:deck-structures nil] [:div (rx (deck-structures t state))] :else "Dashboard")) captured : #<ReactiveCursor: [:deck-structures nil]> |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment