improve(useful): wal-other-window

This combines wal-switch-to-other-buffer and wal-other-window-mru.

lib/wal-key-bindings.org

@@ -551,7 +551,7 @@ USER-KEY and LEADER can be used to prefix the key."
   (define-key undo-repeat-map "?" #'undo-redo)
 
   ;; Bind additional `other-window' commands.
-  (global-set-key (kbd "M-o") 'wal-other-window-mru)
+  (global-set-key (kbd "M-o") 'wal-other-window)
   (global-set-key (kbd "C-M-o") 'wal-switch-to-other-buffer)
 
   (with-eval-after-load 'window

lib/wal-useful.org

@@ -413,6 +413,14 @@ Search using regular expression if REGEXP is t."
 
     (select-window mru-window)))
 
+(defun wal-other-window ()
+  "Select the mru window or switch buffers."
+  (interactive)
+
+  (if (one-window-p)
+      (wal-switch-to-other-buffer)
+    (wal-other-window-mru)))
+
 (defun wal-other-window-for-scrolling ()
   "Get the default window to scroll."
   (or (get-mru-window nil nil t)

test/wal-useful-test.el

@@ -432,6 +432,20 @@
 
     (bydi-was-called-with select-window 'current)))
 
+(ert-deftest wal-other-window ()
+  :tags '(useful windows)
+
+  (bydi ((:sometimes one-window-p)
+         wal-switch-to-other-buffer
+         wal-other-window-mru)
+
+    (wal-other-window)
+    (bydi-was-called wal-switch-to-other-buffer t)
+    (bydi-toggle-volatile 'one-window-p)
+
+    (wal-other-window)
+    (bydi-was-called wal-other-window-mru)))
+
 (ert-deftest wal-other-window-for-scrolling ()
   :tags '(useful windows)