From 241be552360675b432ca776fc33aece17696ced2 Mon Sep 17 00:00:00 2001
From: MitchMarq42 <dr.m.perseos@gmail.com>
Date: Sun, 15 Jan 2023 20:00:26 -0900
Subject: [PATCH] 2048: add vim keys and (hopefully) termux keys!

---
 lisp/2048.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lisp/2048.el b/lisp/2048.el
index 1937bf3..5ba9280 100644
--- a/lisp/2048.el
+++ b/lisp/2048.el
@@ -381,10 +381,22 @@ individually."
 (define-derived-mode 2048-mode fundamental-mode "2048"
   "Major mode for playing 2048 in Emacs."
   (random t) ;; Start up the RNG
+  ;; Arrow keys
   (local-set-key (kbd "<left>") '2048-shift-left)
   (local-set-key (kbd "<right>") '2048-shift-right)
   (local-set-key (kbd "<down>") '2048-shift-down)
   (local-set-key (kbd "<up>") '2048-shift-up)
+  ;; Vim keys
+  (local-set-key (kbd "h") '2048-shift-left)
+  (local-set-key (kbd "l") '2048-shift-right)
+  (local-set-key (kbd "j") '2048-shift-down)
+  (local-set-key (kbd "k") '2048-shift-up)
+  ;; Swipe controls for termux
+  (local-set-key (kbd "<mouse-4>") '2048-shift-left)
+  (local-set-key (kbd "<mouse-5>") '2048-shift-right)
+  (local-set-key (kbd "<mouse-6>") '2048-shift-down)
+  (local-set-key (kbd "<mouse-7>") '2048-shift-up)
+
   (2048-startup)
   (setq font-lock-defaults '(2048-highlights))
   )