wrap.fnl: include mouse logic

wrap.fnl

@@ -4,6 +4,8 @@
                 (love.graphics.newCanvas w h)))
 
 (var scale 1)
+(love.mouse.setGrabbed true)
+(love.mouse.setRelativeMode true)
 
 ;; set the first mode
 (var (mode mode-name) nil)
@@ -18,8 +20,8 @@
   ; THIS IS WHERE WE SET THE START MODE
   ; ###################################
   ; (set-mode :ray-cast-vectors)
-  (set-mode :mode-intro)
-  ; (set-mode :raycaster)
+  ; (set-mode :mode-intro)
+  (set-mode :raycaster)
   ; ###################################
   (canvas:setFilter "nearest" "nearest")
   (when (~= :web (. args 1)) (repl.start)))
@@ -42,6 +44,9 @@
   (when mode.update
     (safely #(mode.update dt set-mode))))
 
+(fn love.mousemoved [x y dx dy istouch]
+  (safely #(mode.mousemoved x y dx dy istouch)))
+
 (fn love.keypressed [key]
   (if (and (love.keyboard.isDown "lctrl" "rctrl" "capslock") (= key "q"))
       (love.event.quit)