mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Neglect trivial resizing requests

Browse source 
* exwm-manage.el (exwm-manage--on-ConfigureRequest): Neglect trivial
resizing requests since that cannot be done precisely.
This commit is contained in:
Chris Feng 2016-03-11 14:12:01 +08:00
parent e217533642
commit c8c0bc7b60
1 changed files with 40 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
exwm-manage.el
View file

@ -407,10 +407,14 @@ Would you like to kill it? "
(xcb:+request exwm--connection ,request)))) (xcb:+request exwm--connection ,request))))
(xcb:flush exwm--connection))) (xcb:flush exwm--connection)))
;; FIXME: Make the following values as small as possible.
(defconst exwm-manage--width-delta-min 5)
(defconst exwm-manage--height-delta-min 5)
(defun exwm-manage--on-ConfigureRequest (data _synthetic) (defun exwm-manage--on-ConfigureRequest (data _synthetic)
"Handle ConfigureRequest event." "Handle ConfigureRequest event."
(let ((obj (make-instance 'xcb:ConfigureRequest)) (let ((obj (make-instance 'xcb:ConfigureRequest))
buffer edges) buffer edges width-delta height-delta)
(xcb:unmarshal obj data) (xcb:unmarshal obj data)
(with-slots (window x y width height (with-slots (window x y width height
border-width sibling stack-mode value-mask) border-width sibling stack-mode value-mask)
@ -421,7 +425,29 @@ border-width: %d; sibling: #x%x; stack-mode: %d"
border-width sibling stack-mode) border-width sibling stack-mode)
(if (and (setq buffer (exwm--id->buffer window)) (if (and (setq buffer (exwm--id->buffer window))
(with-current-buffer buffer (with-current-buffer buffer
(or exwm--fullscreen (not exwm--floating-frame)))) (or exwm--fullscreen
;; Make sure it's a floating X window wanting to resize
;; itself.
(or (not exwm--floating-frame)
(progn
(setq edges
(window-inside-pixel-edges
(get-buffer-window buffer t))
width-delta (- width (- (elt edges 2)
(elt edges 0)))
height-delta (- height (- (elt edges 3)
(elt edges 1))))
;; We cannot do resizing precisely for now.
(and (if (= 0 (logand value-mask
xcb:ConfigWindow:Width))
t
(< (abs width-delta)
exwm-manage--width-delta-min))
(if (= 0 (logand value-mask
xcb:ConfigWindow:Height))
t
(< (abs height-delta)
exwm-manage--height-delta-min))))))))
;; Send client message for managed windows ;; Send client message for managed windows
(with-current-buffer buffer (with-current-buffer buffer
(setq edges (setq edges
@ -449,16 +475,18 @@ border-width: %d; sibling: #x%x; stack-mode: %d"
(if buffer (if buffer
(with-current-buffer buffer (with-current-buffer buffer
(exwm--log "ConfigureWindow (resize floating X window)") (exwm--log "ConfigureWindow (resize floating X window)")
(setq edges (when (and (/= 0 (logand value-mask xcb:ConfigWindow:Width))
(window-inside-pixel-edges (get-buffer-window buffer t))) (>= (abs width-delta) exwm-manage--width-delta-min))
(set-frame-size exwm--floating-frame (set-frame-width exwm--floating-frame
(+ width (+ (frame-pixel-width exwm--floating-frame)
(- (frame-pixel-width exwm--floating-frame) width-delta)
(- (elt edges 2) (elt edges 0)))) nil t))
(+ height (when (and (/= 0 (logand value-mask xcb:ConfigWindow:Height))
(- (frame-pixel-height exwm--floating-frame) (>= (abs height-delta) exwm-manage--height-delta-min))
(- (elt edges 3) (elt edges 1)))) (set-frame-height exwm--floating-frame
t)) (+ (frame-pixel-height exwm--floating-frame)
height-delta)
nil t)))
(exwm--log "ConfigureWindow (preserve geometry)") (exwm--log "ConfigureWindow (preserve geometry)")
;; Configure the unmanaged window. ;; Configure the unmanaged window.
(xcb:+request exwm--connection (xcb:+request exwm--connection