Modify ncurses settings

src/internal.lisp

@@ -38,7 +38,6 @@
 
 (defun handle-input (char state)
   (case char
-    ((nil) nil)
     ((#\w) (player-up    state))
     ((#\s) (player-down  state))
     ((#\a) (player-left  state))
@@ -48,17 +47,19 @@
 (defun start (&optional (state (make-game-state)))
   (with-curses ()
     (disable-echoing)
-    (enable-raw-input :interpret-control-characters t)
-    (enable-non-blocking-mode *standard-window*)
+    (enable-raw-input)
+    ;; TODO: The extra keys don't actually work in cl-charms, fix this.
+    (enable-extra-keys *standard-window*)
     (loop named game-loop
-          for char := (get-char *standard-window* :ignore-error t) do
-            (refresh-window *standard-window*)
-            (handle-input char state)
-            (multiple-value-bind (width height) (window-dimensions *standard-window*)
-              (setf (game-state-cursor-x state) (mod (game-state-cursor-x state) width))
-              (setf (game-state-cursor-y state) (mod (game-state-cursor-y state) height)))
-            (move-cursor *standard-window* (game-state-cursor-x state) (game-state-cursor-y state))
-          until (game-state-quit? state))))
+       for char := (get-char *standard-window* :ignore-error t) do
+         (refresh-window *standard-window*)
+         (handle-input char state)
+         (multiple-value-bind (width height) (window-dimensions *standard-window*)
+           (setf (game-state-cursor-x state) (mod (game-state-cursor-x state) width))
+           (setf (game-state-cursor-y state) (mod (game-state-cursor-y state) height)))
+         (move-cursor *standard-window* (game-state-cursor-x state) (game-state-cursor-y state))
+       until (game-state-quit? state)))
+  (print (game-state-history state)))
 
 (defun start-dev (state)
   (ql:quickload :slynk)