master 67e06d6 1/3: Convert snake and tetris keymaps to defvar-keymap

[Stefan Kangas]

branch: master
commit 67e06d692a655985f9e7406e81d717639938427b
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Convert snake and tetris keymaps to defvar-keymap
    
    * lisp/play/snake.el (snake-mode-map, snake-null-map):
    * lisp/play/tetris.el (tetris-mode-map, tetris-null-map): Convert
    to defvar-keymap.
---
 lisp/play/snake.el  | 47 ++++++++++++++++++++++-------------------------
 lisp/play/tetris.el | 38 ++++++++++++++++++--------------------
 2 files changed, 40 insertions(+), 45 deletions(-)

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 29effa2..dbdecde 100644
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -160,31 +160,28 @@ and then start moving it leftwards.")
 
 ;; ;;;;;;;;;;;;; keymaps ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defvar snake-mode-map
-  (let ((map (make-sparse-keymap 'snake-mode-map)))
-
-    (define-key map "n"                'snake-start-game)
-    (define-key map "q"                'snake-end-game)
-    (define-key map "p"                'snake-pause-game)
-
-    (define-key map [left]     'snake-move-left)
-    (define-key map [right]    'snake-move-right)
-    (define-key map [up]       'snake-move-up)
-    (define-key map [down]     'snake-move-down)
-
-    (define-key map "\C-b"     'snake-move-left)
-    (define-key map "\C-f"     'snake-move-right)
-    (define-key map "\C-p"     'snake-move-up)
-    (define-key map "\C-n"     'snake-move-down)
-    map)
-  "Keymap for Snake games.")
-
-(defvar snake-null-map
-  (let ((map (make-sparse-keymap 'snake-null-map)))
-    (define-key map "n"                'snake-start-game)
-    (define-key map "q"         'quit-window)
-    map)
-  "Keymap for finished Snake games.")
+(defvar-keymap snake-mode-map
+  :doc "Keymap for Snake games."
+  :name 'snake-mode-map
+  "n"       #'snake-start-game
+  "q"       #'snake-end-game
+  "p"       #'snake-pause-game
+
+  "<left>"  #'snake-move-left
+  "<right>" #'snake-move-right
+  "<up>"    #'snake-move-up
+  "<down>"  #'snake-move-down
+
+  "C-b"     #'snake-move-left
+  "C-f"     #'snake-move-right
+  "C-p"     #'snake-move-up
+  "C-n"     #'snake-move-down)
+
+(defvar-keymap snake-null-map
+  :doc "Keymap for finished Snake games."
+  :name 'snake-null-map
+  "n"       #'snake-start-game
+  "q"       #'quit-window)
 
 (defconst snake--menu-def
   '("Snake"
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 3d6ddd5..693bfe4 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -236,26 +236,24 @@ each one of its four blocks.")
 
 ;; ;;;;;;;;;;;;; keymaps ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defvar tetris-mode-map
-  (let ((map (make-sparse-keymap 'tetris-mode-map)))
-    (define-key map "n"                'tetris-start-game)
-    (define-key map "q"                'tetris-end-game)
-    (define-key map "p"                'tetris-pause-game)
-
-    (define-key map " "                'tetris-move-bottom)
-    (define-key map [left]     'tetris-move-left)
-    (define-key map [right]    'tetris-move-right)
-    (define-key map [up]       'tetris-rotate-prev)
-    (define-key map [down]     'tetris-move-down)
-    map)
-  "Keymap for Tetris games.")
-
-(defvar tetris-null-map
-  (let ((map (make-sparse-keymap 'tetris-null-map)))
-    (define-key map "n"                'tetris-start-game)
-    (define-key map "q"         'quit-window)
-    map)
-  "Keymap for finished Tetris games.")
+(defvar-keymap tetris-mode-map
+  :doc "Keymap for Tetris games."
+  :name 'tetris-mode-map
+  "n"       #'tetris-start-game
+  "q"       #'tetris-end-game
+  "p"       #'tetris-pause-game
+
+  "SPC"     #'tetris-move-bottom
+  "<left>"  #'tetris-move-left
+  "<right>" #'tetris-move-right
+  "<up>"    #'tetris-rotate-prev
+  "<down>"  #'tetris-move-down)
+
+(defvar-keymap tetris-null-map
+  :doc "Keymap for finished Tetris games."
+  :name 'tetris-null-map
+  "n"       #'tetris-start-game
+  "q"       #'quit-window)
 
 (defconst tetris--menu-def
   '("Tetris"