config

commit 60c00e985387bc582ee14366e3509fd527d550c0
parent 09611d99fba15ac1afaadbecf5445ce633ef8c8b
Author: dwrz <dwrz@dwrz.net>
Date:   Thu,  8 Feb 2024 13:49:19 +0000

Update Emacs init

Diffstat:
M
emacs/init.el
 | 
14
+++++++++++---

1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/emacs/init.el b/emacs/init.el
@@ -684,6 +684,8 @@
   (set-register ?j '(file . "~/journal/2024/2024.org"))
   (set-register ?o '(file . "~/org/")))
 
+(use-package repeat :config (repeat-mode) :ensure nil)
+
 (use-package scroll-bar :config (scroll-bar-mode -1) :ensure nil)
 
 (use-package select
@@ -971,8 +973,6 @@
 (defvar-keymap dwrz-windows-map
   :doc "Prefix keymap for windows."
   :name "Window"
-  "+" #'text-scale-increase
-  "-" #'text-scale-decrease
   "0" #'delete-window
   "1" #'delete-other-windows
   "2" #'split-window-below
@@ -992,6 +992,13 @@
   "s" #'shrink-window
   "t" #'tear-off-window)
 
+(defvar-keymap dwrz-zoom-map
+  :doc "Prefix keymap for text scale."
+  :name "Zoom"
+  :repeat t
+  "+" #'text-scale-increase
+  "-" #'text-scale-decrease)
+
 (defvar-keymap dwrz-prefix-map
   :doc "Prefix keymap with multiple subkeymaps."
   :name "dwrz prefix"
@@ -1020,7 +1027,8 @@
   "s" (cons "search" dwrz-search-map)
   "t" (cons "transpose" dwrz-transpose-map)
   "u" #'universal-argument
-  "w" (cons "window" dwrz-windows-map))
+  "w" (cons "window" dwrz-windows-map)
+  "z" (cons "zoom" dwrz-zoom-map))
 
 ;; KEYBINDINGS
 (global-set-key (kbd "C-z") dwrz-prefix-map)