| [Sawfish] Re: Only for germans ;) |
[ Thread Index | Date Index | More lists.tuxfamily.org/sawfish Archives ]
Hi, On Sat, 5 Oct 2013 20:57:54 +0200 wrote fuchur <flohtransporter@xxxxxxxxx>: >Hi, > >On Thu, 3 Oct 2013 00:10:36 +0200 >wrote fuchur <flohtransporter@xxxxxxxxx>: > >> ... > >A set of patches, apply after de.po.patch: > >01.docs.patch >Update StyleTab/theme.jl text strings > >02.docs.patch >Update german translation > >03.docs.patch >Rename tab-add-to-group to tab-window-add-to-tabgroup and >tabgroup-add-to-group to tab-tabgroup-add-to-tabgroup >in tabs/tab.jl and wm/keymaps.jl. >You must update your keybindings for title and tabbar. >Add/improve text/doc strings in tabs/tab.jl and tabs/tabgroup.jl > >04.docs.patch >Update german translation > >05.docs.patch >06.docs.patch >Add/improve text/doc strings in tabs/tab.jl and tabs/tabgroup.jl > >07.docs.patch >Add defcustom marked-cursor-shape to commands/move-resize.jl >Use custom cursor if window marked to add as tab. >Improve text/doc strings in prg/compton.jl > >08.docs.patch >Update german translation > 09.docs.patch Add missing text/doc strings in sawfish. -- Regards, Fuchur GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53 C116 E5BC 70D5 B8D7 B2B0
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)
Attachment:
signature.asc
Description: PGP signature
| Mail converted by MHonArc 2.6.19+ | http://listengine.tuxfamily.org/ |