improve(ace-window): simplify dispatch alist

Overrides the dispatch alist that just contains deleting windows and
using `consult-buffer`.

lib/wal-windows.org

@@ -40,7 +40,18 @@ Everything that has to do with windows.
 Super-charged =other-window=.
 
 #+begin_src emacs-lisp
+(defun wal-aw-consult-buffer (window)
+ "Switch to WINDOW and then `consult-buffer'."
+ (aw-switch-to-window window)
+ (call-interactively 'consult-buffer))
+
 (use-package ace-window
+ :config
+ (setq aw-dispatch-alist
+ `((?0 aw-delete-window "Delete window")
+ (?, wal-aw-consult-buffer "Consult buffer")
+ (?? aw-show-dispatch-help)))
+
  :custom
  (aw-keys '(?j ?k ?l ?\; ?h ?a ?s ?d ?f ?g))
  (aw-dispatch-always t)

test/wal-windows-test.el

@@ -8,6 +8,17 @@
 
 (require 'wal-windows nil t)
 
+(ert-deftest wal-aw-consult-buffer ()
+ :tags '(window)
+
+ (bydi (aw-switch-to-window
+ consult-buffer)
+
+ (wal-aw-consult-buffer 'window)
+
+ (bydi-was-called-with aw-switch-to-window 'window)
+ (bydi-was-called consult-buffer)))
+
 ;;; wal-windows-test.el ends here
 
 ;; Local Variables: