comment out test code we don't want run every time the library is loaded!
This commit is contained in:
parent
716eb9442e
commit
a44e9548a2
|
@ -285,4 +285,4 @@
|
||||||
"&"
|
"&"
|
||||||
"&"))))
|
"&"))))
|
||||||
|
|
||||||
(visualise-drainage (run-drainage "resources/heightmaps/20x20/crucible.png") "test.html")
|
;; (visualise-drainage (run-drainage "resources/heightmaps/20x20/crucible.png") "test.html")
|
|
@ -5,7 +5,7 @@
|
||||||
interaction."
|
interaction."
|
||||||
;; TODO: but possibly it would be better if there is to be a newer version of
|
;; TODO: but possibly it would be better if there is to be a newer version of
|
||||||
;; mw-ui, to base it on this.
|
;; mw-ui, to base it on this.
|
||||||
(:require [hiccup2.page :refer [xhtml]])
|
(:require [hiccup2.core :refer [html]])
|
||||||
)
|
)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
@ -89,7 +89,7 @@
|
||||||
|
|
||||||
(defn world->html-file
|
(defn world->html-file
|
||||||
([world output-path]
|
([world output-path]
|
||||||
(spit output-path (str (xhtml (render-world-page world)))))
|
(spit output-path (str (html (render-world-page world)))))
|
||||||
([world output-path state-images-relative-path]
|
([world output-path state-images-relative-path]
|
||||||
(binding [*state-images-relative-path* state-images-relative-path]
|
(binding [*state-images-relative-path* state-images-relative-path]
|
||||||
(world->html-file world output-path))))
|
(world->html-file world output-path))))
|
||||||
|
|
Loading…
Reference in a new issue