simon/mw3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Now successfully rendering the replacement navigation, but not yet made it work.

Browse source
This commit is contained in:
Simon Brooke 2016-02-15 16:34:04 +00:00
parent 1e989616d7
commit 4dd486824d
4 changed files with 73 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

71
src/cljs/mw3/core.cljs
View file

@ -1,4 +1,5 @@
(ns ^:figwheel-always mw3.core
(:require-macros [cljs.core.async.macros :refer [go]])
(:require [om.core :as om :include-macros true]
[om.dom :as dom :include-macros true]
[cljs.core.async :refer [put! chan <!]]
@ -8,23 +9,26 @@
;; The state of the application.
;; NOTE that app-state can contain vectors and maps only, not lists.
(defonce app-state (atom {:available-tabs {:#home-tab :#home-content
:#params-tab :#params-content
:#rules-tab :#rules-content
:#world-tab :#world-content
:#docs-tab :#docs-content}
:selected-tab :#home-tab
:text "Welcome to MicroWorld!"
:rules []
(defonce app-state (atom {;; Available tabs/pages within the application
:available-tabs {:#home-tab {:content :#home-content :text "Home"}
:#params-tab {:content :#params-content :text "Parameters"}
:#rules-tab {:content :#rules-content :text "Rules"}
:#world-tab {:content :#world-content :text "World"}
:#docs-tab {:content :#docs-content :text "Documentation"}}
;; Parameters, set up on the parameters page.
:params {:available-rulesets []
:available-heightmaps []
:ruleset ""
:heightmap ""}
;; Currently active rules.
:rules []
;; Currently selected tab.
:selected-tab :#home-tab
;; Junk so I can see stuff during development.
:text "Welcome to MicroWorld!"
;; The current state of the world.
:world []}))
(deref app-state)
(:available-tabs (deref app-state))
(defn root-component [data owner]
(reify
om/IRender
@ -35,31 +39,29 @@
(reify
om/IInitState
(init-state [_]
{:selected-tab :#home-tab
:selected-content :#home-content})
om/IRender
(render [this]
(dmu/ul nil
)))
{:selected-tab :#home-tab
:selected-content :#home-content})
;; om/IWillMount
;; (will-mount [_]
;; (let [selection (om/get-state owner :selected)]
;; (om/transact! data :selected-tab selection)))
om/IRenderState
(render-state [this state]
(apply dom/ul #js {:id "tab-bar"}
(om/build-all
(fn [key]
(reify
om/IRenderState
(render-state [this {:keys [selected]}]
(dom/li
#js {:onClick (fn [e] (put! selected @key))
:className (if (= key (:selected-tab data)) "selected" "tab")}
(:text (key (:available-tabs data)))))))
(keys (:available-tabs data)){:init-state state})))))
(def pages [:#home-content :#params-content :#rules-content :#world-content :#docs-content])
(defn onclick-handler
"Handles a click on the specified `tab` and reveals the specified `content`."
[tab content]
(doseq [page pages]
(dommy/hide!(sel page)))
(dommy/show! content))
;; NASTY! Javascript interprets hyphens as subtraction operators, so function names
;; exposed to raw Javascript (e.g. onclick event handlers) must not contain hyphens.
(defn ^:export home []
(onclick-handler :#home-tab :#home-content))
(defn ^:export params []
(onclick-handler :#params-tab :#params-content))
(om/root
@ -67,4 +69,7 @@
app-state
{:target (. js/document (getElementById "world-content"))})
(om/root
tab-bar
app-state
{:target (. js/document (getElementById "tab-bar-target"))})