Smarter narf/evil-window-move-*; add defuns-window.el

core/lib/defuns-evil.el

@@ -81,70 +81,6 @@
         (single-key-description
           (read-char "What macro?"))))))
 
-;;;###autoload
-(defun narf/evil-window-split ()
-  (interactive)
-  (call-interactively 'evil-window-split)
-  (evil-window-down 1))
-
-;;;###autoload
-(defun narf/undo-window-change ()
-  (interactive)
-  (call-interactively (if (wg-current-workgroup t) 'wg-undo-wconfig-change 'winner-undo)))
-
-;;;###autoload
-(defun narf/redo-window-change ()
-  (interactive)
-  (call-interactively (if (wg-current-workgroup t) 'wg-redo-wconfig-change 'winner-redo)))
-
-;;;###autoload
-(defun narf/evil-window-vsplit ()
-  (interactive)
-  (call-interactively 'evil-window-vsplit)
-  (evil-window-right 1))
-
-(defun narf--evil-window-move (direction)
-  "Move current window to the next window in DIRECTION. If there is no window,
-then make an empty split and switch their buffers."
-  (let* ((this-window (get-buffer-window))
-         (this-buffer (current-buffer))
-         (that-window (windmove-find-other-window direction nil this-window))
-         (that-buffer (window-buffer that-window)))
-    (unless that-window
-      (setq that-window
-            (split-window this-window nil (cond ((eq direction 'up) 'above)
-                                                ((eq direction 'down) 'below)
-                                                (t direction))))
-      (with-selected-window that-window
-        (switch-to-buffer "*scratch*"))
-      (setq that-buffer (window-buffer that-window)))
-    (with-selected-window this-window
-      (switch-to-buffer that-buffer))
-    (with-selected-window that-window
-      (switch-to-buffer this-buffer))
-    (select-window that-window)))
-
-;;;###autoload
-(defun narf/evil-window-move-left ()
-  "See `narf--evil-window-move'"
-  (interactive)
-  (narf--evil-window-move 'left))
-;;;###autoload
-(defun narf/evil-window-move-down ()
-  "See `narf--evil-window-move'"
-  (interactive)
-  (narf--evil-window-move 'down))
-;;;###autoload
-(defun narf/evil-window-move-up ()
-  "See `narf--evil-window-move'"
-  (interactive)
-  (narf--evil-window-move 'up))
-;;;###autoload
-(defun narf/evil-window-move-right ()
-  "See `narf--evil-window-move'"
-  (interactive)
-  (narf--evil-window-move 'right))
-
 ;;;###autoload
 (defmacro define-text-object! (key start-regex end-regex)
   (let ((inner-name (make-symbol "narf--inner-name"))

core/lib/defuns-window.el

@@ -0,0 +1,75 @@
+;;; defuns-window.el --- library for acting on windows
+
+;;;###autoload
+(defun narf/evil-window-split ()
+  (interactive)
+  (call-interactively 'evil-window-split)
+  (evil-window-down 1))
+
+;;;###autoload
+(defun narf/evil-window-vsplit ()
+  (interactive)
+  (call-interactively 'evil-window-vsplit)
+  (evil-window-right 1))
+
+(defun narf--evil-swap-windows (a b)
+  (let ((a-buffer (window-buffer a))
+        (b-buffer (window-buffer b)))
+    (with-selected-window b
+      (switch-to-buffer a-buffer))
+    (with-selected-window a
+      (switch-to-buffer b-buffer))
+    (select-window b)))
+
+(defun narf--evil-window-move (direction)
+  "Move current window to the next window in DIRECTION. If there are no windows
+there and there is only one window, split in that direction and place this
+window there. If there are no windows and this isn't the only window, use
+evil-window-move-* (e.g. `evil-window-move-far-left')"
+  (let* ((this-window (get-buffer-window))
+         (this-buffer (current-buffer))
+         (that-window (windmove-find-other-window direction nil this-window))
+         (that-buffer (window-buffer that-window)))
+    (if (and (not that-window) (not (one-window-p t)))
+        (funcall (case direction
+                   ('left 'evil-window-move-far-left)
+                   ('right 'evil-window-move-far-right)
+                   ('up 'evil-window-move-very-top)
+                   ('down 'evil-window-move-very-bottom)))
+      (unless that-window
+        (setq that-window
+              (split-window this-window nil (cond ((eq direction 'up) 'above)
+                                                  ((eq direction 'down) 'below)
+                                                  (t direction))))
+        (with-selected-window that-window
+          (switch-to-buffer "*scratch*"))
+        (setq that-buffer (window-buffer that-window)))
+      (with-selected-window this-window
+        (switch-to-buffer that-buffer))
+      (with-selected-window that-window
+        (switch-to-buffer this-buffer))
+      (select-window that-window))))
+
+;;;###autoload
+(defun narf/evil-window-move-left ()
+  "See `narf--evil-window-move'"
+  (interactive)
+  (narf--evil-window-move 'left))
+;;;###autoload
+(defun narf/evil-window-move-down ()
+  "See `narf--evil-window-move'"
+  (interactive)
+  (narf--evil-window-move 'down))
+;;;###autoload
+(defun narf/evil-window-move-up ()
+  "See `narf--evil-window-move'"
+  (interactive)
+  (narf--evil-window-move 'up))
+;;;###autoload
+(defun narf/evil-window-move-right ()
+  "See `narf--evil-window-move'"
+  (interactive)
+  (narf--evil-window-move 'right))
+
+(provide 'defuns-window)
+;;; defuns-window.el ends here