comment out test code we don't want run every time the library is loaded!

This commit is contained in:
Simon Brooke 2024-04-07 22:13:59 +01:00
parent 716eb9442e
commit a44e9548a2
2 changed files with 3 additions and 3 deletions

View file

@ -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")

View file

@ -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))))