Merge pull request #1154 from lrustand/master23.11

Refactor resize-direction

1 files changed, 5 insertions, 8 deletions

diff --git a/iresize.lisp b/iresize.lisp
index 01ee6d3..dc0f634 100644
--- a/iresize.lisp
+++ b/iresize.lisp
@@ -58,14 +58,11 @@
 (defcommand resize-direction (d)
   ((:direction "Direction: "))
   "Resize frame to direction @var{d}"
-  (let* ((formats '((:up . "0 -~D")
-                    (:down . "0 ~D")
-                    (:left . "-~D 0")
-                    (:right . "~D 0")))
-         (deltas (format nil (cdr (assoc (princ d) formats))
-                         *resize-increment*))
-         (to-be-run (concatenate 'string "resize " deltas)))
-    (run-commands to-be-run)))
+  (case (princ d)
+    ((:up) (resize 0 (- *resize-increment*)))
+    ((:down) (resize 0 *resize-increment*))
+    ((:left) (resize (- *resize-increment*) 0))
+    ((:right) (resize *resize-increment* 0))))
 
 (defun resize-unhide ()
   (clear-frame-outlines (current-group))