mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2048: add helper functions for swipe motions

Browse Source
This commit is contained in:
MitchMarq42 2023-01-15 20:15:25 -09:00
parent aee5de5743
commit 66a471dc51
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/2048.el
View File

@ -337,6 +337,15 @@ individually."
(defun 2048-shift-up () (interactive) (2048-shift "u")) (defun 2048-shift-up () (interactive) (2048-shift "u"))
(defun 2048-shift-down () (interactive) (2048-shift "d")) (defun 2048-shift-down () (interactive) (2048-shift "d"))
(defun 2048--scroll-left (&optional arg set-minmum)
(interactive) (2048-shift-left))
(defun 2048--scroll-right (&optional arg set-minmum)
(interactive) (2048-shift-right))
(defun 2048--scroll-up (&optional arg set-minmum)
(interactive) (2048-shift-up))
(defun 2048--scroll-down (&optional arg set-minmum)
(interactive) (2048-shift-down))
(defun 2048-startup () (defun 2048-startup ()
"Starts up the game mode for 2048!" "Starts up the game mode for 2048!"
(interactive) (interactive)
@ -345,8 +354,7 @@ individually."
(setq 2048-board-old (make-vector 2048--board-size 0)) (setq 2048-board-old (make-vector 2048--board-size 0))
(dotimes (i 2048--board-size) (aset 2048-board-old i (make-vector 2048--board-size 0)) ) (dotimes (i 2048--board-size) (aset 2048-board-old i (make-vector 2048--board-size 0)) )
(dotimes (i 2) (2048-spawn)) (dotimes (i 2) (2048-spawn))
(2048-draw-board) (2048-draw-board))
)
(define-derived-mode 2048-mode fundamental-mode "2048" (define-derived-mode 2048-mode fundamental-mode "2048"
"Major mode for playing 2048 in Emacs." "Major mode for playing 2048 in Emacs."
@ -362,10 +370,10 @@ individually."
(local-set-key (kbd "j") '2048-shift-down) (local-set-key (kbd "j") '2048-shift-down)
(local-set-key (kbd "k") '2048-shift-up) (local-set-key (kbd "k") '2048-shift-up)
;; Swipe controls for termux ;; Swipe controls for termux
(setq-local mwheel-scroll-left-function '2048-shift-left) (setq-local mwheel-scroll-left-function '2048-scroll-left)
(setq-local mwheel-scroll-right-function '2048-shift-right) (setq-local mwheel-scroll-right-function '2048-scroll-right)
(setq-local mwheel-scroll-down-function '2048-shift-down) (setq-local mwheel-scroll-down-function '2048-scroll-down)
(setq-local mwheel-scroll-up-function '2048-shift-up) (setq-local mwheel-scroll-up-function '2048-scroll-up)
(2048-startup) (2048-startup)
(setq font-lock-defaults '(2048-highlights))) (setq font-lock-defaults '(2048-highlights)))