diff options
Diffstat (limited to 'exwm-randr.el')
| -rw-r--r-- | exwm-randr.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/exwm-randr.el b/exwm-randr.el index f488bd9deda1..a0fe959a7c49 100644 --- a/exwm-randr.el +++ b/exwm-randr.el @@ -123,12 +123,12 @@ corresponding monitors whenever the monitors are active. :width width :height height) monitor-plist (plist-put monitor-plist monitor-name geometry)) + (exwm--log "%s: %sx%s+%s+%s" monitor-name x y width height) ;; Save primary monitor when available (fallback to the first one). (when (or (/= 0 primary) (not primary-monitor)) (setq primary-monitor monitor-name))))) (exwm--log "Primary monitor: %s" primary-monitor) - (exwm--log "Monitors: %s" monitor-plist) (list primary-monitor monitor-plist))) ;;;###autoload @@ -233,6 +233,7 @@ Refresh when any RandR 1.5 monitor changes." (defun exwm-randr--init () "Initialize RandR extension and EXWM RandR module." + (exwm--log) (if (= 0 (slot-value (xcb:get-extension-data exwm--connection 'xcb:randr) 'present)) (error "[EXWM] RandR extension is not supported by the server") @@ -270,10 +271,12 @@ Refresh when any RandR 1.5 monitor changes." (defun exwm-randr--exit () "Exit the RandR module." + (exwm--log) (remove-hook 'exwm-workspace-list-change-hook #'exwm-randr-refresh)) (defun exwm-randr-enable () "Enable RandR support for EXWM." + (exwm--log) (add-hook 'exwm-init-hook #'exwm-randr--init) (add-hook 'exwm-exit-hook #'exwm-randr--exit)) |