| [Sawfish] Re: Only for germans ;) |
[ Thread Index | Date Index | More lists.tuxfamily.org/sawfish Archives ]
Hi, On Thu, 3 Oct 2013 00:10:36 +0200 wrote fuchur <flohtransporter@xxxxxxxxx>: > ... A set of patches, apply after de.po.patch: 01.docs.patch Update StyleTab/theme.jl text strings 02.docs.patch Update german translation 03.docs.patch Rename tab-add-to-group to tab-window-add-to-tabgroup and tabgroup-add-to-group to tab-tabgroup-add-to-tabgroup in tabs/tab.jl and wm/keymaps.jl. You must update your keybindings for title and tabbar. Add/improve text/doc strings in tabs/tab.jl and tabs/tabgroup.jl 04.docs.patch Update german translation 05.docs.patch 06.docs.patch Add/improve text/doc strings in tabs/tab.jl and tabs/tabgroup.jl 07.docs.patch Add defcustom marked-cursor-shape to commands/move-resize.jl Use custom cursor if window marked to add as tab. Improve text/doc strings in prg/compton.jl 08.docs.patch Update german translation -- Regards, Fuchur GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53 C116 E5BC 70D5 B8D7 B2B0
diff -urNad sawfish.orgi/themes/StyleTab/theme.jl sawfish/themes/StyleTab/theme.jl
--- sawfish.orgi/themes/StyleTab/theme.jl
+++ sawfish/themes/StyleTab/theme.jl
@@ -60,19 +60,19 @@
:options (Default Reduce Glass WixDa Smoothly Brown Darkblue Blue Pink Green)
:after-set (lambda () (color-changed)))
-(defcustom styletab-c:tabbar-marked t "Customize tabbar color if window marked to add as tab."
+(defcustom styletab-c:tabbar-marked t "Colorize tab/titelbar if it is to be added as a tab."
:group (appearance StyleTab:group)
:type boolean
:after-set (lambda () (botton-color-changed recolor-tab)))
(defcustom styletab-c:tabbar-marked-color (get-color "#DF0000")
- "Color of tabbar if window marked to add as tab."
+ "Color of tab/titelbar when it was marked."
:group (appearance StyleTab:group)
:type color
:depends styletab-c:tabbar-marked
:after-set (lambda () (botton-color-changed recolor-tab)))
-(defcustom styletab-c:hightlight-tabbar nil "Also hightlighted tabbars."
+(defcustom styletab-c:hightlight-tabbar nil "Also hightlighted tab/titelbar."
:group (appearance StyleTab:group)
:type boolean
:after-set (lambda () (botton-color-changed recolor-tab)))
@@ -118,156 +118,156 @@
:after-set (lambda () (bright-changed)))
(defcustom styletab-c:hightlight-close nil
- "Hightlighted close button."
+ "Colorize the close button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-close-button)))
-(defcustom styletab-c:hightlight-close-all nil "Always use."
+(defcustom styletab-c:hightlight-close-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-close
:after-set (lambda () (botton-color-changed recolor-close-button)))
(defcustom styletab-c:hightlight-maximize nil
- "Hightlighted maximize button."
+ "Colorize the maximize button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-maximize-button)))
-(defcustom styletab-c:hightlight-maximize-all nil "Always use."
+(defcustom styletab-c:hightlight-maximize-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-maximize
:after-set (lambda () (botton-color-changed recolor-maximize-button)))
(defcustom styletab-c:hightlight-iconify nil
- "Hightlighted minimize button."
+ "Colorize the minimize button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-iconify-button)))
-(defcustom styletab-c:hightlight-iconify-all nil "Always use."
+(defcustom styletab-c:hightlight-iconify-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-iconify
:after-set (lambda () (botton-color-changed recolor-iconify-button)))
(defcustom styletab-c:hightlight-shade nil
- "Hightlighted shade button."
+ "Colorize the shade button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-shade-button)))
-(defcustom styletab-c:hightlight-shade-all nil "Always use."
+(defcustom styletab-c:hightlight-shade-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-shade
:after-set (lambda () (botton-color-changed recolor-shade-button)))
(defcustom styletab-c:hightlight-sticky nil
- "Hightlighted sticky button."
+ "Colorize the sticky button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-sticky-button)))
-(defcustom styletab-c:hightlight-sticky-all nil "Always use."
+(defcustom styletab-c:hightlight-sticky-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-sticky
:after-set (lambda () (botton-color-changed recolor-sticky-button)))
(defcustom styletab-c:hightlight-menu nil
- "Hightlighted menu button."
+ "Colorize the menu button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-menu-button)))
-(defcustom styletab-c:hightlight-menu-all nil "Always use."
+(defcustom styletab-c:hightlight-menu-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-menu
:after-set (lambda () (botton-color-changed recolor-menu-button)))
(defcustom styletab-c:hightlight-frame-type nil
- "Hightlighted frame type button."
+ "Colorize the frame type button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-frame-type-button)))
-(defcustom styletab-c:hightlight-frame-type-all nil "Always use."
+(defcustom styletab-c:hightlight-frame-type-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-frame-type
:after-set (lambda () (botton-color-changed recolor-frame-type-button)))
(defcustom styletab-c:hightlight-lock nil
- "Hightlighted lock button."
+ "Colorize the lock button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-lock-button)))
-(defcustom styletab-c:hightlight-lock-all nil "Always use."
+(defcustom styletab-c:hightlight-lock-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-lock
:after-set (lambda () (botton-color-changed recolor-lock-button)))
(defcustom styletab-c:hightlight-move-resize nil
- "Hightlighted move/resize button."
+ "Colorize the move/resize button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-move-resize-button)))
-(defcustom styletab-c:hightlight-move-resize-all nil "Always use."
+(defcustom styletab-c:hightlight-move-resize-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-move-resize
:after-set (lambda () (botton-color-changed recolor-move-resize-button)))
(defcustom styletab-c:hightlight-raise-lower nil
- "Hightlighted raise/lower button."
+ "Colorize the raise/lower button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-raise-lower-button)))
-(defcustom styletab-c:hightlight-raise-lower-all nil "Always use."
+(defcustom styletab-c:hightlight-raise-lower-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-raise-lower
:after-set (lambda () (botton-color-changed recolor-raise-lower-button)))
(defcustom styletab-c:hightlight-next nil
- "Hightlighted next workspace button."
+ "Colorize the next workspace button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-next-button)))
-(defcustom styletab-c:hightlight-next-all nil "Always use."
+(defcustom styletab-c:hightlight-next-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-next
:after-set (lambda () (botton-color-changed recolor-next-button)))
(defcustom styletab-c:hightlight-prev nil
- "Hightlighted previous workspace button."
+ "Colorize the previous workspace button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-prev-button)))
-(defcustom styletab-c:hightlight-prev-all nil "Always use."
+(defcustom styletab-c:hightlight-prev-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-prev
:after-set (lambda () (botton-color-changed recolor-prev-button)))
(defcustom styletab-c:hightlight-rename nil
- "Hightlighted rename button."
+ "Colorize the rename button."
:group (appearance StyleTab:group)
:type (optional color)
:after-set (lambda () (botton-color-changed recolor-rename-button)))
-(defcustom styletab-c:hightlight-rename-all nil "Always use."
+(defcustom styletab-c:hightlight-rename-all nil "Always colorize."
:group (appearance StyleTab:group)
:type boolean
:depends styletab-c:hightlight-rename
@@ -283,7 +283,7 @@
;; crashes.
(list 'h-and '(choice \(none\) close menu maximize minimize shade sticky space send-to-prev
send-to-next lock raise-lower move-resize rename frame-type)
- '(boolean "Also show in transients"))))))
+ '(boolean "Also show in transients."))))))
(eval
(macroexpand
`(defcustom ,(car arg) ;; name
@@ -297,35 +297,35 @@
'( ;; list to pass to mapc
(styletab-c:top-left-buttons
'((menu t) (sticky nil) (shade nil))
- "Top Titlebar Left Buttons (from left to right) \\top"
+ "Top Titlebar Left Buttons (from left to right). \\top"
StyleTab:top-buttons-group)
(styletab-c:top-right-buttons
'((close t) (maximize t) (minimize nil))
- "Top Titlebar Right Buttons (from right to left) \\top"
+ "Top Titlebar Right Buttons (from right to left). \\top"
StyleTab:top-buttons-group)
(styletab-c:bottom-left-buttons
'((menu t) (sticky nil) (shade nil))
- "Bottom Titlebar Left Buttons (from left to right) \\top"
+ "Bottom Titlebar Left Buttons (from left to right). \\top"
StyleTab:bottom-buttons-group)
(styletab-c:bottom-right-buttons
'((close t) (maximize t) (minimize nil))
- "Bottom Titlebar Right Buttons (from right to left) \\top"
+ "Bottom Titlebar Right Buttons (from right to left). \\top"
StyleTab:bottom-buttons-group)
(styletab-c:left-top-buttons
'((close t) (maximize t) (minimize nil))
- "Left Titlebar Top Buttons (from top to bottom) \\top"
+ "Left Titlebar Top Buttons (from top to bottom). \\top"
StyleTab:left-buttons-group)
(styletab-c:left-bottom-buttons
'((menu t) (sticky nil) (shade nil))
- "Left Titlebar Bottom Buttons (from bottom to top) \\top"
+ "Left Titlebar Bottom Buttons (from bottom to top). \\top"
StyleTab:left-buttons-group)
(styletab-c:right-top-buttons
'((close t) (maximize t) (minimize nil))
- "Right Titlebar Top Buttons (from top to bottom) \\top"
+ "Right Titlebar Top Buttons (from top to bottom). \\top"
StyleTab:right-buttons-group)
(styletab-c:right-bottom-buttons
'((menu t) (sticky nil) (shade nil))
- "Right Titlebar Bottom Buttons (from bottom to top) \\top"
+ "Right Titlebar Bottom Buttons (from bottom to top). \\top"
StyleTab:right-buttons-group)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -522,8 +522,8 @@
(resize-window-to w dim-x dim-y)
(tab-refresh-group w 'move))))
-(define (tabbartotop)
- "Move tab-bar to top."
+(define (tab/titelbartotop)
+ "Move tab/titelbar to top, with resize (StyleTab Option)."
(let ((w (current-event-window)))
(if (not (window-get w 'title-position))
(window-put w 'title-position styletab-c:titlebar-place))
@@ -533,8 +533,8 @@
(if (eq (window-get w 'title-position) 'bottom)
(rotate-tab 'horiz 'opposite))))
-(define (tabbartobottom)
- "Move tab-bar to bottom."
+(define (tab/titelbartobottom)
+ "Move tab/titelbar to bottom, with resize (StyleTab Option)."
(let ((w (current-event-window)))
(if (not (window-get w 'title-position))
(window-put w 'title-position styletab-c:titlebar-place))
@@ -544,8 +544,8 @@
(if (eq (window-get w 'title-position) 'top)
(rotate-tab 'horiz 'opposite))))
-(define (tabbartoleft)
- "Move tab-bar to left."
+(define (tab/titelbartoleft)
+ "Move tab/titelbar to left, with resize (StyleTab Option)."
(let ((w (current-event-window)))
(if (not (window-get w 'title-position))
(window-put w 'title-position styletab-c:titlebar-place))
@@ -555,8 +555,8 @@
(if (eq (window-get w 'title-position) 'right)
(rotate-tab 'vert 'opposite))))
-(define (tabbartoright)
- "Move tab-bar to right."
+(define (tab/titelbartoright)
+ "Move tab/titelbar to right, with resize (StyleTab Option)."
(let ((w (current-event-window)))
(if (not (window-get w 'title-position))
(window-put w 'title-position styletab-c:titlebar-place))
@@ -566,8 +566,8 @@
(if (eq (window-get w 'title-position) 'left)
(rotate-tab 'vert 'opposite))))
-(define (tabbartoggle)
- "Move tab-bar to the opposite side. (Swap top & bottom, or left & right)"
+(define (tab/titelbartoggle)
+ "Move tab/titelbar to the opposite side, with resize (StyleTab Option)."
(let ((w (current-event-window)))
(if (not (window-get w 'title-position))
(window-put w 'title-position styletab-c:titlebar-place))
@@ -576,23 +576,23 @@
(rotate-tab 'horiz 'opposite)
(rotate-tab 'vert 'opposite))))
-(define-command-gaol 'tabbar-toggle tabbartoggle)
-(define-command-gaol 'tabbar-to-top tabbartotop)
-(define-command-gaol 'tabbar-to-bottom tabbartobottom)
-(define-command-gaol 'tabbar-to-left tabbartoleft)
-(define-command-gaol 'tabbar-to-right tabbartoright)
+(define-command-gaol 'tab/titelbar-toggle tab/titelbartoggle)
+(define-command-gaol 'tab/titelbar-to-top tab/titelbartotop)
+(define-command-gaol 'tab/titelbar-to-bottom tab/titelbartobottom)
+(define-command-gaol 'tab/titelbar-to-left tab/titelbartoleft)
+(define-command-gaol 'tab/titelbar-to-right tab/titelbartoright)
(def-frame-class tabbar-horizontal-left-edge ()
(bind-keys tabbar-horizontal-left-edge-keymap
- "Button1-Off" 'tabbar-to-left
- "Button2-Off" 'tabbar-toggle
- "Button3-Off" 'tabbar-to-right))
+ "Button1-Off" 'tab/titelbar-to-left
+ "Button2-Off" 'tab/titelbar-toggle
+ "Button3-Off" 'tab/titelbar-to-right))
(def-frame-class tabbar-vertical-top-edge ()
(bind-keys tabbar-vertical-top-edge-keymap
- "Button1-Off" 'tabbar-to-top
- "Button2-Off" 'tabbar-toggle
- "Button3-Off" 'tabbar-to-bottom))
+ "Button1-Off" 'tab/titelbar-to-top
+ "Button2-Off" 'tab/titelbar-toggle
+ "Button3-Off" 'tab/titelbar-to-bottom))
(define (f-type dest)
(let ((w (current-event-window))
@@ -707,15 +707,15 @@
(tab-refresh-group w 'move))))
(define (set-frame-default-and-default/transient)
- "Set frametype to `default' and toggle transient-ness with resize."
+ "Set frametype to `default' and toggle transient-ness, with resize (StyleTab Option)."
(f-type 'def-tra))
(define (set-frame-unframed-and-unframed/shaped-transient)
- "Set frametype to 'unframed' and toggle transient-ness with resize"
+ "Set frametype to 'unframed' and toggle transient-ness, with resize (StyleTab Option)."
(f-type 'unf-def))
(define (set-frame-shaped-and-shaped/shaped-transient)
- "Set frametype to shaped and toggle transient-ness with resize"
+ "Set frametype to shaped and toggle transient-ness, with resize (StyleTab Option)."
(f-type 'sha-tra))
(define-command-gaol 'set-frame-default-and-default/transient-toggle set-frame-default-and-default/transient)
diff -urNad po.orig/de.po po/de.po --- po.orig/de.po +++ po/de.po @@ -20,7 +20,7 @@ "Project-Id-Version: Sawfish WM\n" "Report-Msgid-Bugs-To: http://sawfish.tuxfamily.org/flyspray/\n"; "POT-Creation-Date: 2011-06-23 11:00+0200\n" -"PO-Revision-Date: 2013-10-02 23:25+0200\n" +"PO-Revision-Date: 2013-10-04 22:42+0200\n" "Last-Translator: fuchur <flohtransporter@xxxxxxxxx>\n" "Language-Team: German <me@home>\n" "MIME-Version: 1.0\n" @@ -167,17 +167,17 @@ msgstr "Farbvorschläge." #. ../themes/StyleTab/theme.jl -msgid "Customize tabbar color if window marked to add as tab." +msgid "Colorize tab/titelbar if it is to be added as a tab." msgstr "" "Reiter/Titelleiste einfärben wenn sie als Reiter hinzugefügt werden soll." #. ../themes/StyleTab/theme.jl -msgid "Color of tabbar if window marked to add as tab." +msgid "Color of tab/titelbar when it was marked." msgstr "Farbe des Reiters/Titelleiste wenn sie markiert wurde." #. ../themes/StyleTab/theme.jl -msgid "Also hightlighted tabbars." -msgstr "Reiter/Titelleiste aufhellen bei Mauskontakt. " +msgid "Also hightlighted tab/titelbar." +msgstr "Reiter/Titelleiste aufhellen bei Mauskontakt." #. ../themes/StyleTab/theme.jl msgid "Customize frame color/brightness (Don't use color proposals)." @@ -206,59 +206,59 @@ msgstr "Helligkeit der Knöpfe bei inaktiven Fenstern beim Mauskontakt.." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted close button." +msgid "Colorize the close button." msgstr "Einfärben der Schlie�knöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Always use." -msgstr "Immer einfärben (nicht nur bei Mauskontakt)." +msgid "Always colorize." +msgstr "Immer einfärben." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted maximize button." +msgid "Colorize the maximize button." msgstr "Einfärben der Maximierenknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted minimize button." +msgid "Colorize the minimize button." msgstr "Einfärben der Minimierenknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted shade button." +msgid "Colorize the shade button." msgstr "Einfärben der Einrollknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted sticky button." +msgid "Colorize the sticky button." msgstr "Einfärben der Anheftenknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted menu button." +msgid "Colorize the menu button." msgstr "Einfärben der Menüknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted frame type button." +msgid "Colorize the frame type button." msgstr "Einfärben der Rahmentypknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted lock button." +msgid "Colorize the lock button." msgstr "Einfärben der Sperrknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted move/resize button." +msgid "Colorize the move/resize button." msgstr "Einfärben der Verschieben/Grö�e-ändernknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted raise/lower button." +msgid "Colorize the raise/lower button." msgstr "Einfärben der Anheben/Absenkenknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted next workspace button." +msgid "Colorize the next workspace button." msgstr "Einfärben der Nächste-Arbeitsflächeknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted previous workspace button." +msgid "Colorize the previous workspace button." msgstr "Einfärben der Vorherige-Arbeitsflächeknöpfe beim Mauskontakt." #. ../themes/StyleTab/theme.jl -msgid "Hightlighted rename button." +msgid "Colorize the rename button." msgstr "Einfärben der Umbenennenknöpfe beim Mauskontakt." #. ../themes/gradient-tabbed/theme.jl @@ -6133,59 +6133,59 @@ msgstr "Sawfish-Fehler" #. ../themes/StyleTab/theme.jl -msgid "Tabbar to bottom" +msgid "Tab/titelbar to bottom" msgstr "Titelleiste zum »Unterem Fensterrand« verschieben" #. ../themes/StyleTab/theme.jl -msgid "Tabbar to left" +msgid "Tab/titelbar to left" msgstr "Titelleiste zum »Linken Fensterrand« verschieben" #. ../themes/StyleTab/theme.jl -msgid "Tabbar to right" +msgid "Tab/titelbar to right" msgstr "Titelleiste zum »Rechten Fensterrand« verschieben" #. ../themes/StyleTab/theme.jl -msgid "Tabbar to top" +msgid "Tab/titelbar to top" msgstr "Titelleiste zum »Oberen Fensterrand« verschieben" #. ../themes/StyleTab/theme.jl -msgid "Tabbar toggle" +msgid "Tab/titelbar toggle" msgstr "Titelleiste zum »Gegenüber liegendem Fensterrand« verschieben" #. ../themes/StyleTab/theme.jl msgid "Set frame default and default/transient toggle" -msgstr "Rahmentyp umschalten »Normal« und »Nur Rahmen«" +msgstr "Rahmentyp »Normal« und »Nur Rahmen« ein-/ausschalten" #. ../themes/StyleTab/theme.jl msgid "Set frame unframed and unframed/shaped transient toggle" -msgstr "Rahmentyp umschalten »Keinen Rahmen« und »Nur Rahmen«" +msgstr "Rahmentyp »Keinen Rahmen« und »Nur Rahmen« ein-/ausschalten" #. ../themes/StyleTab/theme.jl msgid "Set frame shaped and shaped/shaped transient toggle" -msgstr "Rahmentyp umschalten »Nur Titel« und »Oberen Rahmen«" +msgstr "Rahmentyp »Nur Titel« und »Oberen Rahmen« ein-/ausschalten" #. ../themes/StyleTab/theme.jl msgid "Set frame default" -msgstr "Rahmentyp »Normal«, mit Grö�enanpassung (StyleTab Option)" +msgstr "Rahmentyp »Normal«" #. ../themes/StyleTab/theme.jl msgid "Set frame shaped" -msgstr "Rahmentyp »Nur Titel«, mit Grö�enanpassung (StyleTab Option)" +msgstr "Rahmentyp »Nur Titel«" #. ../themes/StyleTab/theme.jl msgid "Set frame shaped transient" -msgstr "Rahmentyp »Oberer Rahmen«, mit Grö�enanpassung (StyleTab Option)" +msgstr "Rahmentyp »Oberer Rahmen«" #. ../themes/StyleTab/theme.jl msgid "Set frame transient" -msgstr "Rahmentyp »Nur Rahmen«, mit Grö�enanpassung (StyleTab Option)" +msgstr "Rahmentyp »Nur Rahmen«" #. ../themes/StyleTab/theme.jl msgid "Set frame unframed" -msgstr "Rahmentyp »Kein Rahmen«, mit Grö�enanpassung (StyleTab option)" +msgstr "Rahmentyp »Kein Rahmen«" #. ../themes/StyleTab/theme.jl -msgid "Also show in transients" +msgid "Also show in transients." msgstr "Auch in Dialogen anzeigen." #. ../themes/StyleTab/theme.jl @@ -6249,83 +6249,89 @@ msgstr "Rahmentyp" #. ../themes/StyleTab/theme.jl -msgid "Top Titlebar Left Buttons (from left to right) \\top" +msgid "Top Titlebar Left Buttons (from left to right). \\top" msgstr "Obere Titelleiste »Linke Knöpfe« (von links nach rechts). \\top" #. ../themes/StyleTab/theme.jl -msgid "Top Titlebar Right Buttons (from right to left) \\top" +msgid "Top Titlebar Right Buttons (from right to left). \\top" msgstr "Obere Titelleiste »Rechte Knöpfe« (von rechts nach links). \\top" #. ../themes/StyleTab/theme.jl -msgid "Bottom Titlebar Left Buttons (from left to right) \\top" +msgid "Bottom Titlebar Left Buttons (from left to right). \\top" msgstr "Untere Titelleiste »Linke Knöpfe« (von links nach rechts). \\top" #. ../themes/StyleTab/theme.jl -msgid "Bottom Titlebar Right Buttons (from right to left) \\top" +msgid "Bottom Titlebar Right Buttons (from right to left). \\top" msgstr "Untere Titelleiste »Rechte Knöpfe« (von rechts nach links). \\top" #. ../themes/StyleTab/theme.jl -msgid "Left Titlebar Top Buttons (from top to bottom) \\top" +msgid "Left Titlebar Top Buttons (from top to bottom). \\top" msgstr "Linke Titelleiste »Oberen Knöpfe« (von Oben nach Unten). \\top" #. ../themes/StyleTab/theme.jl -msgid "Left Titlebar Bottom Buttons (from bottom to top) \\top" +msgid "Left Titlebar Bottom Buttons (from bottom to top). \\top" msgstr "Linke Titelleiste »Unteren Knöpfe« (von Unten nach Oben). \\top" #. ../themes/StyleTab/theme.jl -msgid "Right Titlebar Top Buttons (from top to bottom) \\top" +msgid "Right Titlebar Top Buttons (from top to bottom). \\top" msgstr "Rechte Titelleiste »Oberen Knöpfe« (von Oben nach Unten). \\top" #. ../themes/StyleTab/theme.jl -msgid "Right Titlebar Bottom Buttons (from bottom to top) \\top" +msgid "Right Titlebar Bottom Buttons (from bottom to top). \\top" msgstr "Rechte Titelleiste »Unteren Knöpfe« (von Unten nach Oben). \\top" #. ../themes/StyleTab/theme.jl -msgid "Set frametype to `default' and toggle transient-ness with resize." +msgid "" +"Set frametype to `default' and toggle transient-ness, with resize (StyleTab " +"Option)." msgstr "" -"Umschalten des Rahmentype zwischen »Normal« und »Nur Rahmen«, " +"Umschalten des Rahmentypes zu/zwischen »Normal« und »Nur Rahmen«, " "mit Grö�enanpassung (StyleTab Option)." #. ../themes/StyleTab/theme.jl -msgid "Set frametype to shaped and toggle transient-ness with resize" +msgid "" +"Set frametype to shaped and toggle transient-ness, with resize (StyleTab " +"Option)." msgstr "" -"Umschalten des Rahmentype zwischen »Nur Titel« und »Oberen Rahmen«, " +"Umschalten des Rahmentypes zu/zwischen »Nur Titel« und »Oberen Rahmen«, " "mit Grö�enanpassung (StyleTab Option)." #. ../themes/StyleTab/theme.jl -msgid "Set frametype to 'unframed' and toggle transient-ness with resize" +msgid "" +"Set frametype to 'unframed' and toggle transient-ness, with resize (StyleTab " +"Option)." msgstr "" -"Umschalten des Rahmentype zwischen »Keinen Rahmen« und »Nur Rahmen«, " +"Umschalten des Rahmentypes zu/zwischen »Keinen Rahmen« und »Nur Rahmen«, " "mit Grö�enanpassung (StyleTab Option)." #. ../themes/StyleTab/theme.jl -msgid "Move tab-bar to bottom." +msgid "Move tab/titelbar to bottom, with resize (StyleTab Option)." msgstr "" -"Verschieben Reiter/Titelleiste zum unterem Fensterrand, mit " +"Verschiebt Reiter/Titelleiste zum unterem Fensterrand, mit " "Grö�enanpassung (StyleTab Option)." #. ../themes/StyleTab/theme.jl -msgid "Move tab-bar to left." +msgid "Move tab/titelbar to left, with resize (StyleTab Option)." msgstr "" -"Verschieben Reiter/Titelleiste zum linken Fensterrand, mit " +"Verschiebt Reiter/Titelleiste zum linken Fensterrand, mit " "Grö�enanpassung (StyleTab Option)." #. ../themes/StyleTab/theme.jl -msgid "Move tab-bar to right." +msgid "Move tab/titelbar to right, with resize (StyleTab Option)." msgstr "" -"Verschieben Reiter/Titelleiste zum rechten Fensterrand, mit " +"Verschiebt Reiter/Titelleiste zum rechten Fensterrand, mit " "Grö�enanpassung (StyleTab Option)." #. ../themes/StyleTab/theme.jl -msgid "Move tab-bar to top." +msgid "Move tab/titelbar to top, with resize (StyleTab Option)." msgstr "" -"Verschieben Reiter/Titelleiste zum oberen Fensterrand, mit " +"Verschiebt Reiter/Titelleiste zum oberen Fensterrand, mit " "Grö�enanpassung (StyleTab Option)." #. ../themes/StyleTab/theme.jl -msgid "Move tab-bar to the opposite side. (Swap top & bottom, or left & right)" +msgid "Move tab/titelbar to the opposite side, with resize (StyleTab Option)." msgstr "" -"Verschieben Reiter/Titelleiste zum gegenüber liegendem Fensterrand, mit " +"Verschiebt Reiter/Titelleiste zum gegenüber liegendem Fensterrand, mit " "Grö�enanpassung (StyleTab Option)." msgid "Apropos Funktion"
diff -urNad sawfish.orgi/lisp/sawfish/wm/keymaps.jl sawfish/lisp/sawfish/wm/keymaps.jl
--- sawfish.orgi/lisp/sawfish/wm/keymaps.jl
+++ sawfish/lisp/sawfish/wm/keymaps.jl
@@ -121,8 +121,8 @@
"Button3-Move" 'move-window-interactively
"Button3-Click" 'tab-release-window
"Button2-Move" 'resize-window-interactively
- "Button2-Off" 'tab-add-to-group
- "C-Button2-Off" 'tabgroup-add-to-group
+ "Button2-Off" 'tab-window-add-to-tabgroup
+ "C-Button2-Off" 'tab-tabgroup-add-to-tabgroup
"Button1-Off2" 'toggle-window-shaded
"Button1-Move" 'move-window-interactively)
"Keymap of window title bar. Mouse-bindings only."
@@ -132,8 +132,8 @@
(defcustom tabbar-keymap (bind-keys (make-keymap)
"Button3-Move" 'move-window-interactively
"Button3-Click" 'tab-release-window
- "Button2-Off" 'tab-add-to-group
- "C-Button2-Off" 'tabgroup-add-to-group
+ "Button2-Off" 'tab-window-add-to-tabgroup
+ "C-Button2-Off" 'tab-tabgroup-add-to-tabgroup
"Button1-Off2" 'toggle-window-shaded
"Button1-Move" 'move-window-interactively)
"Keymap of window tabbar. Mouse-bindings only."
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl
@@ -68,7 +68,7 @@
(tab-pos group tabnum win)))
(define (tab-pos group tabnum win)
- "find the left and right pixel offsets of a tab"
+ "Find the left and right pixel offsets of a tab"
(let* ((dim-x (car (window-dimensions win)))
(dim-y (cdr (window-dimensions win)))
(margin-l
@@ -174,8 +174,8 @@
(call-window-hook 'window-state-change-hook w (list '(marked))))
;; This function is for interactive use. Use tab-group-window for lisp.
- (define (tab-add-to-group win)
- "Add a window to a tabgroup. Apply this command on a window, then
+ (define (tab-window-add-to-tabgroup win)
+ "Add a window WIN to a tabgroup. Apply this command on a window, then
on another. The first window will be added to the tabgroup containig
the second."
(when (net-wm-window-type-normal-p win)
@@ -193,9 +193,9 @@
(setq marked-window (cons win)))
(emit-marked-hook win)))
- (define-command 'tab-add-to-group tab-add-to-group #:spec "%W")
+ (define-command 'tab-window-add-to-tabgroup tab-window-add-to-tabgroup #:spec "%W")
- (define (tabgroup-add-to-group win)
+ (define (tab-tabgroup-add-to-tabgroup win)
"Add a tabgroup to a tabgroup. Apply this command on a window
from the tabgroup, then on another. The tabgroup will be added to
the tabgroup containig the second."
@@ -210,9 +210,10 @@
(window-put w 'marked t)
(emit-marked-hook w)) marked-window))))
- (define-command 'tabgroup-add-to-group tabgroup-add-to-group #:spec "%W")
+ (define-command 'tab-tabgroup-add-to-tabgroup tab-tabgroup-add-to-tabgroup #:spec "%W")
(define (check-win)
+ "Check if a window that was marked as tab is destroy"
(if (car marked-window)
(let ((m-list marked-window))
(setq marked-window nil)
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tabgroup.jl sawfish/lisp/sawfish/wm/tabs/tabgroup.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tabgroup.jl
+++ sawfish/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -73,11 +73,14 @@
(window-get w 'tabbed))
(define (frame-style-tabs-support-p w)
+ "Returns t if the framestyle from W supports tabs.
+Also need the currect settings in the theme.jl from the theme."
(setq tab-theme-name nil)
(call-window-hook 'window-state-change-hook w (list '(tab-theme-name)))
(eq (window-get w 'current-frame-style) tab-theme-name))
(define (net-wm-window-type-normal-p w)
+ "Returns t if _NET_WM_WINDOW_TYPE by W is true or W has window-property 'force-tab"
(or (window-get w 'force-tab)
(if (get-x-property w '_NET_WM_WINDOW_TYPE)
(equal (aref (nth 2 (get-x-property w '_NET_WM_WINDOW_TYPE)) 0) '_NET_WM_WINDOW_TYPE_NORMAL))))
@@ -106,7 +109,7 @@
group))
(define (tab-find-window win)
- "Return the group containing win."
+ "Return the group containing WIN."
(let loop ((gr tab-groups))
(cond
((null gr)
@@ -118,7 +121,7 @@
(loop (cdr gr))))))
(define (tab-window-group-index win)
- "Return the index of the group containing win."
+ "Return the index of the group containing WIN."
(let loop ((index 0))
(cond
((eq index (length tab-groups))
@@ -130,7 +133,7 @@
(loop (+ index 1))))))
(define (tab-group-window-index win)
- "Return the windows of the group containing win."
+ "Return the windows of the group containing WIN."
(let* ((index (tab-window-group-index win))
(wins (tab-group-window-list (nth index tab-groups))))
wins))
@@ -288,6 +291,7 @@
;; don't add a window as tab, if it already
;; exists on another workspace or window type
;; is not a "normal" window (e.g. dock panel ...)
+ ;; and framestyle supported tabs
(when (and (not (cdr (window-get win 'workspaces)))
(net-wm-window-type-normal-p w)
(net-wm-window-type-normal-p win)
@@ -371,7 +375,7 @@
(window-put w 'tabbed t)))))
(define (tab-release-window w)
- "Release the window from its group."
+ "Release the window W from its group."
(setq release-window nil)
(tab-delete-window-from-tab-groups w)
(tab-make-new-group w))
@@ -417,7 +421,7 @@
(before-move-resize win)))
(define (before-move-resize win)
- "Releas win from the tabgroup and iconify the rest from the group."
+ "Releas WIN from the tabgroup and iconify the rest from the group."
(let* ((default-window-animator 'none)
(index (tab-window-group-index win))
(wins (tab-group-window-index win))
@@ -434,7 +438,7 @@
(setq tab-refresh-lock t))
(define (after-move-resize win)
- "Add all tabs to the tabgroup from win. (Releas and iconify by before-move-resize)"
+ "Add all tabs to the tabgroup from WIN. (Releas and iconify by before-move-resize)"
(setq tab-refresh-lock nil)
(let* ((default-window-animator 'none)
(wins all-wins)
@@ -467,7 +471,7 @@
(setq last-unmap-id (window-id win)))
(define (in-tab-group win)
- "Add a new window as tab if have one (the first created if more as one)
+ "Add a new window WIN as tab if have one (the first created if more as one)
of the windows the same 'tab-group property"
(when (window-get win 'tab-group)
(setq in-tab-group-name (append in-tab-group-name (cons (cons (window-id win) (window-get win 'tab-group)))))
@@ -483,7 +487,7 @@
(in-tab-group win)))))
(define (remove-from-tab-group win)
- "Remove window from in-tab-group-name alist if it have a 'tab-group property"
+ "Remove WIN from in-tab-group-name alist if it have a 'tab-group property"
(when (window-get win 'tab-group)
(setq in-tab-group-name (remove (assoc last-unmap-id in-tab-group-name) in-tab-group-name))))
diff -urNad po.orig/de.po po/de.po --- po.orig/de.po +++ po/de.po @@ -6001,7 +6001,7 @@ msgstr "Zeiger via Mousetrap bewegen und rechte Taste klicken" #. ../lisp/sawfish/wm/tabs/tab.jl -msgid "Tab add to group" +msgid "Tab window add to tabgroup" msgstr "Fenster »Als Reiter« hinzufügen" #. ../lisp/sawfish/wm/tabs/tab.jl @@ -6015,7 +6015,7 @@ "Reitergruppe zugeordnet, der das zweite bereits angehört." #. ../lisp/sawfish/wm/tabs/tab.jl -msgid "Tabgroup add to group" +msgid "Tab tabgroup add to tabgroup" msgstr "Reitergruppe zur einer »Zweiten Reitergruppe« hinzufügen" #. ../lisp/sawfish/wm/tabs/tab.jl
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl
@@ -175,7 +175,7 @@
;; This function is for interactive use. Use tab-group-window for lisp.
(define (tab-window-add-to-tabgroup win)
- "Add a window WIN to a tabgroup. Apply this command on a window, then
+ "Add a window to a tabgroup. Apply this command on a window, then
on another. The first window will be added to the tabgroup containig
the second."
(when (net-wm-window-type-normal-p win)
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tabgroup.jl sawfish/lisp/sawfish/wm/tabs/tabgroup.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tabgroup.jl
+++ sawfish/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -375,7 +375,7 @@
(window-put w 'tabbed t)))))
(define (tab-release-window w)
- "Release the window W from its group."
+ "Release the window from its group."
(setq release-window nil)
(tab-delete-window-from-tab-groups w)
(tab-make-new-group w))
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl
@@ -203,7 +203,7 @@
(if marked-window
(progn
(setq marked-window (tab-group-window-index (car marked-window)))
- (tab-add-to-group win))
+ (tab-window-add-to-tabgroup win))
(default-cursor (get-cursor 'clock))
(setq marked-window (tab-group-window-index win))
(mapcar (lambda (w)
diff -urNad sawfish.orgi/lisp/sawfish/wm/commands/move-resize.jl sawfish/lisp/sawfish/wm/commands/move-resize.jl
--- sawfish.orgi/lisp/sawfish/wm/commands/move-resize.jl
+++ sawfish/lisp/sawfish/wm/commands/move-resize.jl
@@ -91,6 +91,16 @@
:tooltip "When moving a window, this option lets you align one of \
its edges with an edge of another window.")
+ (defcustom marked-cursor-shape 'clock
+ "Cursor shape if a window is marked to added as tab."
+ :type (choice arrow box_spiral center_ptr circle cross cross_reverse
+ crosshair diamond_cross dotbox clock double_arrow draped_box
+ fleur hand1 hand2 iron_cross left_ptr ll_angle mouse
+ pencil pirate plus question_arrow right_ptr sb_left_arrow
+ sb_right_arrow sb_down_arrow sb_up_arrow spider star
+ target tcross watch xterm X_cursor)
+ :group move)
+
(defvar move-snap-mode 'resistance
"How to snap together window edges, one of `magnetism', `resistance', or
`attraction'.")
diff -urNad sawfish.orgi/lisp/sawfish/wm/prg/compton.jl sawfish/lisp/sawfish/wm/prg/compton.jl
--- sawfish.orgi/lisp/sawfish/wm/prg/compton.jl
+++ sawfish/lisp/sawfish/wm/prg/compton.jl
@@ -90,55 +90,55 @@
:type boolean
:after-set (lambda () (switch-opacity)))
- (defcustom shadows-crop-maximized nil "Crop shadows by maximized Windows (xinerama support):"
+ (defcustom shadows-crop-maximized nil "Crop shadows by maximized Windows (xinerama support)."
:depends opacity-enable
:group (appearance window-effects)
:type boolean
:after-set (lambda () (switch-opacity)))
- (defcustom top-offset -15 "The top offset for shadows. (Default -15)"
+ (defcustom top-offset -15 "The top offset for shadows (Default -15)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (25 20 15 10 5 0 -05 -10 -15 -20 -25 -30 -35 -40 -45 -50)
:after-set (lambda () (switch-opacity)))
- (defcustom left-offset -15 "The left offset for shadows. (Default -15)"
+ (defcustom left-offset -15 "The left offset for shadows (Default -15)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (25 20 15 10 5 0 -05 -10 -15 -20 -25 -30 -35 -40 -45 -50)
:after-set (lambda () (switch-opacity)))
- (defcustom translucency 80 "The translucency for shadows. (Default 80)"
+ (defcustom translucency 80 "The translucency for shadows (Default 80)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (10 20 30 40 50 60 70 80 90 100)
:after-set (lambda () (switch-opacity)))
- (defcustom blur-radius 12 "The blur radius for shadows. (Default 12)"
+ (defcustom blur-radius 12 "The blur radius for shadows (Default 12)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24)
:after-set (lambda () (switch-opacity)))
- (defcustom shadow-red 0 "Red color value of shadow. (Default 0)"
+ (defcustom shadow-red 0 "Red color value of shadow (Default 0)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (0 1 2 3 4 5 6 7 8 9 10)
:after-set (lambda () (switch-opacity)))
- (defcustom shadow-green 0 "Green color value of shadow. (Default 0)"
+ (defcustom shadow-green 0 "Green color value of shadow (Default 0)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (0 1 2 3 4 5 6 7 8 9 10)
:after-set (lambda () (switch-opacity)))
- (defcustom shadow-blue 0 "Blue color value of shadow. (Default 0)"
+ (defcustom shadow-blue 0 "Blue color value of shadow (Default 0)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
@@ -157,21 +157,21 @@
:type boolean
:after-set (lambda () (switch-opacity)))
- (defcustom fade-in 28 "Opacity change between steps while fading in. (Default 28)"
+ (defcustom fade-in 28 "Opacity change between steps while fading in (Default 28)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (1 7 14 21 28 35 42 49 56)
:after-set (lambda () (switch-opacity)))
- (defcustom fade-out 28 "Opacity change between steps while fading out. (Default 28)"
+ (defcustom fade-out 28 "Opacity change between steps while fading out (Default 28)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (1 7 14 21 28 35 42 49 56)
:after-set (lambda () (switch-opacity)))
- (defcustom fade-time 10 "The time between steps in a fade in milliseconds. (Default 10)"
+ (defcustom fade-time 10 "The time between steps in a fade in milliseconds (Default 10)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
@@ -184,60 +184,60 @@
:type boolean
:after-set (lambda () (switch-opacity)))
- (defcustom menu-opacity 10 "The opacity for menus. (Default 10)"
+ (defcustom menu-opacity 10 "The opacity for menus (Default 10)."
:depends opacity-enable
:group (appearance window-effects)
:type symbol
:options (5 6 7 8 9 10)
:after-set (lambda () (switch-opacity)))
- (defcustom opacity-by-move 75 "Opacity by move. (Default 75)"
+ (defcustom opacity-by-move 75 "Opacity by move (Default 75)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 0 100 75 1))
- (defcustom opacity-by-resize 75 "Opacity by resize. (Default 75)"
+ (defcustom opacity-by-resize 75 "Opacity by resize (Default 75)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 0 100 75 1))
- (defcustom opacity-normal-i 90 "Opacity normal windows inactive. (Default 90)"
+ (defcustom opacity-normal-i 90 "Opacity normal windows inactive (Default 90)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 0 100 90 1)
:after-set (lambda () (update-opacity 'normal)))
- (defcustom opacity-dialog-i 85 "Opacity dialog windows inactive. (Default 85)"
+ (defcustom opacity-dialog-i 85 "Opacity dialog windows inactive (Default 85)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 0 100 85 1)
:after-set (lambda () (update-opacity 'dialog)))
- (defcustom opacity-tabbed-i 95 "Opacity tabbed windows inactive. (Default 95)"
+ (defcustom opacity-tabbed-i 95 "Opacity tabbed windows inactive (Default 95)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 0 100 95 1)
:after-set (lambda () (update-opacity 'tabbed)))
- (defcustom opacity-desktop-i 75 "Opacity desktop windows inactive. (Default 75)"
+ (defcustom opacity-desktop-i 75 "Opacity desktop windows inactive (Default 75)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 0 100 75 1)
:after-set (lambda () (update-opacity 'desktop)))
- (defcustom opacity-dock-a 100 "Opacity dock windows active. (Default 100)"
+ (defcustom opacity-dock-a 100 "Opacity dock windows active (Default 100)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 50 100 100 1)
:after-set (lambda () (update-opacity 'dock)))
- (defcustom opacity-dock-i 80 "Opacity dock windows inactive. (Default 80)"
+ (defcustom opacity-dock-i 80 "Opacity dock windows inactive (Default 80)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 0 100 80 1)
:after-set (lambda () (update-opacity 'dock)))
- (defcustom opacity-notify-i 85 "Opacity notify. (Default 85)"
+ (defcustom opacity-notify-i 85 "Opacity notify (Default 85)."
:depends opacity-enable
:group (appearance window-effects)
:type (number 0 100 85 1)
diff -urNad sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl sawfish/lisp/sawfish/wm/tabs/tab.jl
--- sawfish.orgi/lisp/sawfish/wm/tabs/tab.jl
+++ sawfish/lisp/sawfish/wm/tabs/tab.jl
@@ -189,7 +189,7 @@
(window-put win 'marked nil)
(setq marked-window nil))
(window-put win 'marked t)
- (default-cursor (get-cursor 'clock))
+ (default-cursor (get-cursor marked-cursor-shape))
(setq marked-window (cons win)))
(emit-marked-hook win)))
@@ -204,7 +204,7 @@
(progn
(setq marked-window (tab-group-window-index (car marked-window)))
(tab-window-add-to-tabgroup win))
- (default-cursor (get-cursor 'clock))
+ (default-cursor (get-cursor marked-cursor-shape))
(setq marked-window (tab-group-window-index win))
(mapcar (lambda (w)
(window-put w 'marked t)
diff -urNad po.orgi/de.po po/de.po --- po.orgi/de.po +++ po/de.po @@ -3221,36 +3221,36 @@ msgstr "Erzwingen von Schatten auch bei Fenstern mit Reitern." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Crop shadows by maximized Windows (xinerama support):" -msgstr "Keine Schatten bei maximierten Fenstern. (Xinerama Unterstützung)" +msgid "Crop shadows by maximized Windows (xinerama support)." +msgstr "Keine Schatten bei maximierten Fenstern (Xinerama Unterstützung)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "The top offset for shadows. (Default -15)" -msgstr "Oberer Schattenversatz. (Vorgabe -15)" +msgid "The top offset for shadows (Default -15)." +msgstr "Oberer Schattenversatz (Vorgabe -15)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "The left offset for shadows. (Default -15)" -msgstr "Linker Schattenversatz. (Vorgabe -15)" +msgid "The left offset for shadows (Default -15)." +msgstr "Linker Schattenversatz (Vorgabe -15)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "The translucency for shadows. (Default 80)" -msgstr "Transparenz der Schatten. (Vorgabe 80)" +msgid "The translucency for shadows (Default 80)." +msgstr "Transparenz der Schatten (Vorgabe 80)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "The blur radius for shadows. (Default 12)" -msgstr "Unschärfe Radius bei Schatten. (Vorgabe 12)" +msgid "The blur radius for shadows (Default 12)." +msgstr "Unschärfe Radius bei Schatten (Vorgabe 12)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Red color value of shadow. (Default 0)" -msgstr "Rote Farbintensität in den Schatten. (Vorgabe 0)" +msgid "Red color value of shadow (Default 0)." +msgstr "Rote Farbintensität in den Schatten (Vorgabe 0)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Green color value of shadow. (Default 0)" -msgstr "Grüne Farbintensität in den Schatten. (Vorgabe 0)" +msgid "Green color value of shadow (Default 0)." +msgstr "Grüne Farbintensität in den Schatten. (Vorgabe 0)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Blue color value of shadow. (Default 0)" -msgstr "Blaue Farbintensität in den Schatten. (Vorgabe 0)" +msgid "Blue color value of shadow (Default 0)." +msgstr "Blaue Farbintensität in den Schatten (Vorgabe 0)." #. ../lisp/sawfish/wm/prg/compton.jl msgid "Avoid drawing shadows on dock/panel windows." @@ -3259,67 +3259,67 @@ #. ../lisp/sawfish/wm/prg/compton.jl msgid "Fade windows in/out when opening/closing and when opacity changes." msgstr "" -"Animieren der Fenster. (Fokus an/aus, �ffne/Schlie�en, Minimieren/Maximieren " -"...)" +"Animieren der Fenster (Fokus an/aus, �ffne/Schlie�en, Minimieren/Maximieren " +"...)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity change between steps while fading in. (Default 28)" +msgid "Opacity change between steps while fading in (Default 28)." msgstr "" -"Deckkraft Veränderung zwischen den Schritten beim Einblenden. (Vorgabe 28)" +"Deckkraft Veränderung zwischen den Schritten beim Einblenden (Vorgabe 28)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity change between steps while fading out. (Default 28)" +msgid "Opacity change between steps while fading out (Default 28)." msgstr "" -"Deckkraft Veränderung zwischen den Schritten beim Ausblenden. (Vorgabe 28)" +"Deckkraft Veränderung zwischen den Schritten beim Ausblenden (Vorgabe 28)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "The time between steps in a fade in milliseconds. (Default 10)" +msgid "The time between steps in a fade in milliseconds (Default 10)." msgstr "" -"Die Zeit zwischen den einzelnen Schritten in Millisekunden. (Vorgabe 10)" +"Die Zeit zwischen den einzelnen Schritten in Millisekunden (Vorgabe 10)." #. ../lisp/sawfish/wm/prg/compton.jl msgid "Zero the part of the shadow's mask behind the window (experimental).." -msgstr "Entfernen der Schatten hinter den Fenstern. (Experimentell)" +msgstr "Entfernen der Schatten hinter den Fenstern (Experimentell)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "The opacity for menus. (Default 10)" -msgstr "Transparenz bei den Menüs. (Vorgabe 10)" +msgid "The opacity for menus (Default 10)." +msgstr "Transparenz bei den Menüs (Vorgabe 10)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity by move. (Default 75)" -msgstr "Transparenz wenn Fenster verschoben wird. (Vorgabe 75)" +msgid "Opacity by move (Default 75)." +msgstr "Transparenz wenn Fenster verschoben wird (Vorgabe 75)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity by resize. (Default 75)" -msgstr "Transparenz wenn die Grö�e der Fenster verändert wird. (Vorgabe 75)" +msgid "Opacity by resize (Default 75)." +msgstr "Transparenz wenn die Grö�e der Fenster verändert wird (Vorgabe 75)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity normal windows inactive. (Default 90)" -msgstr "Transparenz bei inaktiven normalen Fenstern. (Vorgabe 90)" +msgid "Opacity normal windows inactive (Default 90)." +msgstr "Transparenz bei inaktiven normalen Fenstern (Vorgabe 90)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity dialog windows inactive. (Default 85)" -msgstr "Transparenz bei inaktiven Dialogen. (Vorgabe 85)" +msgid "Opacity dialog windows inactive (Default 85)." +msgstr "Transparenz bei inaktiven Dialogen (Vorgabe 85)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity tabbed windows inactive. (Default 95)" -msgstr "Transparenz bei inaktiven Fenstern mit Reitern. (Vorgabe 95)" +msgid "Opacity tabbed windows inactive (Default 95)." +msgstr "Transparenz bei inaktiven Fenstern mit Reitern (Vorgabe 95)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity desktop windows inactive. (Default 75)" -msgstr "Transparenz der inaktiven Arbeitsfläche. (Vorgabe 75)" +msgid "Opacity desktop windows inactive (Default 75)." +msgstr "Transparenz der inaktiven Arbeitsfläche (Vorgabe 75)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity dock windows active. (Default 100)" -msgstr "Transparenz bei fokussierten Docks. (Vorgabe 100)" +msgid "Opacity dock windows active (Default 100)." +msgstr "Transparenz bei fokussierten Docks (Vorgabe 100)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity dock windows inactive. (Default 80)" -msgstr "Transparenz bei inaktiven Docks. (Vorgabe 80)" +msgid "Opacity dock windows inactive (Default 80)." +msgstr "Transparenz bei inaktiven Docks (Vorgabe 80)." #. ../lisp/sawfish/wm/prg/compton.jl -msgid "Opacity notify. (Default 85)" -msgstr "Transparenz bei Benachrichtigungen. (Vorgabe 85)" +msgid "Opacity notify (Default 85)." +msgstr "Transparenz bei Benachrichtigungen (Vorgabe 85)." #. ../lisp/sawfish/wm/prg/xmodmap.jl msgid "Whether to start xmodmap with Sawfish." @@ -3599,6 +3599,10 @@ msgstr "Schriftfarbe für angeklickte hervorgehobene Rahmen." #. ../lisp/sawfish/wm/frames.jl +msgid "Cursor shape if a window is marked to added as tab." +msgstr "Mauszeiger wenn ein Fenster als Reiter hinzugefügt werden soll." + +#. ../lisp/sawfish/wm/frames.jl msgid "Whether to change the cursor shape for frame buttons." msgstr "Benutzerdefinierte Mauszeiger bei den verschiedenen Rahmenknöpfen." @@ -3631,6 +3635,10 @@ msgid "diamond_cross" msgstr "Diamanten Kreuz " +#. ../lisp/sawfish/wm/commands/move-resize.jl +msgid "clock" +msgstr "Uhr " + #. ../lisp/sawfish/wm/frames.jl msgid "dotbox" msgstr "Punkt Box" @@ -3726,6 +3734,10 @@ msgid "tcross" msgstr "T Kreuz" +#. ../lisp/sawfish/wm/commands/move-resize.jl +msgid "watch" +msgstr "Armbanduhr" + #. ../lisp/sawfish/wm/frames.jl msgid "xterm" msgstr "Prompt" @@ -6001,7 +6013,7 @@ msgstr "Zeiger via Mousetrap bewegen und rechte Taste klicken" #. ../lisp/sawfish/wm/tabs/tab.jl -msgid "Tab window add to tabgroup" +msgid "Window add to tabgroup" msgstr "Fenster »Als Reiter« hinzufügen" #. ../lisp/sawfish/wm/tabs/tab.jl @@ -6015,7 +6027,7 @@ "Reitergruppe zugeordnet, der das zweite bereits angehört." #. ../lisp/sawfish/wm/tabs/tab.jl -msgid "Tab tabgroup add to tabgroup" +msgid "Tabgroup add to tabgroup" msgstr "Reitergruppe zur einer »Zweiten Reitergruppe« hinzufügen" #. ../lisp/sawfish/wm/tabs/tab.jl
Attachment:
signature.asc
Description: PGP signature
| Mail converted by MHonArc 2.6.19+ | http://listengine.tuxfamily.org/ |