Commit d42ceac8 authored by Davide Taviani's avatar Davide Taviani

Misc updates

parent b854c777
......@@ -19,14 +19,14 @@
[:table {:class "table"}
[:thead
[:tr
[:th "ID"]
[:th "Size"]
[:th "Pattern"]
[:th "Actions"]]]
[:tbody
(for [level levels]
[:tr
[:td (str (:id level))]
[:td (str (:size level))]
[:td (str (:pattern level))]
[:td
[:a {:class "button"
:href (str "/play/" (:id level))}
......@@ -66,7 +66,7 @@
(defn start! []
(when-not @server
(reset! server (jetty/run-jetty #'app {:join? false :port 8080}))))
(reset! server (jetty/run-jetty #'app {:join? false :port 8081}))))
(defn stop! []
(when-let [s ^Server @server]
......
......@@ -80,8 +80,8 @@
(map (partial connected-neighbors bl))
(mapv (fn [n-set]
{:value (if (empty? n-set) 0 1)
:neighbors (tile n-set)
:tile tile
:neighbors n-set
:tile (tile n-set)
:status (rand-int 4)})))})
(comment
......@@ -92,7 +92,7 @@
:column-links [0 1]})
(def board-created
;; this is for documentation purposes: this should be the result of (create-board board-links)
;; this is for documentation purposes: this should be the result of (create-board board-links), apart from status which is random
{:size 2
:cells [{:value 1 :neighbors #{:E} :tile :1-tile :status 0}
{:value 1 :neighbors #{:W :S} :tile :2-tile-L :status 0}
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment