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
- From: chrisb svn gnome org
- To: svn-commits-list gnome org
- Subject: 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
- Date: Sun, 1 Feb 2009 22:43:12 +0000 (UTC)
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]
