Fix pointer warp

2026-02-19 09:49:23 +00:00
parent 6ec59c3be2
commit 0ac299589e
1 changed files with 3 additions and 1 deletions
--- a/main.janet
+++ b/main.janet
@@ -491,7 +491,9 @@
               new-output (action/target-in current-output outputs dir)]
      (seat/focus-output seat new-output)
      (seat/focus seat (first (output/windows new-output)))
-      (:pointer-warp (seat :obj) (+ (new-output :x) (/ (new-output :w) 2)) (+ (new-output :y) (/ (new-output :h) 2))))))
+      (def [x y] (new-output :position))
+      (def [w h] (new-output :dimensions))
+      (:pointer-warp (seat :obj) (+ x (/ w 2)) (+ y (/ h 2))))))

 (defn action/goto-tag [tag]
  (def f (cond