sawfish r4405 - 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/tabs lisp/sawfish/wm/util
- From: chrisb svn gnome org
- To: svn-commits-list gnome org
- Subject: sawfish r4405 - 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/tabs lisp/sawfish/wm/util
- Date: Mon, 9 Feb 2009 08:44:55 +0000 (UTC)
Author: chrisb
Date: Mon Feb 9 08:44:55 2009
New Revision: 4405
URL: http://svn.gnome.org/viewvc/sawfish?rev=4405&view=rev
Log:
shrink-yank: load sawfish.wm.custom
lisp/sawfish/wm/*{.jl,/*.jl}: remove translation marks temporarly
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/shrink-yank.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/infinite-desktop.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/menus.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/tabs/tab.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
Modified: trunk/lisp/sawfish/wm/animation/outline.jl
==============================================================================
--- trunk/lisp/sawfish/wm/animation/outline.jl (original)
+++ trunk/lisp/sawfish/wm/animation/outline.jl Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 2009
@@ -61,30 +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.")
+ "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.")
+ "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.")
+ "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.")
+ "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.")
+ "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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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/shrink-yank.jl
==============================================================================
--- trunk/lisp/sawfish/wm/commands/shrink-yank.jl (original)
+++ trunk/lisp/sawfish/wm/commands/shrink-yank.jl Mon Feb 9 08:44:55 2009
@@ -24,7 +24,7 @@
(define-structure sawfish.wm.commands.shrink-yank ()
- (open rep
+ (open rep
sawfish.wm.commands
sawfish.wm.commands.grow-pack
sawfish.wm.events
@@ -33,19 +33,20 @@
sawfish.wm.state.iconify
sawfish.wm.util.rects
sawfish.wm.windows
- sawfish.wm.workspace)
+ sawfish.wm.workspace
+ sawfish.wm.custom)
(define-structure-alias shrink-yank sawfish.wm.commands.shrink-yank)
- (defgroup shrink-yank (_"Shrinking and Yanking of windows") :group misc)
+ (defgroup shrink-yank "Shrinking and Yanking of windows" :group misc)
(defcustom shrink-window-minimum-size 10
- (_"The minimum height or width to which a window may be shrunk.")
+ "The minimum height or width to which a window may be shrunk."
:type number
:group (misc shrink-yank))
(defcustom yank-window-minimum-visible 10
- (_"The minimum amount of window left visible, if yanked over the edge.")
+ "The minimum amount of window left visible, if yanked over the edge."
:type number
:group (misc shrink-yank))
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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 2009
@@ -31,12 +31,12 @@
sawfish.wm.commands)
(defcustom xterm-program "xterm"
- (_"The program launched by the `xterm' command.")
+ "The program launched by the `xterm' command."
:type string
:group misc)
(defcustom xterm-args ""
- (_"Arguments given to the `xterm' command.")
+ "Arguments given to the `xterm' command."
:type string
:group misc)
Modified: trunk/lisp/sawfish/wm/custom.jl
==============================================================================
--- trunk/lisp/sawfish/wm/custom.jl (original)
+++ trunk/lisp/sawfish/wm/custom.jl Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 2009
@@ -34,12 +34,12 @@
(define-structure-alias error-handler sawfish.wm.ext.error-handler)
(defcustom error-handler-beep t
- (_"Beep when errors occur.")
+ "Beep when errors occur."
:type boolean
: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)
Modified: trunk/lisp/sawfish/wm/ext/infinite-desktop.jl
==============================================================================
--- trunk/lisp/sawfish/wm/ext/infinite-desktop.jl (original)
+++ trunk/lisp/sawfish/wm/ext/infinite-desktop.jl Mon Feb 9 08:44:55 2009
@@ -33,29 +33,29 @@
((eq a (car l)) (infinite-desktop.remove a (cdr l)))
(t (cons (car l) (infinite-desktop.remove a (cdr l))))))
-(defgroup infinite-desktop (_"Infinite Desktop")
+(defgroup infinite-desktop "Infinite Desktop"
:group workspace)
(defcustom infinite-desktop-p 1
- (_"Simulate an infinite desktop (Conflicts edge-flipping).")
+ "Simulate an infinite desktop (Conflicts edge-flipping)."
:group (workspace infinite-desktop)
:after-set (lambda () (infinite-desktop.infinite-desktop))
:type boolean)
(defcustom infinite-desktop.move-distance 64
- (_"Amount to move the workspace.")
+ "Amount to move the workspace."
:group (workspace infinite-desktop)
:type number
:range (1 . nil))
(defcustom infinite-desktop.move-cursor-distance 32
- (_"Amount to move the cursor after moving the workspace.")
+ "Amount to move the cursor after moving the workspace."
:group (workspace infinite-desktop)
:type number
:range (1 . nil))
(defcustom infinite-desktop.stop-at-workspace-borders nil
- (_"Stop scrolling at workspace borders (Fixes warp-to-window bugs).")
+ "Stop scrolling at workspace borders (Fixes warp-to-window bugs)."
:group (workspace infinite-desktop)
:type boolean )
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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 2009
@@ -140,7 +140,7 @@
: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 Mon Feb 9 08:44:55 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))
@@ -103,7 +103,7 @@
"Button1-Click1" 'raise-and-pass-through-click
"W-ISO_Left_Tab" 'tab-raise-left-window
"H-ISO_Left_Tab" 'tab-raise-right-window)
- (_"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))
@@ -111,7 +111,7 @@
(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
+ (_ "Keymap containing bindings active when the pointer is in the root window
(or when no window is focused).")
:group bindings
:type keymap)
@@ -122,7 +122,7 @@
"Button1-Off2" 'toggle-window-shaded
"Button1-Move" 'move-window-interactively
"Button2-Off" 'add-to-group)
- (_"Keymap containing bindings active when the pointer is in the title of
+ (_ "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)
@@ -131,7 +131,7 @@
"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
+ (_ "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)
@@ -140,7 +140,7 @@
"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
+ (_ "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)
@@ -148,7 +148,7 @@
(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
+ (_ "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)
@@ -157,7 +157,7 @@
"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
+ (_ "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)
@@ -165,14 +165,14 @@
(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
+ (_ "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
+ (_ "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)
@@ -181,7 +181,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/menus.jl
==============================================================================
--- trunk/lisp/sawfish/wm/menus.jl (original)
+++ trunk/lisp/sawfish/wm/menus.jl Mon Feb 9 08:44:55 2009
@@ -358,4 +358,4 @@
(symbol-name (car sub))))))
(filter consp (cddr custom-groups)))
,@(and (frame-style-editable-p default-frame-style)
- (list nil `(,(_"Edit theme...") edit-frame-style))))))
+ (list nil `(,(_ "Edit theme...") edit-frame-style))))))
Modified: trunk/lisp/sawfish/wm/placement.jl
==============================================================================
--- trunk/lisp/sawfish/wm/placement.jl (original)
+++ trunk/lisp/sawfish/wm/placement.jl Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 2009
@@ -31,7 +31,7 @@
sawfish.wm.util.workarea)
(defcustom stagger-placement-step 32
- (_"Distance between successive placements in stagger mode.")
+ "Distance between successive placements in `stagger' placement 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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/tabs/tab.jl
==============================================================================
--- trunk/lisp/sawfish/wm/tabs/tab.jl (original)
+++ trunk/lisp/sawfish/wm/tabs/tab.jl Mon Feb 9 08:44:55 2009
@@ -45,23 +45,23 @@
;; - hide some frame parts on leftmost and rightmost tabs
;; - add a drag-n-drop way to group windows by tabs
- ;;###autoload (defgroup tabs (_"Tabs"))
+ ;;###autoload (defgroup tabs "Tabs")
- (defgroup tabs (_"Tabs"))
+ (defgroup tabs "Tabs")
- (defcustom tab-left-dec-width 11 (_"Width of tab's left-edge decoration")
+ (defcustom tab-left-dec-width 11 "Width of tab's left-edge decoration"
:group tabs
:type number)
- (defcustom tab-right-dec-width 11 (_"Width of tab's right-edge decoration")
+ (defcustom tab-right-dec-width 11 "Width of tab's right-edge decoration"
:group tabs
:type number)
- (defcustom tab-left-margin 16 (_"Width of tab area's left-edge decoration")
+ (defcustom tab-left-margin 16 "Width of tab area's left-edge decoration"
:group tabs
:type number)
- (defcustom tab-right-margin 16 (_"Width of tab area's right-edge decoration")
+ (defcustom tab-right-margin 16 "Width of tab area's right-edge decoration"
:group tabs
:type number)
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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 2009
@@ -40,7 +40,8 @@
"List of directories to search for sound samples.")
(defcustom play-sample-program nil
- (_"The program used to play audio samples.")
+ "The program used to play audio samples. If unset, built-in support for \
+ESD is used."
: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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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 Mon Feb 9 08:44:55 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]
