Skip to content

Fixed the xcb:rectangle bug. #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
FirefoxSalesman wants to merge 7 commits into
base: main
Choose a base branch
from
Open

Fixed the xcb:rectangle bug. #1

Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
de996bc
Fixed the xcb:rectangle bug.
FirefoxSalesman Oct 14, 2023
e792915
Fixed the rectangle bug again
FirefoxSalesman Sep 14, 2024
2724f7e
Fixed the hook issue?
FirefoxSalesman Jun 10, 2025
6786347
Trying again
FirefoxSalesman Jun 10, 2025
e02267d
Here's hoping the braindead solution is the one that works
FirefoxSalesman Jun 10, 2025
0b562c4
I think I'm stupid
FirefoxSalesman Jun 10, 2025
be32f5b
Attempted to fix the issue with exwm-outer-gaps-apply
FirefoxSalesman Jun 10, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
19 changes: 10 additions & 9 deletions exwm-outer-gaps.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -20,10 +20,10 @@
"Hook to be ran after exwm-workspace--update-workareas-hook"
(let (workareas frames)
(dolist (w exwm-workspace--workareas)
(setf (aref w 0) (+ (aref w 0) (aref exwm-outer-gaps-width 0)) ; x for top left corner
(aref w 1) (+ (aref w 1) (aref exwm-outer-gaps-width 2)) ; y for top left corner
(aref w 2) (- (aref w 2) (+ (aref exwm-outer-gaps-width 0) (aref exwm-outer-gaps-width 1))) ; width of frame
(aref w 3) (- (aref w 3) (+ (aref exwm-outer-gaps-width 2) (aref exwm-outer-gaps-width 3))))))) ; height of frame
(setf (aref w 3) (+ (aref w 3) (aref exwm-outer-gaps-width 0)) ; x for top left corner
(aref w 4) (+ (aref w 4) (aref exwm-outer-gaps-width 2)) ; y for top left corner
(aref w 5) (- (aref w 5) (+ (aref exwm-outer-gaps-width 0) (aref exwm-outer-gaps-width 1))) ; width of frame
(aref w 6) (- (aref w 6) (+ (aref exwm-outer-gaps-width 2) (aref exwm-outer-gaps-width 3))))))) ; height of frame

(defun exwm-outer-gaps-apply ()
"Function used to apply gaps to the emacs frames."
Expand Down Expand Up @@ -85,10 +85,11 @@ exwm-outer-gaps-increment-step"
"Add useless outer gaps to exwm."
:global t
(if exwm-outer-gaps-mode
(add-hook 'exwm-workspace--update-workareas-hook
#'exwm-outer-gaps-compute-gaps)
(remove-hook 'exwm-workspace--update-workareas-hook
#'exwm-outer-gaps-compute-gaps))
(exwm-outer-gaps-apply))
((lambda ()
(add-hook 'exwm-workspace--update-workareas-hook #'exwm-outer-gaps-compute-gaps)
(exwm-outer-gaps-apply)))
((lambda ()
(remove-hook 'exwm-workspace--update-workareas-hook #'exwm-outer-gaps-compute-gaps)
(exwm-outer-gaps-apply)))))

(provide 'exwm-outer-gaps)