From 954c6815969e82c74b794eabe4308eb2ba19443e Mon Sep 17 00:00:00 2001
From: Alexander Heldt <me@alexanderheldt.se>
Date: Sun, 10 Sep 2023 22:14:40 +0200
Subject: [PATCH] pinwheel: Setup keybindings in `emacs`

---
 hosts/pinwheel/modules/emacs/config.org | 38 +++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/hosts/pinwheel/modules/emacs/config.org b/hosts/pinwheel/modules/emacs/config.org
index 259863e..c02c5c8 100644
--- a/hosts/pinwheel/modules/emacs/config.org
+++ b/hosts/pinwheel/modules/emacs/config.org
@@ -317,6 +317,44 @@ https://github.com/justbur/emacs-which-key
   (marginalia-mode))
 #+END_SRC
 
+* Keybindings
+Setup prefix for keybindings.
+#+BEGIN_SRC emacs-lisp
+  (use-package general)
+
+  (general-create-definer alex/keybindings
+    :keymaps '(normal insert visual emacs)
+    :prefix ",")
+#+END_SRC
+
+** Quick buffer save
+#+BEGIN_SRC emacs-lisp
+  (alex/keybindings
+    "," '(save-buffer :save-buffer "save"))
+#+END_SRC
+
+** Cleanup whitespace
+#+BEGIN_SRC emacs-lisp
+  (alex/keybindings
+    "w" '(whitespace-cleanup :which-key "whitespace cleanup"))
+#+END_SRC
+
+** Scale text
+#+BEGIN_SRC emacs-lisp
+  (use-package hydra)
+
+  (defhydra hydra-text-scale (:timeout 4)
+    "scale text"
+    ("k" text-scale-increase "in")
+    ("j" text-scale-decrease "out")
+    ("r" (text-scale-adjust 0) "reset")
+    ("esc" nil "finished" :exit t))
+
+  (alex/keybindings
+    "t" '(:ignore t :which-key "text")
+    "ts" '(hydra-text-scale/body :which-key "scale text"))
+#+END_SRC
+
 * Evil
 #+BEGIN_SRC emacs-lisp
   (use-package evil