Re: Only for germans ;)

diff -urNad sawfish.orgi/lisp/sawfish/wm/commands/groups.jl sawfish/lisp/sawfish/wm/commands/groups.jl
--- sawfish.orgi/lisp/sawfish/wm/commands/groups.jl
+++ sawfish/lisp/sawfish/wm/commands/groups.jl
@@ -66,13 +66,17 @@
       (fun w)))
 
   (define (iconify-group w)
+    "Minimize the window and all windows from the same group."
     (call-with-iconify-mode 'group iconify-window w))
   (define (uniconify-group w)
+    "Restore the window and all windows from the same group from its minimized state."
     (call-with-iconify-mode 'group uniconify-window w))
 
   (define (iconify-transient-group w)
+    "Minimize the transient window and all transient windows from the same group."
     (call-with-iconify-mode 'transients iconify-window w))
   (define (uniconify-transient-group w)
+    "Restore the transient window and all transient windows from the same group from its minimized state."
     (call-with-iconify-mode 'transients uniconify-window w))
 
   (define-command 'iconify-group
@@ -87,13 +91,18 @@
   ;; sticky
 
   (define (make-group-sticky w)
+    "Make the window and all windows from the same group appears in all workspaces and viewports."
     (map-window-group make-window-sticky w))
   (define (make-group-unsticky w)
+    "Make the window and all windows from the same group appears only in the
+current workspaces or viewports."
     (map-window-group make-window-unsticky w))
-
+  
   (defun toggle-group-sticky (w)
+    "Toggle the `stickiness' from the window and all windows from the same group,
+i.e. make it appear in all workspaces and viewports."
     (if (window-get w 'sticky)
-	(make-group-unsticky w)
+        (make-group-unsticky w)
       (make-group-sticky w)))
 
   ;;###autoload
@@ -112,15 +121,18 @@
 	  send-group-dest-space (eq x (input-focus))))) w))
 
   (define (send-group-to-current-workspace w)
+    "Send the window and all windows from the same group to the current workspace."
     (send-group-to-workspace w current-workspace))
 
   (define (send-group-to-next-workspace send-group-window count)
+    "Send the window and all windows from the same group to the next workspace."
     (ws-call-with-workspace (lambda (space)
 			      (send-group-to-workspace send-group-window space)
 			      (select-workspace space))
 			    count workspace-send-boundary-mode))
 
   (define (send-group-to-previous-workspace w count)
+    "Send the window and all windows from the same group to the previous workspace."
     (send-group-to-next-workspace w (- count)))
 
   ;;###autoload
@@ -134,6 +146,8 @@
   ;; viewports
 
   (define (move-group-to-current-viewport w)
+    "Move the window and all windows from the same group
+to the current viewport."
     (map-window-group move-window-to-current-viewport w))
 
   (define (move-group-viewport w col row)
@@ -141,10 +155,25 @@
 			(move-window-viewport x col row)) w)
     (move-viewport-to-window w))
 
-  (define (move-group-left w) (move-group-viewport w -1 0))
-  (define (move-group-right w) (move-group-viewport w 1 0))
-  (define (move-group-up w) (move-group-viewport w 0 -1))
-  (define (move-group-down w) (move-group-viewport w 0 1))
+  (define (move-group-left w) 
+    "Move the window and all windows from the same group
+to the viewport on the left, and switch to that viewport."
+    (move-group-viewport w -1 0))
+
+  (define (move-group-right w) 
+    "Move the window and all windows from the same group
+to the viewport on the right, and switch to that viewport."
+    (move-group-viewport w 1 0))
+
+  (define (move-group-up w) 
+    "Move the window and all windows from the same group
+to the viewport above, and switch to that viewport."
+    (move-group-viewport w 0 -1))
+
+  (define (move-group-down w) 
+    "Move the window and all windows from the same group
+to the viewport below, and switch to that viewport."
+    (move-group-viewport w 0 1))
 
   ;;###autoload
   (define-command 'move-group-to-current-viewport
@@ -162,11 +191,29 @@
 
   ;; stacking
 
-  (define (raise-group w) (raise-windows w (windows-in-group w t)))
-  (define (lower-group w) (lower-windows w (windows-in-group w t)))
-  (define (raise-lower-group w) (raise-lower-windows w (windows-in-group w t)))
-  (define (raise-group-depth w) (map-window-group raise-window-depth w))
-  (define (lower-group-depth w) (map-window-group lower-window-depth w))
+  (define (raise-group w) 
+    "Raise the window and all windows from the same group to its highest
+allowed position in the stacking order."
+    (raise-windows w (windows-in-group w t)))
+
+  (define (lower-group w) 
+    "Lower the window and all windows from the same group to its lowest
+allowed position in the stacking order."
+    (lower-windows w (windows-in-group w t)))
+
+  (define (raise-lower-group w) 
+    "If the window is at its highest possible position, then lower the window and all
+windows from the same group to its lowest possible position. Otherwise raise the window
+and all windows from the group as far as allowed."
+    (raise-lower-windows w (windows-in-group w t)))
+
+  (define (raise-group-depth w) 
+    "Put the window and all windows from the same group in the stacking level above its current level."
+    (map-window-group raise-window-depth w))
+
+  (define (lower-group-depth w) 
+    "Put the window and all windows from the same group in the stacking level beneath its current level."
+    (map-window-group lower-window-depth w))
 
   ;;###autoload
   (define-command 'raise-group raise-group
diff -urNad sawfish.orgi/lisp/sawfish/wm/commands/help.jl sawfish/lisp/sawfish/wm/commands/help.jl
--- sawfish.orgi/lisp/sawfish/wm/commands/help.jl
+++ sawfish/lisp/sawfish/wm/commands/help.jl
@@ -40,16 +40,24 @@
 
   ;; Commands
 
-  (define (show-faq) (help-display-info-function "sawfish" "FAQ"))
+  (define (show-faq) 
+    "Display the sawfish FAQ."
+    (help-display-info-function "sawfish" "FAQ"))
 
-  (define (show-news) (help-display-info-function "sawfish" "News"))
+  (define (show-news) 
+    "Display sawfish news."
+    (help-display-info-function "sawfish" "News"))
 
   (define (show-programmer-manual)
+    "Open the programmer manual."
     (help-display-info-function "sawfish" "Top"))
 
-  (define (show-homepage) (browser "http://sawfish.wikia.com/"))
+  (define (show-homepage) 
+    "Open the webside http://sawfish.wikia.com."
+    (browser "http://sawfish.wikia.com/"))
 
   (define (show-about)
+    "Open about sawfish."
     (system "sawfish-about >/dev/null 2>&1 </dev/null &"))
 
   ;;###autoload
diff -urNad sawfish.orgi/lisp/sawfish/wm/commands/move-resize.jl sawfish/lisp/sawfish/wm/commands/move-resize.jl
--- sawfish.orgi/lisp/sawfish/wm/commands/move-resize.jl
+++ sawfish/lisp/sawfish/wm/commands/move-resize.jl
@@ -547,10 +547,12 @@
       (resize-window-with-hints* win new-wid new-hgt)))
 
   (define (double-window-size w)
+    "Resize the window to the double size."
     (unless (window-get w 'fixed-size)
       (resize-by-factor w 2)))
 
   (define (halve-window-size w)
+    "Resize the window to the halve size."
     (unless (window-get w 'fixed-size)
       (resize-by-factor w 0.5)))
 
@@ -597,6 +599,7 @@
 
   ;; Move Window To Center
   (define (move-window-center w)
+    "Move the window to the center from the current screen."
     (move-window-to w
                     (quotient (- (screen-width)
                                  (car (window-frame-dimensions w))) 2)
@@ -605,8 +608,8 @@
 
   ;; resize-prompt
   (define (resize-window-prompt)
-    (require 'sawfish.wm.util.prompt)
     "Resize window. Prompted to enter new size."
+    (require 'sawfish.wm.util.prompt)
     (let* ((win (current-event-window))
            (w-name (window-name win))
            (old-w (car (window-dimensions win)))
diff -urNad sawfish.orgi/lisp/sawfish/wm/commands/poweroff.jl sawfish/lisp/sawfish/wm/commands/poweroff.jl
--- sawfish.orgi/lisp/sawfish/wm/commands/poweroff.jl
+++ sawfish/lisp/sawfish/wm/commands/poweroff.jl
@@ -67,6 +67,8 @@
     :group (misc apps))
 
   (define (poweroff action)
+    "Run one of the following system programs: 
+halt, reboot, suspend, hibernate, logout or lockdown."
     (case action
       ((reboot)
        (call-hook 'before-exit-hook)
diff -urNad sawfish.orgi/lisp/sawfish/wm/commands/raise-commands.jl sawfish/lisp/sawfish/wm/commands/raise-commands.jl
--- sawfish.orgi/lisp/sawfish/wm/commands/raise-commands.jl
+++ sawfish/lisp/sawfish/wm/commands/raise-commands.jl
@@ -59,6 +59,8 @@
     (replay-pointer w))
 
   (define (or-pass-through-click w)
+    "Raise the window if it is not on top, or if the window is on top, then replay
+any pointer events that invoked the command."
     (if (and (windowp w) (not (window-on-top-p w)))
 	(raise-window* w)
       (replay-pointer w)))
diff -urNad sawfish.orgi/lisp/sawfish/wm/custom.jl sawfish/lisp/sawfish/wm/custom.jl
--- sawfish.orgi/lisp/sawfish/wm/custom.jl
+++ sawfish/lisp/sawfish/wm/custom.jl
@@ -215,7 +215,7 @@
             (require 'sawfish.wm.customize)
             (customize group))
 	  #:doc (format nil
-			"Invoke configurator to customize group \"%s\"."
+			"Invoke configurator to customize group %s."
 			group
 			)))))
 
diff -urNad sawfish.orgi/lisp/sawfish/wm/state/iconify.jl sawfish/lisp/sawfish/wm/state/iconify.jl
--- sawfish.orgi/lisp/sawfish/wm/state/iconify.jl
+++ sawfish/lisp/sawfish/wm/state/iconify.jl
@@ -232,6 +232,7 @@
       (emit-sticky-hook w)))
 
   (define (make-window-unsticky w)
+    "Make the window only appear on the current workspaces or viewports."
     (when (window-sticky-p w)
       (make-window-unsticky/workspace w #:no-hooks t)
       (make-window-unsticky/viewport w #:no-hooks t)

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.20 (GNU/Linux)

iEYEARECAAYFAlJRXJsACgkQ5bxw1bjXsrCa1gCePlAzHkKxhQlcKyoOZLV0MiOP
jf4An2Kii87Updo5oMTRLd1J9gKnxk6Z
=hyVw
-----END PGP SIGNATURE-----