Skip to content

Instantly share code, notes, and snippets.

@ul
Created November 24, 2014 13:12
Show Gist options
  • Save ul/ebc72eee5a4d915c8f83 to your computer and use it in GitHub Desktop.
Save ul/ebc72eee5a4d915c8f83 to your computer and use it in GitHub Desktop.
(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)))))
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