Hi, On Fri, 18 Feb 2011 01:45:50 +0100 wrote fuchur <flohtransporter gmail com>: >Hi, > >On Fri, 18 Feb 2011 01:18:59 +0100 >wrote fuchur <flohtransporter gmail com>: > >>Add support for send-to/copy-to next/prev workspace for tabbed windows. >>Changelog: >>Add tab-group-windows-index to tabgroup.jl which returns a list of >>tabbed windows (if any). >>Don't add a window to tabgroup if window has a copy on a other >>workspace (tabgroup.jl). >>Add tab-group-windows-index to gaol-add in tabgroup.jl. >>In workspace.jl makes "send-to-next-workspace" works with tabs. > >Forgotten something to rename. Samll fix. Sorry. > Improve theme.jl from StyleTab. Replace "move-window-to" with "tab-group-windows-index" (faster by titleposition or frametype switch if have a window tabs). -- Regards, Fuchur GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53 C116 E5BC 70D5 B8D7 B2B0
diff -urNad sawfish-git-9999.orgi/themes/StyleTab/theme.jl sawfish-git-9999/themes/StyleTab/theme.jl
--- sawfish-git-9999.orgi/themes/StyleTab/theme.jl 2011-02-18 19:10:09.000000000 +0100
+++ sawfish-git-9999/themes/StyleTab/theme.jl 2011-02-18 19:14:43.000000000 +0100
@@ -52,7 +52,7 @@
(defgroup StyleTab:right-bottom-buttons-group "Right Titlebar Bottom Buttons"
:group (appearance StyleTab:group StyleTab:buttons-group StyleTab:right-buttons-group))
-(defcustom styletab:style 'Dark "Frame and button style. (requires restart)"
+(defcustom styletab:style 'Dark "Frame and button style. (requires restart)"
:group (appearance StyleTab:group StyleTab:settings-group)
:options (Reduce Dark DarkColor Silver SilverColor Smoothly)
:type symbol)
@@ -262,6 +262,7 @@
(define (rotate-tab src dest)
(let ((w (current-event-window))
+ (wins (tab-group-windows-index (current-event-window)))
pos-x pos-y fdim framew framehigh dim-x dim-y current-title type)
(if (not (window-get w 'title-position))
(case styletab:titlebar-place
@@ -321,16 +322,14 @@
(when (>= (+ pos-y dim-y styletab:title-dimension framew) (screen-height))
(setq pos-y (- (screen-height) dim-y styletab:title-dimension framew)))
(when (<= pos-y 0) (setq pos-y 0))))
-
- (window-put w 'title-position dest)
+
+ (mapcar (lambda (w)
+ (window-put w 'title-position dest)) wins)
(call-window-hook 'window-state-change-hook w (list '(title-position)))
- (reframe-window w)
- (move-window-to w pos-x pos-y)
- (resize-window-to w dim-x dim-y)
- (when (window-get w 'tabbed)
- (tab-refresh-group w 'title-position)
- (tab-refresh-group w 'reframe)
- (tab-refresh-group w 'move)))))
+ (mapcar (lambda (w)
+ (reframe-window w)
+ (move-window-to w pos-x pos-y)
+ (resize-window-to w dim-x dim-y)) wins))))
(define (tabbar-to-top)
"Move tab-bar to top."
@@ -406,6 +405,7 @@
(define (f-type dest)
(let ((w (current-event-window))
+ (wins (tab-group-windows-index (current-event-window)))
pos-x pos-y dim-x dim-y cur new current-title)
(if (not (window-get w 'title-position))
(case styletab:titlebar-place
@@ -508,13 +508,11 @@
(setq dim-y (- dim-y styletab:title-dimension))
(setq dim-x (- dim-x styletab:title-dimension)))))
(when (not (eq cur new))
- (window-put w 'type new)
- (reframe-window w)
- (move-window-to w pos-x pos-y)
- (resize-window-to w dim-x dim-y)
- (when (window-get w 'tabbed)
- (tab-refresh-group w 'type)
- (tab-refresh-group w 'move)))))
+ (mapcar (lambda (w)
+ (window-put w 'type new)
+ (reframe-window w)
+ (move-window-to w pos-x pos-y)
+ (resize-window-to w dim-x dim-y)) wins))))
(define (set-frame-default-and-default/transient-toggle)
"Set frametype default and toggle default/transient with resize"
Attachment:
signature.asc
Description: PGP signature