simon/mw-ui
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added new ruleset and states to support it.

Browse source
This commit is contained in:
Simon Brooke 2014-07-20 14:43:46 +01:00
parent 707f93d7a3
commit 1c838a79bd
7 changed files with 120 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mw_ui/render_world.clj
View file

@ -28,7 +28,7 @@
(let [state (:state cell)]
[:td {:class (format-css-class state) :title (format-mouseover cell)}
[:a {:href (format "inspect?x=%d&y=%d" (:x cell) (:y cell))}
[:img {:alt (world/format-cell cell) :src (format-image-path state)}]]]))
[:img {:alt (:state cell) :src (format-image-path state)}]]]))
(defn render-world-row
"Render this world row as a Hiccup table row."
@ -41,8 +41,8 @@
(let [world (or (session/get :world)
(engine/transform-world
(heightmap/apply-heightmap
;;"resources/public/img/20x20/hill.png"
"resources/public/img/heightmaps/great_britain_and_ireland_small.png"
"resources/public/img/20x20/hill.png"
;; "resources/public/img/heightmaps/great_britain_and_ireland_small.png"
)
rules/init-rules))
rules (or (session/get :rules)