sawfish r4381 - in trunk: . lisp/sawfish/wm lisp/sawfish/wm/animation lisp/sawfish/wm/commands lisp/sawfish/wm/ext lisp/sawfish/wm/placement lisp/sawfish/wm/state lisp/sawfish/wm/util po



Author: chrisb
Date: Sun Feb  1 22:43:12 2009
New Revision: 4381
URL: http://svn.gnome.org/viewvc/sawfish?rev=4381&view=rev

Log:
- mark all translatable strings with (_ )
- make -C po update-po


Modified:
   trunk/ChangeLog
   trunk/lisp/sawfish/wm/animation/outline.jl
   trunk/lisp/sawfish/wm/autoload.jl
   trunk/lisp/sawfish/wm/commands/grow-pack.jl
   trunk/lisp/sawfish/wm/commands/move-cursor.jl
   trunk/lisp/sawfish/wm/commands/move-resize.jl
   trunk/lisp/sawfish/wm/commands/x-cycle.jl
   trunk/lisp/sawfish/wm/commands/xterm.jl
   trunk/lisp/sawfish/wm/custom.jl
   trunk/lisp/sawfish/wm/ext/audio-events.jl
   trunk/lisp/sawfish/wm/ext/auto-raise.jl
   trunk/lisp/sawfish/wm/ext/edge-flip.jl
   trunk/lisp/sawfish/wm/ext/error-handler.jl
   trunk/lisp/sawfish/wm/ext/match-window.jl
   trunk/lisp/sawfish/wm/ext/shade-hover.jl
   trunk/lisp/sawfish/wm/ext/tooltips.jl
   trunk/lisp/sawfish/wm/ext/window-history.jl
   trunk/lisp/sawfish/wm/focus.jl
   trunk/lisp/sawfish/wm/frames.jl
   trunk/lisp/sawfish/wm/keymaps.jl
   trunk/lisp/sawfish/wm/placement.jl
   trunk/lisp/sawfish/wm/placement/stagger.jl
   trunk/lisp/sawfish/wm/stacking.jl
   trunk/lisp/sawfish/wm/state/iconify.jl
   trunk/lisp/sawfish/wm/state/maximize.jl
   trunk/lisp/sawfish/wm/state/transient.jl
   trunk/lisp/sawfish/wm/util/display-window.jl
   trunk/lisp/sawfish/wm/util/play-audio.jl
   trunk/lisp/sawfish/wm/util/prompt.jl
   trunk/lisp/sawfish/wm/util/stacking.jl
   trunk/lisp/sawfish/wm/viewport.jl
   trunk/lisp/sawfish/wm/window-anim.jl
   trunk/lisp/sawfish/wm/windows.jl
   trunk/lisp/sawfish/wm/workspace.jl
   trunk/po/am.po
   trunk/po/ar.po
   trunk/po/az.po
   trunk/po/be.po
   trunk/po/bg.po
   trunk/po/bs.po
   trunk/po/ca.po
   trunk/po/cs.po
   trunk/po/da.po
   trunk/po/de.po
   trunk/po/dz.po
   trunk/po/el.po
   trunk/po/en_CA.po
   trunk/po/en_GB.po
   trunk/po/es.po
   trunk/po/et.po
   trunk/po/eu.po
   trunk/po/fi.po
   trunk/po/fr.po
   trunk/po/ga.po
   trunk/po/gl.po
   trunk/po/hu.po
   trunk/po/it.po
   trunk/po/ja.po
   trunk/po/ko.po
   trunk/po/lv.po
   trunk/po/mk.po
   trunk/po/ms.po
   trunk/po/nb.po
   trunk/po/ne.po
   trunk/po/nl.po
   trunk/po/nn.po
   trunk/po/no.po
   trunk/po/oc.po
   trunk/po/pa.po
   trunk/po/pl.po
   trunk/po/pt.po
   trunk/po/pt_BR.po
   trunk/po/ro.po
   trunk/po/ru.po
   trunk/po/rw.po
   trunk/po/sk.po
   trunk/po/sl.po
   trunk/po/sr.po
   trunk/po/sr Latn po
   trunk/po/sv.po
   trunk/po/tr.po
   trunk/po/uk.po
   trunk/po/vi.po
   trunk/po/wa.po
   trunk/po/zh_CN.po
   trunk/po/zh_TW.po

Modified: trunk/lisp/sawfish/wm/animation/outline.jl
==============================================================================
--- trunk/lisp/sawfish/wm/animation/outline.jl	(original)
+++ trunk/lisp/sawfish/wm/animation/outline.jl	Sun Feb  1 22:43:12 2009
@@ -35,18 +35,18 @@
   (define-structure-alias anim-outline sawfish.wm.animation.outline)
 
   (defcustom anim-outline-icon-coords '(cons (screen-width) (screen-height))
-    "Animation Outline Coordinates"
+    (_"Animation Outline Coordinates")
     :type (pair (number 1) (number 1))
     :group (appearance animation))
 
   (defcustom anim-outline-steps 16
-    "Animation Steps"
+    (_"Animation Steps")
     :type number
     :group (appearance animation)
     :range ( 1 . 1000 ))
 
   (defcustom anim-outline-delay 20
-    "Animation Delay"
+    (_"Animation Delay")
     :type number
     :group (appearance animation)
     :range ( 1 . 1000 ))

Modified: trunk/lisp/sawfish/wm/autoload.jl
==============================================================================
--- trunk/lisp/sawfish/wm/autoload.jl	(original)
+++ trunk/lisp/sawfish/wm/autoload.jl	Sun Feb  1 22:43:12 2009
@@ -116,7 +116,7 @@
 (autoload-command (quote slide-group-right) (quote sawfish.wm.commands.slide-window))
 (autoload-command (quote slide-group-up) (quote sawfish.wm.commands.slide-window))
 (autoload-command (quote slide-group-down) (quote sawfish.wm.commands.slide-window))
-(defgroup cycle "Window Cycling" :group focus :require sawfish.wm.commands.x-cycle)
+(defgroup cycle (_"Window Cycling") :group focus :require sawfish.wm.commands.x-cycle)
 (autoload-command 'cycle-windows 'sawfish.wm.commands.x-cycle)
 (autoload-command 'cycle-windows-backwards 'sawfish.wm.commands.x-cycle)
 (autoload-command 'cycle-group 'sawfish.wm.commands.x-cycle)
@@ -129,9 +129,9 @@
 (autoload-command 'cycle-dock-backwards 'sawfish.wm.commands.x-cycle)
 (autoload-command (quote xterm) (quote sawfish.wm.commands.xterm))
 (autoload-command (quote 3d-hack) (quote sawfish.wm.ext.3d-hack) #:class 'default)
-(defgroup audio "Sound" :require sawfish.wm.ext.audio-events)
-(defgroup match-window "Matched Windows" :layout single :require sawfish.wm.ext.match-window)
-(defgroup tooltips "Tooltips" :group appearance :require sawfish.wm.ext.tooltips)
+(defgroup audio (_"Sound") :require sawfish.wm.ext.audio-events)
+(defgroup match-window (_"Matched Windows") :layout single :require sawfish.wm.ext.match-window)
+(defgroup tooltips (_"Tooltips") :group appearance :require sawfish.wm.ext.tooltips)
 (autoload-placement-mode 'first-fit 'sawfish.wm.placement.smart #:for-normal t)
 (autoload-placement-mode 'best-fit 'sawfish.wm.placement.smart #:for-normal t)
 (autoload-placement-mode 'best-fit-group 'sawfish.wm.placement.smart #:for-normal t)

Modified: trunk/lisp/sawfish/wm/commands/grow-pack.jl
==============================================================================
--- trunk/lisp/sawfish/wm/commands/grow-pack.jl	(original)
+++ trunk/lisp/sawfish/wm/commands/grow-pack.jl	Sun Feb  1 22:43:12 2009
@@ -61,43 +61,30 @@
 
 ;;; Customization options.
    
-  (defgroup grow-pack "Growing and packing of windows" :group misc)
+  (defgroup grow-pack (_"Growing and packing of windows") :group misc)
 
   (defcustom grow-is-maximize t
-    "Whether growing is considered to be maximization.  When you turn
-this on, you can use `unmaximize-window' or something similar to get
-back to the original size."
+    (_"Whether growing is considered to be maximization.")
     :type boolean
     :group (misc grow-pack))
 
   (defcustom pack-warp-pointer 'maybe
-    "Whether and how to move the pointer when packing windows.
-
-`maybe' means that the pointer is moved along with the window, if the
-pointer was within the window area before packing.
-
-`always' warps the pointer to the center of the window if it isn't
-already in the window, then does like `maybe'.
-
-`never' means not to warp the pointer."
+    (_"Whether and how to move the pointer.")
     :type (choice always maybe never)
     :group (misc grow-pack))
 
   (defcustom grow-pack-bump-obscured ()
-    "Whether to bump into fully obscured windows when growing or packing
-windows."
+    (_"Whether to bump into fully obscured windows.")
     :type boolean
     :group (misc grow-pack))
 
   (defcustom grow-pack-bump-other-depth 'always
-    "Whether to bump into windows on a different depth when growing or packing
-windows.
-`maybe' means only avoided windows in other depths."
+    (_"Whether to bump into windows on a different depth.")
     :type (choice always maybe never)
     :group (misc grow-pack))
 
   (defcustom grow-pack-bump-ignored t
-    "Whether to bump into ignored windows when growing or packing."
+    (_"Whether to bump into ignored windows.")
     :type boolean
     :group (misc grow-pack))
 

Modified: trunk/lisp/sawfish/wm/commands/move-cursor.jl
==============================================================================
--- trunk/lisp/sawfish/wm/commands/move-cursor.jl	(original)
+++ trunk/lisp/sawfish/wm/commands/move-cursor.jl	Sun Feb  1 22:43:12 2009
@@ -30,7 +30,7 @@
 	  sawfish.wm.commands)
 
   (defcustom move-cursor-increment 16
-    "Number of pixels to move pointer in."
+    (_"Number of pixels to move pointer in.")
     :group misc
     :type (number 1))
 

Modified: trunk/lisp/sawfish/wm/commands/move-resize.jl
==============================================================================
--- trunk/lisp/sawfish/wm/commands/move-resize.jl	(original)
+++ trunk/lisp/sawfish/wm/commands/move-resize.jl	Sun Feb  1 22:43:12 2009
@@ -50,37 +50,37 @@
 
 
   (defcustom move-outline-mode 'opaque
-    "How windows being moved are animated"
+    (_"How windows being moved are animated")
     :type (choice opaque box cross elliptical draft)
     :group (appearance animation))
 
   (defcustom resize-outline-mode 'opaque
-    "How windows being resized are animated"
+    (_"How windows being resized are animated")
     :type (choice opaque box cross elliptical draft)
     :group (appearance animation))
 
   (defcustom move-resize-raise-window nil
-    "Raise windows when they are moved or resized."
+    (_"Raise windows when they are moved or resized.")
     :type boolean
     :group move)
 
   (defcustom move-show-position nil
-    "Show current position of windows while moving."
+    (_"Show current position of windows while moving.")
     :group move
     :type boolean)
 
   (defcustom resize-show-dimensions t
-    "Show current dimensions of windows while resizing."
+    (_"Show current dimensions of windows while resizing.")
     :group move
     :type boolean)
 
  (defcustom resize-edge-mode 'border-grab
-   "How to choose window edges when resizing."
+   (_"How to choose window edges when resizing.")
    :type (choice region border grab border-grab)
    :group move)
 
   (defcustom move-snap-epsilon 12
-    "Distance in pixels before window edges align with each other."
+    (_"Distance in pixels before window edges align with each other.")
     :group move
     :type (number 0 64)
     :tooltip "When moving a window, this option lets you align one of its edges with an edge of another window.")

Modified: trunk/lisp/sawfish/wm/commands/x-cycle.jl
==============================================================================
--- trunk/lisp/sawfish/wm/commands/x-cycle.jl	(original)
+++ trunk/lisp/sawfish/wm/commands/x-cycle.jl	Sun Feb  1 22:43:12 2009
@@ -97,35 +97,35 @@
 ;;; customization options
 
   ;;###autoload (defgroup cycle "Window Cycling" :group focus :require sawfish.wm.commands.x-cycle)
-  (defgroup cycle "Window Cycling" :group focus :require sawfish.wm.commands.x-cycle)
+  (defgroup cycle (_"Window Cycling") :group focus :require sawfish.wm.commands.x-cycle)
 
   (defcustom cycle-show-window-names t
-    "Display window names and icons while cycling through windows."
+    (_"Display window names and icons while cycling through windows.")
     :group (focus cycle)
     :type boolean)
 
   (defcustom cycle-include-iconified t
-    "Include iconified windows when cycling."
+    (_"Include iconified windows when cycling.")
     :group (focus cycle)
     :type boolean)
 
   (defcustom cycle-all-workspaces nil
-    "Include windows on all workspaces when cycling."
+    (_"Include windows on all workspaces when cycling.")
     :group (focus cycle)
     :type boolean)
 
   (defcustom cycle-all-viewports nil
-    "Include windows on all viewports when cycling."
+    (_"Include windows on all viewports when cycling.")
     :group (focus cycle)
     :type boolean)
 
   (defcustom cycle-raise-windows t
-    "Raise windows while they're temporarily selected during cycling."
+    (_"Raise windows while they're temporarily selected during cycling.")
     :type boolean
     :group (focus cycle))
 
   (defcustom cycle-keymap (make-keymap)
-    "Keymap containing bindings active only during window cycling operations."
+    (_"Keymap containing bindings active only during window cycling operations.")
     :group bindings
     :type keymap)
 

Modified: trunk/lisp/sawfish/wm/commands/xterm.jl
==============================================================================
--- trunk/lisp/sawfish/wm/commands/xterm.jl	(original)
+++ trunk/lisp/sawfish/wm/commands/xterm.jl	Sun Feb  1 22:43:12 2009
@@ -30,19 +30,15 @@
 	  sawfish.wm.custom
 	  sawfish.wm.commands)
 
-  (defgroup xterm "Terminal"
-    :group misc
-    :require sawfish.wm.commands.xterm)
-
   (defcustom xterm-program "xterm"
-    "The program launched by the `xterm' command."
+    (_"The program launched by the `xterm' command.")
     :type string
-    :group (misc xterm))
+    :group misc)
 
   (defcustom xterm-args ""
-    "Arguments given to the `xterm' command."
+    (_"Arguments given to the `xterm' command.")
     :type string
-    :group (misc xterm))
+    :group misc)
 
   (define (xterm #!optional command)
     "Start a new xterm."

Modified: trunk/lisp/sawfish/wm/custom.jl
==============================================================================
--- trunk/lisp/sawfish/wm/custom.jl	(original)
+++ trunk/lisp/sawfish/wm/custom.jl	Sun Feb  1 22:43:12 2009
@@ -479,14 +479,14 @@
 
 ;;; default groups
 
-  (defgroup focus "Focus")
-  (defgroup move "Move/Resize" :require sawfish.wm.commands.move-resize)
-  (defgroup appearance "Appearance")
-  (defgroup workspace "Workspaces")
-  (defgroup bindings "Bindings")
-  (defgroup min-max "Mini/Maximizing")
-  (defgroup misc "Miscellaneous")
-  (defgroup placement "Placement" :group misc)
+  (defgroup focus (_"Focus"))
+  (defgroup move (_"Move/Resize") :require sawfish.wm.commands.move-resize)
+  (defgroup appearance (_"Appearance"))
+  (defgroup workspace (_"Workspaces"))
+  (defgroup bindings (_"Bindings"))
+  (defgroup min-max (_"Mini/Maximizing"))
+  (defgroup misc (_"Miscellaneous"))
+  (defgroup placement (_"Placement") :group misc)
 
 ;;; loading user's customisations
 

Modified: trunk/lisp/sawfish/wm/ext/audio-events.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/audio-events.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/audio-events.jl	Sun Feb  1 22:43:12 2009
@@ -33,13 +33,13 @@
 
   (define-structure-alias audio-events sawfish.wm.ext.audio-events)
 
-  (defgroup audio "Sound"
+  (defgroup audio (_"Sound")
     :require sawfish.wm.ext.audio-events)
 
   ;; XXX it would be cool to merge the customization with the GNOME sound prefs
 
   (defcustom audio-events-enabled nil
-    "Play sound effects for window events."
+    (_"Play sound effects for window events.")
     :type boolean
     :require sawfish.wm.ext.audio-events
     :group audio)

Modified: trunk/lisp/sawfish/wm/ext/auto-raise.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/auto-raise.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/auto-raise.jl	Sun Feb  1 22:43:12 2009
@@ -30,16 +30,16 @@
 
   (define-structure-alias auto-raise sawfish.wm.ext.auto-raise)
 
-  (defgroup auto-raise "Auto-Raise" :group focus)
+  (defgroup auto-raise (_"Auto-Raise") :group focus)
 
   (defcustom raise-windows-on-focus nil
-    "Raise windows when they are focused."
+    (_"Raise windows when they are focused.")
     :type boolean
     :require sawfish.wm.ext.auto-raise
     :group (focus auto-raise))
 
   (defcustom raise-window-timeout 500
-    "Delay in milliseconds until focused windows are raised."
+    (_"Delay in milliseconds until focused windows are raised.")
     :type number
     :depends raise-windows-on-focus
     :group (focus auto-raise))

Modified: trunk/lisp/sawfish/wm/ext/edge-flip.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/edge-flip.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/edge-flip.jl	Sun Feb  1 22:43:12 2009
@@ -42,32 +42,32 @@
   ;; for the compiler's benefit
   (eval-when-compile (require 'sawfish.wm.util.flippers))
 
-  (defgroup edge-flip "Edge Flipping"
+  (defgroup edge-flip (_"Edge Flipping")
     :group workspace
     :require sawfish.wm.ext.edge-flip)
 
   (defcustom edge-flip-enabled nil
-    "Select the next desktop when the pointer hits screen edge."
+    (_"Select the next desktop when the pointer hits screen edge.")
     :type boolean
     :require sawfish.wm.ext.edge-flip
     :group (workspace edge-flip)
     :after-set (lambda () (edge-flip-enable)))
 
   (defcustom edge-flip-type 'workspace
-    "Hitting the screen edge selects the next: \\w"
+    (_"Hitting the screen edge selects the next: \\w")
     :type (choice viewport workspace)
     :depends edge-flip-enabled
     :group (workspace edge-flip))
 
   (defcustom edge-flip-only-when-moving nil
-    "Only flip when interactively moving a window."
+    (_"Only flip when interactively moving a window.")
     :type boolean
     :depends edge-flip-enabled
     :group (workspace edge-flip)
     :after-set (lambda () (edge-flip-enable)))
 
   (defcustom edge-flip-delay 250
-    "Milliseconds to delay before edge flipping."
+    (_"Milliseconds to delay before edge flipping.")
     :type number
     :depends edge-flip-enabled
     :group (workspace edge-flip)

Modified: trunk/lisp/sawfish/wm/ext/error-handler.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/error-handler.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/error-handler.jl	Sun Feb  1 22:43:12 2009
@@ -33,18 +33,15 @@
 
   (define-structure-alias error-handler sawfish.wm.ext.error-handler)
 
-  (defgroup error-handling "Error Handling"
-    :group misc)
-
   (defcustom error-handler-beep t
-    "Beep when errors occur."
+    (_"Beep when errors occur.")
     :type boolean
-    :group (misc error-handling))
+    :group misc)
 
   (defcustom error-destination 'standard-error
-    "Display error messages to: \\w"
+    (_"Display error messages to: \\w")
     :type (choice nowhere screen standard-error both)
-    :group (misc error-handling))
+    :group misc)
 
   ;; ring buffer for containing error messages
   (define error-ring (make-ring))

Modified: trunk/lisp/sawfish/wm/ext/match-window.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/match-window.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/match-window.jl	Sun Feb  1 22:43:12 2009
@@ -135,7 +135,7 @@
   (put 'match-window 'custom-widget match-window-widget)
 
   ;;###autoload (defgroup match-window "Matched Windows" :layout single :require sawfish.wm.ext.match-window)
-  (defgroup match-window "Matched Windows"
+  (defgroup match-window (_"Matched Windows")
     :layout single
     :require sawfish.wm.ext.match-window)
 

Modified: trunk/lisp/sawfish/wm/ext/shade-hover.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/shade-hover.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/shade-hover.jl	Sun Feb  1 22:43:12 2009
@@ -31,25 +31,25 @@
 
   (define-structure-alias shade-hover sawfish.wm.ext.shade-hover)
 
-  (defgroup shade-hover "Shade Hover"
+  (defgroup shade-hover (_"Shade Hover")
     :group focus
     :require sawfish.wm.ext.shade-hover)
 
   (defcustom shade-hover-mode nil
-    "Enable shade-hover mode."
+    (_"Enable shade-hover mode.")
     :tooltip "(Temporarily unshades windows while the mouse pointer is over them.)"
     :group (focus shade-hover)
     :type boolean
     :require sawfish.wm.ext.shade-hover)
 
   (defcustom shade-hover-delay 250
-    "Delay in milliseconds before unshading windows."
+    (_"Delay in milliseconds before unshading windows.")
     :group (focus shade-hover)
     :depends shade-hover-mode
     :type (number 0 5000))
 
   (defcustom shade-hover-raise nil
-    "Raise windows when they are unshaded."
+    (_"Raise windows when they are unshaded.")
     :group (focus shade-hover)
     :depends shade-hover-mode
     :type boolean)

Modified: trunk/lisp/sawfish/wm/ext/tooltips.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/tooltips.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/tooltips.jl	Sun Feb  1 22:43:12 2009
@@ -44,48 +44,48 @@
 
   ;;###autoload (defgroup tooltips "Tooltips" :group appearance :require sawfish.wm.ext.tooltips)
 
-  (defgroup tooltips "Tooltips"
+  (defgroup tooltips (_"Tooltips")
     :group appearance
     :require sawfish.wm.ext.tooltips)
 
   (defcustom tooltips-enabled nil
-    "Display tooltips for window frames."
+    (_"Display tooltips for window frames.")
     :type boolean
     :group (appearance tooltips)
     :require sawfish.wm.ext.tooltips)
 
   (defcustom tooltips-show-doc-strings nil
-    "Show full documentation in tooltips."
+    (_"Show full documentation in tooltips.")
     :type boolean
     :depends tooltips-enabled
     :group (appearance tooltips))
 
   (defcustom tooltips-delay 500
-    "Number of milliseconds before displaying tooltips."
+    (_"Number of milliseconds before displaying tooltips.")
     :type number
     :depends tooltips-enabled
     :group (appearance tooltips))
 
   (defcustom tooltips-timeout-delay 5000
-    "Number of milliseconds before removing tooltips."
+    (_"Number of milliseconds before removing tooltips.")
     :type number
     :depends tooltips-enabled
     :group (appearance tooltips))
 
   (defcustom tooltips-font default-font
-    "Font used to display tooltips, or nil for default."
+    (_"Font used to display tooltips, or nil for default.")
     :type font
     :depends tooltips-enabled
     :group (appearance tooltips))
 
   (defcustom tooltips-background-color "grey85"
-    "Color used for the tooltips background"
+    (_"Color used for the tooltips background")
     :type color
     :depends tooltips-enabled
     :group (appearance tooltips))
 
   (defcustom tooltips-foreground-color "black"
-    "Color used for the tooltips foreground"
+    (_"Color used for the tooltips foreground")
     :type color
     :depends tooltips-enabled
     :group (appearance tooltips))

Modified: trunk/lisp/sawfish/wm/ext/window-history.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/window-history.jl	(original)
+++ trunk/lisp/sawfish/wm/ext/window-history.jl	Sun Feb  1 22:43:12 2009
@@ -87,28 +87,28 @@
 
 ;;; customizations
 
-  (defgroup window-history "History" :group match-window)
+  (defgroup window-history (_"History") :group match-window)
 
   (defcustom window-history-auto-save-position t
-    "Automatically remember window positions."
+    (_"Automatically remember window positions.")
     :group (match-window window-history)
     :type boolean
     :require sawfish.wm.ext.window-history)
 
   (defcustom window-history-auto-save-dimensions nil
-    "Automatically remember window sizes."
+    (_"Automatically remember window sizes.")
     :group (match-window window-history)
     :type boolean
     :require sawfish.wm.ext.window-history)
 
   (defcustom window-history-auto-save-state nil
-    "Automatically remember other window attributes."
+    (_"Automatically remember other window attributes.")
     :group (match-window window-history)
     :type boolean
     :require sawfish.wm.ext.window-history)
 
   (defcustom window-history-ignore-transients t
-    "Don't automatically remember details of transient windows."
+    (_"Don't automatically remember details of transient windows.")
     :group (match-window window-history)
     :type boolean)
 

Modified: trunk/lisp/sawfish/wm/focus.jl
==============================================================================
--- trunk/lisp/sawfish/wm/focus.jl	(original)
+++ trunk/lisp/sawfish/wm/focus.jl	Sun Feb  1 22:43:12 2009
@@ -45,24 +45,24 @@
     "List containing all symbols naming focus modes.")
 
   (defcustom focus-mode 'click
-    "When does the mouse pointer affect the input focus."
+    (_"When does the mouse pointer affect the input focus.")
     :type symbol
     :group focus
     :before-set (lambda () (focus-mode-changed 'before))
     :after-set (lambda () (focus-mode-changed 'after)))
 
   (defcustom focus-click-through t
-    "Click-to-focus mode passes the click through to the application."
+    (_"Click-to-focus mode passes the click through to the application.")
     :type boolean
     :group focus)
 
   (defcustom focus-dont-push nil
-    "Wether focusing a window doesn't change it's position in the stack."
+    (_"Wether focusing a window doesn't change it's position in the stack.")
     :type boolean
     :group focus)
 
   (defcustom focus-ignore-pointer-events nil
-    "When true, pointer in/out events don't cause focus changes."
+    (_"When true, pointer in/out events don't cause focus changes.")
     :type boolean
     :group focus)
 

Modified: trunk/lisp/sawfish/wm/frames.jl
==============================================================================
--- trunk/lisp/sawfish/wm/frames.jl	(original)
+++ trunk/lisp/sawfish/wm/frames.jl	Sun Feb  1 22:43:12 2009
@@ -133,14 +133,14 @@
     "Frame definition used for unframed windows.")
 
   (defcustom default-frame-style nil
-    "Default frame style:"
+    (_"Default frame style:")
     :type frame-style
     :widget-flags (expand-vertically)
     :group appearance
     :after-set (lambda () (after-setting-default-frame)))
 
   (defcustom reload-themes-when-changed t
-    "Automatically reload themes when they are updated."
+    (_"Automatically reload themes when they are updated.")
     :type boolean
     :group appearance)
 
@@ -208,7 +208,7 @@
 ;;; defcustom's for some built-in variables
 
   (defcustom default-font nil
-    "Default font: \\w"
+    (_"Default font: \\w")
     :group appearance
     :type font
     :widget-flags (expand-horizontally)

Modified: trunk/lisp/sawfish/wm/keymaps.jl
==============================================================================
--- trunk/lisp/sawfish/wm/keymaps.jl	(original)
+++ trunk/lisp/sawfish/wm/keymaps.jl	Sun Feb  1 22:43:12 2009
@@ -29,7 +29,7 @@
 	  sawfish.wm.events
 	  sawfish.wm.custom)
 
-  (defgroup bindings "Bindings"
+  (defgroup bindings (_"Bindings")
     :layout keymaps)
 
 ;;; Customize support
@@ -88,7 +88,7 @@
 			     "W-Left" 'previous-workspace
 			     "W-Right" 'next-workspace
 			     "W-Tab" 'cycle-windows)
-    "Keymap containing bindings active anywhere."
+    (_"Keymap containing bindings active anywhere.")
     :group bindings
     :type keymap
     :before-set (lambda () (ungrab-keymap global-keymap))
@@ -101,7 +101,7 @@
 			     "W-Button2-Click1" 'popup-window-menu
 			     "W-Button1-Move" 'move-window-interactively
 			     "Button1-Click1" 'raise-and-pass-through-click)
-    "Keymap containing bindings active when a client window is focused."
+    (_"Keymap containing bindings active when a client window is focused.")
     :group bindings
     :type keymap
     :before-set (lambda () (ungrab-keymap window-keymap))
@@ -109,8 +109,8 @@
 
   (defcustom root-window-keymap (bind-keys (make-keymap)
 				  "Button2-Click1" 'popup-root-menu)
-    "Keymap containing bindings active when the pointer is in the root window
-(or when no window is focused)."
+    (_"Keymap containing bindings active when the pointer is in the root window
+(or when no window is focused).")
     :group bindings
     :type keymap)
 
@@ -119,8 +119,8 @@
 			    "Button2-Move" 'resize-window-interactively
 			    "Button1-Off2" 'toggle-window-shaded
 			    "Button1-Move" 'move-window-interactively)
-    "Keymap containing bindings active when the pointer is in the title of
-a window. (Only mouse-bindings are evaluated in this map.)"
+    (_"Keymap containing bindings active when the pointer is in the title of
+a window. (Only mouse-bindings are evaluated in this map.)")
     :group bindings
     :type keymap)
 
@@ -128,8 +128,8 @@
 			     "Button3-Off" 'raise-lower-window
 			     "Button2-Move" 'move-window-interactively
 			     "Button1-Move" 'resize-window-interactively)
-    "Keymap containing bindings active when the pointer is in the border of
-a window. (Only mouse-bindings are evaluated in this map.)"
+    (_"Keymap containing bindings active when the pointer is in the border of
+a window. (Only mouse-bindings are evaluated in this map.)")
     :group bindings
     :type keymap)
 
@@ -137,16 +137,16 @@
 				   "Button3-Click1" 'popup-window-menu
 				   "S-Button1-Off" 'delete-group
 				   "Button1-Off" 'delete-window)
-    "Keymap containing bindings active when the pointer is in the close button
-of a window. (Only mouse-bindings are evaluated in this map.)"
+    (_"Keymap containing bindings active when the pointer is in the close button
+of a window. (Only mouse-bindings are evaluated in this map.)")
     :group bindings
     :type keymap)
 
   (defcustom iconify-button-keymap (bind-keys (make-keymap)
 				     "Button3-Click1" 'popup-window-menu
 				     "Button1-Off" 'iconify-window)
-    "Keymap containing bindings active when the pointer is in the iconify
-button of a window. (Only mouse-bindings are evaluated in this map.)"
+    (_"Keymap containing bindings active when the pointer is in the iconify
+button of a window. (Only mouse-bindings are evaluated in this map.)")
     :group bindings
     :type keymap)
 
@@ -154,23 +154,23 @@
 				      "Button3-Off" 'maximize-window-horizontally-toggle
 				      "Button2-Off" 'maximize-window-vertically-toggle
 				      "Button1-Off" 'maximize-window-toggle)
-    "Keymap containing bindings active when the pointer is in the maximize
-button of a window. (Only mouse-bindings are evaluated in this map.)"
+    (_"Keymap containing bindings active when the pointer is in the maximize
+button of a window. (Only mouse-bindings are evaluated in this map.)")
     :group bindings
     :type keymap)
 
   (defcustom menu-button-keymap (bind-keys (make-keymap)
 				  "Button3-Off" 'delete-window
 				  "Button1-Click1" 'popup-window-menu)
-    "Keymap containing bindings active when the pointer is in the menu button
-of a window. (Only mouse-bindings are evaluated in this map.)"
+    (_"Keymap containing bindings active when the pointer is in the menu button
+of a window. (Only mouse-bindings are evaluated in this map.)")
     :group bindings
     :type keymap)
 
   (defcustom shade-button-keymap (bind-keys (make-keymap)
 				   "Button1-Off" 'toggle-window-shaded)
-    "Keymap containing bindings active when the pointer is in the shade button
-of a window. (Only mouse-bindings are evaluated in this map.)"
+    (_"Keymap containing bindings active when the pointer is in the shade button
+of a window. (Only mouse-bindings are evaluated in this map.)")
     :group bindings
     :type keymap)
 
@@ -178,7 +178,7 @@
     "Distance in pixels pointer must move before generating motion events.")
 
   (defcustom wm-modifier-value (wm-modifier)
-    "Modifier key(s) used for default shortcuts."
+    (_"Modifier key(s) used for default shortcuts.")
     :group bindings
     :type modifier-list
     :after-set (lambda ()

Modified: trunk/lisp/sawfish/wm/placement.jl
==============================================================================
--- trunk/lisp/sawfish/wm/placement.jl	(original)
+++ trunk/lisp/sawfish/wm/placement.jl	Sun Feb  1 22:43:12 2009
@@ -38,17 +38,17 @@
 	  sawfish.wm.custom)
 
   (defcustom place-window-mode 'top-left
-    "Method of placing windows: \\w"
+    (_"Method of placing windows: \\w")
     :type symbol
     :group (misc placement))
 
   (defcustom place-transient-mode 'centered-on-parent
-    "Method of placing dialog windows: \\w"
+    (_"Method of placing dialog windows: \\w")
     :type symbol
     :group (misc placement))
 
   (defcustom ignore-program-positions t
-    "Ignore program-specified window placements."
+    (_"Ignore program-specified window placements.")
     :type boolean
     :group (misc placement))
 

Modified: trunk/lisp/sawfish/wm/placement/stagger.jl
==============================================================================
--- trunk/lisp/sawfish/wm/placement/stagger.jl	(original)
+++ trunk/lisp/sawfish/wm/placement/stagger.jl	Sun Feb  1 22:43:12 2009
@@ -31,7 +31,7 @@
 	  sawfish.wm.util.workarea)
 
   (defcustom stagger-placement-step 32
-    "Distance between successive placements in `stagger' placement mode."
+    (_"Distance between successive placements in stagger mode.")
     :type number
     :range (1)
     :group placement)

Modified: trunk/lisp/sawfish/wm/stacking.jl
==============================================================================
--- trunk/lisp/sawfish/wm/stacking.jl	(original)
+++ trunk/lisp/sawfish/wm/stacking.jl	Sun Feb  1 22:43:12 2009
@@ -55,10 +55,10 @@
   ;; represents the level of normal windows, negative for windows below
   ;; this level, and positive for windows above the normal level
 
-  (defgroup stacking "Stacking" :group misc)
+  (defgroup stacking (_"Stacking") :group misc)
 
   (defcustom transients-above 'parents
-    "Keep transient windows stacked above: \\w"
+    (_"Keep transient windows stacked above: \\w")
     :group (misc stacking)
     :type (choice all parents none))
 

Modified: trunk/lisp/sawfish/wm/state/iconify.jl
==============================================================================
--- trunk/lisp/sawfish/wm/state/iconify.jl	(original)
+++ trunk/lisp/sawfish/wm/state/iconify.jl	Sun Feb  1 22:43:12 2009
@@ -72,12 +72,12 @@
     "Unmanaged windows may be iconified.")
 
   (defcustom iconify-group-mode 'transients
-    "Minimizing a window also removes its: \\w"
+    (_"Minimizing a window also removes its: \\w")
     :type (choice none transients group)
     :group min-max)
 
   (defcustom uniconify-group-mode 'transients
-    "Unminimizing a window also restores its: \\w"
+    (_"Unminimizing a window also restores its: \\w")
     :type (choice none transients group)
     :group min-max)
 

Modified: trunk/lisp/sawfish/wm/state/maximize.jl
==============================================================================
--- trunk/lisp/sawfish/wm/state/maximize.jl	(original)
+++ trunk/lisp/sawfish/wm/state/maximize.jl	Sun Feb  1 22:43:12 2009
@@ -86,7 +86,7 @@
     "Don't cover `avoided' windows when maximizing.")
 
   (defcustom move-lock-when-maximized t
-    "Lock position and size while windows are maximized."
+    (_"Lock position and size while windows are maximized.")
     :type boolean
     :group min-max)
   

Modified: trunk/lisp/sawfish/wm/state/transient.jl
==============================================================================
--- trunk/lisp/sawfish/wm/state/transient.jl	(original)
+++ trunk/lisp/sawfish/wm/state/transient.jl	Sun Feb  1 22:43:12 2009
@@ -45,7 +45,7 @@
 	  sawfish.wm.frames)
 
   (defcustom focus-windows-when-mapped t
-    "Focus on application windows when they first appear."
+    (_"Focus on application windows when they first appear.")
     :type boolean
     :group focus)
 

Modified: trunk/lisp/sawfish/wm/util/display-window.jl
==============================================================================
--- trunk/lisp/sawfish/wm/util/display-window.jl	(original)
+++ trunk/lisp/sawfish/wm/util/display-window.jl	Sun Feb  1 22:43:12 2009
@@ -40,7 +40,7 @@
 	  sawfish.wm.util.window-order)
 
   (defcustom unshade-selected-windows nil
-    "Unshade selected windows."
+    (_"Unshade selected windows.")
     :type boolean
     :group min-max)
 

Modified: trunk/lisp/sawfish/wm/util/play-audio.jl
==============================================================================
--- trunk/lisp/sawfish/wm/util/play-audio.jl	(original)
+++ trunk/lisp/sawfish/wm/util/play-audio.jl	Sun Feb  1 22:43:12 2009
@@ -40,8 +40,7 @@
     "List of directories to search for sound samples.")
 
   (defcustom play-sample-program nil
-    "The program used to play audio samples. If unset, built-in support for \
-ESD is used."
+    (_"The program used to play audio samples.")
     :type (optional program)
     :group audio)
 

Modified: trunk/lisp/sawfish/wm/util/prompt.jl
==============================================================================
--- trunk/lisp/sawfish/wm/util/prompt.jl	(original)
+++ trunk/lisp/sawfish/wm/util/prompt.jl	Sun Feb  1 22:43:12 2009
@@ -60,7 +60,7 @@
   (define-structure-alias prompt sawfish.wm.util.prompt)
 
   (defcustom prompt-keymap (make-keymap)
-    "Keymap containing bindings active when reading a string from the user."
+    (_"Keymap containing bindings active when reading a string from the user.")
     :group bindings
     :type keymap)
 

Modified: trunk/lisp/sawfish/wm/util/stacking.jl
==============================================================================
--- trunk/lisp/sawfish/wm/util/stacking.jl	(original)
+++ trunk/lisp/sawfish/wm/util/stacking.jl	Sun Feb  1 22:43:12 2009
@@ -42,7 +42,7 @@
 	  sawfish.wm.commands.groups)
 
   (defcustom user-raise-type 'transients
-    "When raising a window, also raise its: \\w"
+    (_"When raising a window, also raise its: \\w")
     :type (choice none transients group)
     :group (misc stacking))
 

Modified: trunk/lisp/sawfish/wm/viewport.jl
==============================================================================
--- trunk/lisp/sawfish/wm/viewport.jl	(original)
+++ trunk/lisp/sawfish/wm/viewport.jl	Sun Feb  1 22:43:12 2009
@@ -50,27 +50,27 @@
   ;; the screen dimensions. E.g. moving to the left moves all windows one
   ;; screen-width to the right. 
 
-  (defgroup viewport "Viewport" :group workspace)
+  (defgroup viewport (_"Viewport") :group workspace)
 
   (defcustom viewport-dimensions '(1 . 1)
-    "Number of columns and rows in each virtual workspace: \\w"
+    (_"Number of columns and rows in each virtual workspace: \\w")
     :group (workspace viewport)
     :type (pair (number 1) (number 1))
     :after-set (lambda () (viewport-size-changed)))
 
   (defcustom uniconify-to-current-viewport t
-    "Windows uniconify to the current viewport."
+    (_"Windows uniconify to the current viewport.")
     :type boolean
     :group (workspace viewport))
 
   (defcustom scroll-viewport-steps 1
-    "Number of steps in which to scroll between viewports (less steps = faster scrolling)."
+    (_"Number of steps in which to scroll between viewports (less steps = faster scrolling).")
     :group (workspace viewport)
     :type number
     :range (1 . 50))
 
   (defcustom viewport-boundary-mode 'stop
-    "Wether to stop or wrap-around on first/last viewport"
+    (_"Wether to stop or wrap-around on first/last viewport")
     :group (workspace viewport)
     :type (choice wrap-around stop))
 

Modified: trunk/lisp/sawfish/wm/window-anim.jl
==============================================================================
--- trunk/lisp/sawfish/wm/window-anim.jl	(original)
+++ trunk/lisp/sawfish/wm/window-anim.jl	Sun Feb  1 22:43:12 2009
@@ -37,10 +37,10 @@
   (define window-animators nil
     "List of all possible window animation types.")
 
-  (defgroup animation "Animation" :group appearance)
+  (defgroup animation (_"Animation") :group appearance)
 
   (defcustom default-window-animator 'none
-    "The default window animation mode"
+    (_"The default window animation mode")
     :type (choice none solid wireframe cross elliptical draft)
     :group (appearance animation))
 

Modified: trunk/lisp/sawfish/wm/windows.jl
==============================================================================
--- trunk/lisp/sawfish/wm/windows.jl	(original)
+++ trunk/lisp/sawfish/wm/windows.jl	Sun Feb  1 22:43:12 2009
@@ -70,34 +70,34 @@
 
 
   (defcustom ignore-window-input-hint nil
-    "Give focus to windows even when they haven't asked for it."
+    (_"Give focus to windows even when they haven't asked for it.")
     :type boolean
     :group focus)
 
-  (defgroup warp "Warping" :group misc)
+  (defgroup warp (_"Warping") :group misc)
 
   (defcustom warp-to-window-offset (cons -1 -1)
-    "Offset (%) from window edges when warping pointer."
+    (_"Offset (%) from window edges when warping pointer.")
     :type (pair (number 1) (number 1))
     :group (misc warp))
 
   (defcustom warp-to-window-enabled nil
-    "Wether to enable warping the cursor to windows."
+    (_"Wether to enable warping the cursor to windows.")
     :type boolean
     :group (misc warp))
 
   (defcustom dont-avoid-ignored t
-    "Wether to not ignore avoided windows by default."
+    (_"Wether to not ignore avoided windows by default.")
     :type boolean
     :group misc)
 
   (defcustom avoid-by-default nil
-    "Wether to avoid any unspecified window by default."
+    (_"Wether to avoid any unspecified window by default.")
     :type boolean
     :group misc)
 
   (defcustom uniquify-name-format "%s [%d]"
-    "Format to create unique window names."
+    (_"Format to create unique window names.")
     :type string
     :group misc)
 

Modified: trunk/lisp/sawfish/wm/workspace.jl
==============================================================================
--- trunk/lisp/sawfish/wm/workspace.jl	(original)
+++ trunk/lisp/sawfish/wm/workspace.jl	Sun Feb  1 22:43:12 2009
@@ -119,12 +119,12 @@
 ;;; Options and variables
 
   (defcustom workspace-boundary-mode 'stop
-    "How to act when passing the first or last workspace."
+    (_"How to act when passing the first or last workspace.")
     :type (choice stop wrap-around keep-going)
     :group workspace)
 
   (defcustom workspace-send-boundary-mode 'stop
-    "How to act when passing the first or last workspace, while moving a window"
+    (_"How to act when passing the first or last workspace, while moving a window")
     :type (choice stop wrap-around keep-going)
     :group workspace)
 
@@ -136,7 +136,7 @@
     :after-set (lambda () (workspace-names-changed)))
 
   (defcustom lock-first-workspace t
-    "Preserve outermost empty workspaces in the pager."
+    (_"Preserve outermost empty workspaces in the pager.")
     :type boolean
     :group workspace)
 



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]