Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 06:48:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Selectively ignore left & right struts in horizontally aligned monitors

Browse source 
* exwm-workspace.el (exwm-workspace--update-workareas): Simplify
cross-monitor strut conditionals and apply them to horizontally
aligned monitors.
This commit is contained in:
Adrián Medraño Calvo 2023-06-09 00:00:00 +00:00
parent 937da86458
commit 23f1ca740d
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
exwm-workspace.el
View file

@ -370,6 +370,7 @@ FRAME may be either a workspace frame or a workspace position."
(`left
(setq delta (- size x))
(when (and (< 0 delta)
(< delta width)
(or (not position)
(< (max beg y)
(min end (+ y height)))))
@ -378,6 +379,7 @@ FRAME may be either a workspace frame or a workspace position."
(`right
(setq delta (- size (- root-width x width)))
(when (and (< 0 delta)
(< delta width)
(or (not position)
(< (max beg y)
(min end (+ y height)))))
@ -385,22 +387,19 @@ FRAME may be either a workspace frame or a workspace position."
(`top
(setq delta (- size y))
(when (and (< 0 delta)
(< delta height)
(or (not position)
(< (max beg x)
(min end (+ x width))))
(< size (+ y height))
(> size y))
(min end (+ x width)))))
(cl-decf height delta)
(setf y size)))
(`bottom
(setq delta (- size (- root-height y height)))
(when (and (< 0 delta)
(< delta height)
(or (not position)
(< (max beg x)
(min end (+ x width))))
(< (- root-height size)
(+ y height))
(> (- root-height size) y))
(min end (+ x width)))))
(cl-decf height delta))))))))
;; Save the result.
(setq exwm-workspace--workareas workareas)