A little more setup

This is still very early days.

no-step-on-snek.el

@@ -139,7 +139,7 @@
     ((color-x color-x)
      (mono-x grid-x)
      (color-tty color-tty))
-    (((glyph color-x) [1 0 0])
+    (((glyph color-x) [0 1 0])
      (color-tty "green"))))
 
 (defvar snek-border-options
@@ -268,6 +268,8 @@ and then start moving it leftwards.")
                    snek-border-options)
                   ((= c snek-space)
                    snek-space-options)
+                  ((= c snek-player)
+                   snek-player-options)
                   (t
                    '(nil nil nil)))))
     options))
@@ -394,6 +396,26 @@ Argument SNEK-BUFFER is the name of the buffer."
   (when (zerop (snek-final-y-velocity))
     (push '(0 1) snek-velocity-queue)))
 
+(defun player-move-left ()
+  "Make the player move left."
+  (interactive)
+  )
+
+(defun player-move-right ()
+  "Make the player move right."
+  (interactive)
+  )
+
+(defun player-move-up ()
+  "Make the player move up."
+  (interactive)
+  )
+
+(defun player-move-down ()
+  "Make the player move down."
+  (interactive)
+  )
+
 (defun snek-end-game ()
   "Terminate the current game."
   (interactive)