Hi, On Thu, 11 Nov 2010 16:59:41 +0100 wrote fuchur <flohtransporter gmail com>: >Hi, > >Here i have patches for tab support and tabthemes. > >01.themes.patch >Changes: >Remove reframe/rebuild functions from theme.jl >Reframe/rebuild windows by tab-themes now only >call from tabgroup.jl > >02.tabs.patch >Changes: >Reframe/rebuild windows by tab-themes now call >from tabgroup.jl. >Don't try to add a single/same window in a tabgroup. >Remember titel-position if window uniconify. >Reset set-tab-adjustments from tab-themes.jl if required. >Bugfix. > >03.frames.patch >Changes: >Add functions adjustment-title to call hook title-position. >Before reframe a window call adjustment-title and reset >set-tab-adjustments from tab-themes.jl file. > >04_DarkTab.patch >Changes: >Remove clicked title color settings, now the same as the highlight >color. >Remove reframe/rebuild functions, now set by tabgroup.jl > Two fixes. 01.themes-fix.patch Changes: Themes now can use without restart sawfish, also for a single window. 01.tabs-fix.patch Changes: Frame now reframe if you move/resize windows. -- Regards, Fuchur GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53 C116 E5BC 70D5 B8D7 B2B0
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 2010-11-12 09:40:22.000000000 +0100
+++ sawfish/lisp/sawfish/wm/tabs/tabgroup.jl 2010-11-12 09:44:32.000000000 +0100
@@ -164,7 +164,7 @@
(pos (window-position win)))
(mapcar (lambda (w)
(tab-move-resize-frame-window-to w (car pos) (cdr pos) (car dim) (cdr dim))
- (rebuild-frame w)) wins)
+ (reframe-window w)) wins)
(rplaca (nthcdr index tab-groups)
(tab-build-group pos dim wins))))
((eq prop 'fixed-position)
diff -urNad sawfish.orgi/themes/Elberg-tabbed/theme.jl sawfish/themes/Elberg-tabbed/theme.jl
--- sawfish.orgi/themes/Elberg-tabbed/theme.jl 2010-11-12 09:40:22.000000000 +0100
+++ sawfish/themes/Elberg-tabbed/theme.jl 2010-11-12 09:41:49.000000000 +0100
@@ -488,9 +488,8 @@
((shaped-transient) shaped-transient-frame))))
(define (create-frames-only w)
- (lambda ()
(when (eq (window-get w 'current-frame-style) 'Elberg-tabbed)
- (create-frames))))
+ (create-frames)))
;; Create only frames, don't rebuild-frame/reframe-window.
;; Tabthemes will reframe/rebuild windows call from tabgroup.jl.
diff -urNad sawfish.orgi/themes/get-S-tabbed/theme.jl sawfish/themes/get-S-tabbed/theme.jl
--- sawfish.orgi/themes/get-S-tabbed/theme.jl 2010-11-12 09:40:22.000000000 +0100
+++ sawfish/themes/get-S-tabbed/theme.jl 2010-11-12 09:42:02.000000000 +0100
@@ -326,9 +326,8 @@
((shaped-transient) shaped-transient-frame))))
(define (create-frames-only w)
- (lambda ()
(when (eq (window-get w 'current-frame-style) 'get-S-tabbed)
- (create-frames))))
+ (create-frames)))
;; Create only frames, don't rebuild-frame/reframe-window.
;; Tabthemes will reframe/rebuild windows call from tabgroup.jl.
Attachment:
signature.asc
Description: PGP signature