add workspace offsetexwm-workspace-offset

1 files changed, 6 insertions, 0 deletions

diff --git a/corfu.el b/corfu.el
index 0280d8c..aed5041 100644
--- a/corfu.el
+++ b/corfu.el
@@ -502,6 +502,12 @@ FRAME is the existing frame."
       (set-window-dedicated-p win t))
     (redirect-frame-focus frame parent)
     (set-frame-size frame width height t)
+    (when-let (((bound-and-true-p exwm--connection))
+               ((not (frame-parent frame)))
+               (ws (bound-and-true-p exwm-workspace--current)))
+      (pcase-let ((`(,xoff ,yoff ,_w ,_h) (frame-monitor-geometry ws)))
+        (cl-incf x xoff)
+        (cl-incf y yoff)))
     (unless (equal (frame-position frame) (cons x y))
       (set-frame-position frame x y)))
   (make-frame-visible frame)