Add which-key

emacs.d/packages/packages.el

@@ -306,8 +306,6 @@
   (advice-add #'linum-update-window
               :after #'linum-update-window-scale-fix))
 
-;; TODO see if I can replace bind-map with hydra. I forget things
-;; often, so a popup for some chords would be nice.
 (use-package bind-map
   :ensure t
   :after evil
@@ -334,11 +332,17 @@
     "p" 'my/evil-select-pasted
     "/" 'swiper
     "v" 'ivy-switch-buffer
+    ;; TODO find a better way to display this
+    ;; TODO add button to kill this: maybe k1, k2, etc.?
     "1" 'eyebrowse-switch-to-window-config-1
     "2" 'eyebrowse-switch-to-window-config-2
     "3" 'eyebrowse-switch-to-window-config-3
     "4" 'eyebrowse-switch-to-window-config-4
-    "5" 'eyebrowse-switch-to-window-config-5))
+    "5" 'eyebrowse-switch-to-window-config-5
+    "6" 'eyebrowse-switch-to-window-config-6
+    "7" 'eyebrowse-switch-to-window-config-7
+    "8" 'eyebrowse-switch-to-window-config-8
+    "9" 'eyebrowse-switch-to-window-config-9))
 
   (bind-map
    my-org-map
@@ -563,6 +567,23 @@
 			("\\`\\*intero:.*:repl\\*\\'" :regexp t :align t :size 0.4))))
 
 
+(use-package which-key
+  :ensure t
+  :config
+  (setq which-key-idle-delay 0.5)
+  (which-key-mode)
+  ;(which-key-setup-minibuffer)
+  (which-key-setup-side-window-bottom)
+  (setq i 1)
+  (while (< i 10)
+    (let ((cell (cons (cons (number-to-string i) nil) '(lambda (cs) t))))
+      (add-to-list 'which-key-replacement-alist cell))
+    (setq i (+ i 1)))
+  (makunbound 'i)
+
+  (which-key-add-key-based-replacements
+  "SPC d" "Diff buffer w/ file"))
+
 ;; OS specific
 (use-package magit
   :if (not (eq system-type 'windows-nt))