branch: externals/exwm
commit baaff26f7d2c53230b4836c21e29fe553a28c2ba
Author: Steven Allen <[email protected]>
Commit: Steven Allen <[email protected]>
Remove workspace frame "offsets"
* exwm-workspace.el:
(exwm-workspace--frame-y-offset):
(exwm-workspace--window-y-offset):
(exwm-workspace--update-offsets):
Remove variables and functions used by previous placement/sizing hacks.
---
exwm-workspace.el | 33 ---------------------------------
1 file changed, 33 deletions(-)
diff --git a/exwm-workspace.el b/exwm-workspace.el
index bdbdf57690..314684c684 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -147,11 +147,6 @@ Please manually run the hook
`exwm-workspace-list-change-hook' afterwards.")
(defvar exwm-workspace--workareas nil "Workareas (struts excluded).")
-(defvar exwm-workspace--frame-y-offset 0
- "Offset between Emacs inner & outer frame in Y.")
-(defvar exwm-workspace--window-y-offset 0
- "Offset between Emacs first window & outer frame in Y.")
-
(defvar exwm-input--event-hook)
(defvar exwm-layout-show-all-buffers)
(defvar exwm-manage--desktop)
@@ -425,34 +420,6 @@ Show PROMPT to the user if non-nil."
(exwm--log "%s" exwm-workspace--workareas)
(run-hooks 'exwm-workspace--update-workareas-hook))
-(defun exwm-workspace--update-offsets ()
- "Update `exwm-workspace--frame-y-offset'/`exwm-workspace--window-y-offset'."
- (exwm--log)
- (if (not (and exwm-workspace--list
- (or menu-bar-mode tool-bar-mode)))
- (setq exwm-workspace--frame-y-offset 0
- exwm-workspace--window-y-offset 0)
- (redisplay t)
- (let* ((frame (elt exwm-workspace--list 0))
- (edges (window-inside-absolute-pixel-edges (frame-first-window
- frame))))
- (with-slots (y)
- (xcb:+request-unchecked+reply exwm--connection
- (make-instance 'xcb:GetGeometry
- :drawable (frame-parameter frame
- 'exwm-container)))
- (with-slots ((y* y))
- (xcb:+request-unchecked+reply exwm--connection
- (make-instance 'xcb:GetGeometry
- :drawable (frame-parameter frame
- 'exwm-outer-id)))
- (with-slots ((y** y))
- (xcb:+request-unchecked+reply exwm--connection
- (make-instance 'xcb:GetGeometry
- :drawable (frame-parameter frame 'exwm-id)))
- (setq exwm-workspace--frame-y-offset (- y** y*)
- exwm-workspace--window-y-offset (- (elt edges 1) y))))))))
-
(defun exwm-workspace--set-active (frame active)
"Make frame FRAME active on its monitor.
ACTIVE indicates whether to set the frame active or inactive."
