From 0ee7fa9c382ae30295f0b8d88457f7856c7ff800 Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Wed, 16 Oct 2024 22:04:33 +0200
Subject: emacs: Overhaul configuration completely

---
 .config/emacs/modules/mm-tetris.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 .config/emacs/modules/mm-tetris.el

(limited to '.config/emacs/modules/mm-tetris.el')

diff --git a/.config/emacs/modules/mm-tetris.el b/.config/emacs/modules/mm-tetris.el
new file mode 100644
index 0000000..06fae58
--- /dev/null
+++ b/.config/emacs/modules/mm-tetris.el
@@ -0,0 +1,20 @@
+;;; mm-tetris.el --- Emacs configurations for ‘tetris’  -*- lexical-binding: t; -*-
+
+(defun mm-tetris-rotate-mirror ()
+  "Rotate the current piece by 180°."
+  (declare (modes tetris-mode))
+  (interactive)
+  (tetris-rotate-next)
+  (tetris-rotate-next))
+
+(use-package tetris
+  :bind (:map tetris-mode-map
+         ("a"   . tetris-move-left)
+         ("d"   . tetris-move-right)
+         ("k"   . tetris-rotate-next)
+         (";"   . tetris-rotate-prev)
+         ("l"   . tetris-move-down)
+         ("o"   . mm-tetris-rotate-mirror)
+         ("SPC" . tetris-move-bottom)))
+
+(provide 'mm-tetris)
-- 
cgit v1.2.3