[sawfish] abbility to redirect Sawfish-UIs output wherever you want

[Christopher Bratusek <chrisb src gnome org>]

commit 90603fef17590646fca2dd1c9d9102aa34f74cc9
Author: chrisb <zanghar freenet de>
Date:   Sat Sep 12 09:59:29 2009 +0200

    abbility to redirect Sawfish-UIs output wherever you want

 ChangeLog                    |    3 +++
 OPTIONS                      |   12 +++++++-----
 lisp/sawfish/wm/customize.jl |   14 +++++++++-----
 man/news.texi                |    4 +++-
 4 files changed, 22 insertions(+), 11 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index e42411a..b05db03 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,7 @@
 				    -- [Teika Kazura]
 	
 	* man/news.texi: major rewrite of 1.5.0 section [Teika Kazura]
+	                 updated
 
 	* sawfish.desktop
 	* sawfish-session.desktop
@@ -35,6 +36,8 @@
 
 	* scripts/sawfish-client.jl: added `,quit' command (like `C-d'), unlike `C-c' this won't kill sawfish [Teika Kazura]
 
+	* lisp/sawfish/wm/customize.jl: With new "customize-redirect" option, Sawfish-UIs output can be redirected [Teika Kazura]
+
 2009-09-11  Christopher Bratusek <zanghar freenet de>
 	* configure.in
 	* Makedefs.in
diff --git a/OPTIONS b/OPTIONS
index 551ec3d..4dbb9d9 100644
--- a/OPTIONS
+++ b/OPTIONS
@@ -26,9 +26,6 @@
 
 ;; window animation options
 
-;; sawfish-ui does use a treeview by default, if you prefer the
-;; notebook-style instead use: sawfish-ui --flatten
-
 ;;  (define-special-variable default-window-animator 'none
 ;;    "The default window animation mode. Options include none,
 ;;wireframe, solid, cross, elliptical and draft.")
@@ -43,12 +40,17 @@
 
 ;; customization options
 
+;;   From sawfish-1.5.0, sawfish-ui does use a treeview by default.
+;;   If you prefer the previous notebook-style instead use:
+;;   "sawfish-ui --flatten"
 ;;  (define-special-variable customize-program "sawfish-ui"
-;;    "Location of the program implementing sawfish's configuration
-;;interface.")
+;;    "Command name of the configurator GUI.")
 
 ;;  (define-special-variable customize-group-opt "--group")
 
+;;  (define-special-variable customize-redirect ">/dev/null 2>&1 </dev/null"
+;;    "Redirect the configurator's input & output.")
+
 ;;  (define-special-variable customize-show-symbols nil
 ;;    "Show variable names of each customization option.")
 
diff --git a/lisp/sawfish/wm/customize.jl b/lisp/sawfish/wm/customize.jl
index e770784..305d7ef 100644
--- a/lisp/sawfish/wm/customize.jl
+++ b/lisp/sawfish/wm/customize.jl
@@ -1,4 +1,4 @@
-;; customize.jl -- configuration user interface
+;; customize.jl -- invocation of configurator GUI & customization file IO
 ;; $Id: customize.jl,v 1.46 2000/11/29 00:54:47 jsh Exp $
 
 ;; Copyright (C) 1999 John Harper <john dcs warwick ac uk>
@@ -36,10 +36,13 @@
   (define-structure-alias customize sawfish.wm.customize)
 
   (defvar customize-program "sawfish-ui"
-    "Location of the program implementing sawfish's configuration interface.")
+    "Command name of the configurator GUI.")
 
   (defvar customize-group-opt "--group")
 
+  (defvar customize-redirect ">/dev/null 2>&1 </dev/null"
+    "Redirect the configurator's input & output.")
+  
   (define customize-user-forms nil)
   (define customize-user-file-read nil)
   (define customize-user-file-dirty nil)
@@ -47,11 +50,12 @@
 ;;; ui
 
   (define (customize #!optional group)
-    "Invoke the user-customization system."
-    (system (format nil "%s %s '%S' >/dev/null 2>&1 </dev/null &"
+    "Invoke the configurator GUI."
+    (system (format nil "%s %s '%S' %s &"
 		    customize-program
 		    (if group customize-group-opt "")
-		    (or group ""))))
+		    (or group "")
+		    customize-redirect)))
 
   ;;###autoload
   (define-command 'customize customize)
diff --git a/man/news.texi b/man/news.texi
index c667328..e2dcee9 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -134,7 +134,7 @@ your system, but the later doesn't
 
 @item Fixed typos in the .desktop files and removed unneded entries [Christopher Bratusek]
 
- item Changing @code{raise-tabs-on-hover takes} effect immediately now [Christopher Bratusek]
+ item Changing @code{raise-tabs-on-hover} takes effect immediately now [Christopher Bratusek]
 
 @item Add --tag=CC to libtool where necessary, unbrakes compilation on some arches [Gentoo]
 
@@ -144,6 +144,8 @@ your system, but the later doesn't
 
 @item Fixed the license-header of tabbed-windowing files [Christopher Bratusek]
 
+ item With new option @code{customize-redirect}, configurator's output can be redirected. [Teika Kazura]
+
 @item Export shrink-yank commands [Christopher Bratusek]
 
 @item Export @code{send-to-workspace} command [Christopher Bratusek]