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

Look and feel of the rule editor page is now almost perfect. I would like

Browse source 
to know how to get the character entities onto the buttons...
This commit is contained in:
simon 2016-03-03 23:53:57 +00:00
parent 17145c808e
commit 3dbda68cd7
2 changed files with 29 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -87,10 +87,10 @@
{:id (str "rule-editor-" index) :class "rule-editor"}
[:input {:type "text" :id (str "rule-input-" index) :class "rule-input" :value rule}]
[:div {:id (str "rule-controls-" index) :class "rule-controls"}
[:input {:type "button" :id (str "rule-ok-" index) :class "rule-ok" :value "✔"}]
[:input {:type "button" :id (str "rule-up-" index) :class "rule-up" :value "↑"}]
[:input {:type "button" :id (str "rule-down-" index) :class "rule-down" :value "↓"}]
[:input {:type "button" :id (str "rule-cancel-" index) :class "rule-cancel" :value "✘"}]]
[:input {:type "button" :id (str "rule-ok-" index) :class "rule-ok" :value "ok"}] ;; ✔
[:input {:type "button" :id (str "rule-up-" index) :class "rule-up" :value "up"}] ;; ↑
[:input {:type "button" :id (str "rule-down-" index) :class "rule-down" :value "down"}] ;; ↓
[:input {:type "button" :id (str "rule-delete-" index) :class "rule-delete" :value "delete"}]] ;; ✘
[:pre {:id (str "rule-feedback-" index) :class "rule-feedback"}]
])
@ -111,21 +111,9 @@
(let [rules-container (sel1 :#rules-container)
ruleset (rulesets/rulesets name)]
(dommy/clear! rules-container)
(doseq [rule ruleset index (range (count ruleset))]
(doseq [[rule index] (map #(list %1 %2) ruleset (range (count ruleset)))]
(dommy/append! rules-container (rule-editor rule index)))))
;;(rule-editors "settlement")
(load-ruleset "settlement")
;; (rulesets/rulesets "ice-age")
(def x (sel1 :#rules-container))
(dommy/append! x (rule-editor "if state is new then state should be grass" 1))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Set up the screen on loading
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -148,4 +136,5 @@
;; (rebuild-ruleset-menu)
;; put the default ruleset into the rulesets pages
;; (dommy/set-text! (sel1 :#rules-src) (rulesets/ruleset-as-single-string "ice-age"))
(load-ruleset "settlement")