Commit: e5efa412820f5ad95eb92b7bac9f2cc1a29c5656 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Révision: e5efa412820f5ad95eb92b7bac9f2cc1a29c5656 (tree)
• l'heure: 2013-09-17 00:05:47
• Auteur: Christopher Roy Bratusek <nano@tuxf...>
• Commiter: Christopher Roy Bratusek

Message de Log

fix support for xinerama shadow cropping in compton.jl + improved tab support

Change Summary

• modified: ChangeLog
• modified: lisp/sawfish/wm/prg/compton.jl

Modification

--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
[phone]  Christopher Roy Bratusek <[e-mail]>
+	* lisp/sawfish/wm/prg/compton.jl: fixup support for
+	xinerama shadow cropping, improve support for tabs [fuchur]
+
+	* lisp/sawfish/wm/tabs/tabgroup.jl: add tab-group-windows-hook,
+	returning all windows in the current tabgroup [fuchur]
+
 2013-09-14  Christopher Roy Bratusek <[e-mail]>
 	* lisp/sawfish/wm/prg/compton.jl: improved working with shadows,
 	don't draw shadows for tabbed windows by default, but provide an

--- a/lisp/sawfish/wm/prg/compton.jl
+++ b/lisp/sawfish/wm/prg/compton.jl
@@ -38,6 +38,7 @@
   (define switch-opacity nil)
   (define update-opacity nil)
   (define stop-compton nil)
+
   (defgroup window-effects "Window Effects"
     :group appearance)
 
@@ -252,7 +253,9 @@
     (define (zero) (if zero-mask '-z '-e1))
     (define (dad) (if shadows-disable-dad '-G '-e1))
     (define (smenu) (if shadows-disable-menu (concat "window_type *= 'menu'") (concat "window_type *= 'nil'")))
-    (define (sxinerama) (if shadows-crop-xinerama "--xinerama-shadow-crop" '-e1 ))
+    (define (sxinerama)
+      (if (and (eq (system  "compton --help |grep xinerama-shadow-crop") '0)
+               shadows-crop-xinerama) '--xinerama-shadow-crop '-e1 ))
 
     (define (trans) (/ (+ 0.00 translucency) 100))
     (define (fade-i) (/ (+ 0.00 fade-in) 1000))
@@ -276,7 +279,7 @@
                            (c-red (red))
                            (c-green (green))
                            (c-blue (blue))
-			   (c-sxinerama (sxinerama)))
+                           (c-sxinerama (sxinerama)))
       "Start compton. If a compton process already exists, it's beeing killed."
       (when (program-exists-p "compton")
         (stop-compton)
@@ -398,13 +401,13 @@
       (dim-window w (get-opacity opacity-by-resize)))
 
     (define (tab-release w)
-      (if (eq w 'tab-release-window)
-          (map-windows (lambda (win)
-                         (if opacity-enable
-                             (window-opacity win)
-                           (dim-window win (get-opacity '100)))))))
+      (if (and (car w)
+               (not (cdr w)))
+           (if opacity-enable
+               (window-opacity (car w))
+             (dim-window (car w) (get-opacity '100)))))
 
-    (add-hook 'post-command-hook (lambda (w) (if opacity-enable (tab-release w))))
+    (add-hook 'tab-group-windows-hook (lambda (w) (if opacity-enable (tab-release w))))
     (add-hook 'after-add-window-hook (lambda (w) (if opacity-enable (window-opacity w))))
     (add-hook 'shade-window-hook (lambda (w) (if opacity-enable (window-opacity w))))
     (add-hook 'focus-in-hook (lambda (w) (if opacity-enable (window-opacity w))))