Use state more, start on menus

mapper.fnl

@@ -1,9 +1,11 @@
+(local state (require :state))
 ; Cell Stuff
 ; The "cell-num" is the number of cells across; it is then squared to make the
 ; grid. Each cell has a "cell-size" of walls ("wall-width") and hallways
 ; ("hall-width").
-(var cell-num 20)
-(var (hall-width wall-width) (values 2 4))
+(var map-meta (state.getMap))
+(var cell-num (. map-meta :n))
+(var (hall-width wall-width) (values (. map-meta :h) (. map-meta :w)))
 (var cell-size (+ hall-width wall-width))
 ; (fn wall-seg [] (+ 10 (math.random 1 3)))
 (fn wall-seg [] (math.random 11 13))