[emacs] Simplify entering long keybindings.

Emacs has a lot of built-in keybindings and users can define
more. They can be long. This commit installs which-key and
transient which help when entering long keybindings.

diff --git a/conf/home/emacs.scm b/conf/home/emacs.scm
index 584b77b7a772d44b433b94fd81b90dfbcc08cde8..0439f3fd0532049aeb37b991068e7e39203a4f18 100644 (file)
--- a/conf/home/emacs.scm
+++ b/conf/home/emacs.scm
@@ -91,6 +91,15 @@
             (list "bash/.config/profile.d/50-notmuch.sh"
                   "emacs/.config/emacs/conf/conf-email.el")))))
 
+(define emacs-keys-service
+  (service home-program-service-type
+          (home-program-configuration
+           (packages
+            (list emacs-transient
+                  emacs-which-key))
+           (dotfiles
+            (list "emacs/.config/emacs/conf/conf-keys.el")))))
+
 (define emacs-package-service
   (service home-program-service-type
           (home-program-configuration
@@ -133,6 +142,7 @@
         emacs-dired-service
         emacs-document-service
         emacs-email-service
+        emacs-keys-service
         emacs-package-service
         emacs-pass-service
         emacs-service))

diff --git a/emacs/.config/emacs/conf/conf-keys.el b/emacs/.config/emacs/conf/conf-keys.el
new file mode 100644 (file)
index 0000000..3276ba9
--- /dev/null
+++ b/emacs/.config/emacs/conf/conf-keys.el
@@ -0,0 +1,28 @@
+;; Copyright (c) 2022 Jakub Czajka <jakub@ekhem.eu.org>
+;; License: GPL-3.0 or later.
+;;
+;; conf-keys.el - configuration for keybinding completion.
+
+(require 'conf-package)
+
+(use-package which-key
+  :ensure t
+  :init
+  ;; Enable everywhere.
+  ;; `which-key-mode' is an autoload.
+  (which-key-mode)
+  :custom
+  (which-key-idle-delay 0.3)
+  (which-key-max-description-length 25)
+  (which-key-separator " ")
+  ;; Sort entries alphabetically.
+  (which-key-sort-order 'which-key-key-order-alpha)
+  :config
+  (which-key-setup-side-window-bottom))
+
+(use-package transient
+  :commands
+  (transient-define-prefix)
+  :ensure t)
+
+(provide 'conf-keys)