Skip adding inner gaps in transient windows

lepisma · Jul 15, 2017 · 3a79995 · 3a79995
1 parent a149a5d
commit 3a79995
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/swm-gaps.lisp b/swm-gaps.lisp
@@ -14,7 +14,7 @@
   (multiple-value-bind (x y wx wy width height border stick)
       (stumpwm::geometry-hints win)
 
-    (if *gaps-on*
+    (if (and *gaps-on* (not (stumpwm::window-transient-p win)))
         (setf width (- width (* 2 *inner-gaps-size*))
               height (- height (* 2 *inner-gaps-size*))
               x (+ x *inner-gaps-size*)
@@ -40,10 +40,10 @@
           (let ((frame (stumpwm::window-frame win)))
             (setf (xlib:drawable-width (window-parent win)) (- (frame-width frame)
                                                                (* 2 (xlib:drawable-border-width (window-parent win)))
-                                                               (if *gaps-on* (* 2 *inner-gaps-size*) 0))
+                                                               (if (and *gaps-on* (not (stumpwm::window-transient-p win))) (* 2 *inner-gaps-size*) 0))
                   (xlib:drawable-height (window-parent win)) (- (stumpwm::frame-display-height (window-group win) frame)
                                                                 (* 2 (xlib:drawable-border-width (window-parent win)))
-                                                                (if *gaps-on* (* 2 *inner-gaps-size*) 0)))))
+                                                                (if (and *gaps-on* (not (stumpwm::window-transient-p win))) (* 2 *inner-gaps-size*) 0)))))
       ;; update the "extents"
       (xlib:change-property (window-xwin win) :_NET_FRAME_EXTENTS
                             (list wx wy