about summary refs log tree commit diff
path: root/exwm-randr.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2018-12-02T00·00+0000
committerChris Feng <chris.w.feng@gmail.com>2018-12-02T00·00+0000
commit58f7916619d11a8a4ad5d0bb926e7281054dd964 (patch)
tree216ddb3a6c73907803b5eda83fe5d75b318dd880 /exwm-randr.el
parentfe8274ca7ed6b5bbb397fbe93158ad41b13f5577 (diff)
; Improve debug logs.
Diffstat (limited to 'exwm-randr.el')
-rw-r--r--exwm-randr.el5
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))