[sawfish] moved maxmize-unframe/reframe into maxmize -- moved rename-window into windows

[Christopher Bratusek <chrisb src gnome org>]

commit 322dcc720c5fc128ea280c71d2ce4bac7216af45
Author: chrisb <zanghar freenet de>
Date:   Wed Jul 29 15:11:24 2009 +0200

    moved maxmize-unframe/reframe into maxmize -- moved rename-window into windows

 ChangeLog                                  |    4 +++
 lisp/Makefile.in                           |    2 +-
 lisp/sawfish/wm/mmc/window-manipulation.jl |   39 ----------------------------
 lisp/sawfish/wm/state/maximize.jl          |   13 ++++++++-
 lisp/sawfish/wm/windows.jl                 |   10 +++++++
 5 files changed, 27 insertions(+), 41 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 6e69bc4..0580040 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-07-29  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/mmc/window-manipulation.jl: moved maximize-unframe/reframe into sawfish.wm.state.maximize
+	                                              moved rename-window into sawfish.wm.windows 
+
 2009-07-28  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/frames.jl: make doc-windows unframed [Timo Korvola]
 
diff --git a/lisp/Makefile.in b/lisp/Makefile.in
index ce62ad5..ea04649 100644
--- a/lisp/Makefile.in
+++ b/lisp/Makefile.in
@@ -46,7 +46,7 @@ INSTALL_DIRS := \
 	sawfish/wm/animation sawfish/wm/theming \
 	sawfish/wm/state sawfish/wm/gnome sawfish/wm/util \
 	sawfish/wm/commands sawfish/wm/session \
-	sawfish/wm/tabs sawfish/wm/mmc
+	sawfish/wm/tabs
 
 all : lisp
 	set -e; for d in $(SUBDIRS); do \
diff --git a/lisp/sawfish/wm/state/maximize.jl b/lisp/sawfish/wm/state/maximize.jl
index 8f660b3..fb0257e 100644
--- a/lisp/sawfish/wm/state/maximize.jl
+++ b/lisp/sawfish/wm/state/maximize.jl
@@ -66,7 +66,8 @@
 	  sawfish.wm.util.stacking
 	  sawfish.wm.frames
 	  sawfish.wm.misc
-	  sawfish.wm.focus)
+	  sawfish.wm.focus
+	  sawfish.wm.util.prompt)
 
   (define-structure-alias maximize sawfish.wm.state.maximize)
 
@@ -478,6 +479,14 @@ unmaximized."
 	(unmaximize-window w 'horizontal)
       (maximize-fill-window w 'horizontal)))
 
+  (define (maximize-unframe w)
+    (set-window-type w 'unframed)
+    (maximize-window w))
+
+  (define (maximize-reframe w)
+    (set-window-type w 'default)
+    (maximize-window w))
+
   ;;###autoload
   (define-command 'maximize-fill-window maximize-fill-window #:spec "%W")
   (define-command 'maximize-fill-window-vertically maximize-fill-window-vertically #:spec "%W")
@@ -485,6 +494,8 @@ unmaximized."
   (define-command 'maximize-fill-window-toggle maximize-fill-window-toggle #:spec "%W")
   (define-command 'maximize-fill-window-horizontally-toggle maximize-fill-window-horizontally-toggle #:spec "%W")
   (define-command 'maximize-fill-window-vertically-toggle maximize-fill-window-vertically-toggle #:spec "%W")
+  (define-command 'maximize-unframe maximize-unframe #:spec "%W")
+  (define-command 'maximize-reframe maximize-reframe #:spec "%W")
 
 ;; fullscreen commands
 
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index 7bea112..baf5d9c 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -225,6 +225,16 @@ supported by client window W."
 		((eq (aref data i) atom) t)
 		(t (loop (1+ i))))))))
 
+;;; renaming
+
+(define (rename-window window new-name)
+  (set-x-text-property window '_NET_WM_NAME (vector new-name)))
+
+(define (rename-window-interactive w)
+  (rename-window w (prompt-for-string "new title:" (window-name w))))
+
+(define-command 'rename-window rename-window-interactive #:spec "%W")
+
 ;;; warping
 
   (define (warp-cursor-to-window w #!optional x y)