[sawfish: 6/9] Commands xterm & browser can take an argument.

[Christopher Bratusek <chrisb src gnome org>]

commit 2552845d41854483969438cfe35b6486691b7b26
Author: Teika kazura <teika lavabit com>
Date:   Fri Nov 20 16:35:01 2009 +0900

    Commands xterm & browser can take an argument.

 lisp/sawfish/wm/commands/launcher.jl |   13 +++++++++++--
 1 files changed, 11 insertions(+), 2 deletions(-)
---
diff --git a/lisp/sawfish/wm/commands/launcher.jl b/lisp/sawfish/wm/commands/launcher.jl
index 095a147..83c7d8e 100644
--- a/lisp/sawfish/wm/commands/launcher.jl
+++ b/lisp/sawfish/wm/commands/launcher.jl
@@ -65,5 +65,14 @@ arguments to be passed."
                       browser-program url))))
 
   ;;###autoload
-  (define-command 'xterm xterm #:class 'default)
-  (define-command 'browser browser #:class 'default))
+  (define-command 'xterm xterm #:class 'default
+    #:spec "sCommand:"
+    #:type `(and (labelled ,(_ "Command:") string))
+    #:doc "Start xterm. Optional command is passed with -e."
+    )
+  (define-command 'browser browser #:class 'default
+    #:spec "sUrl:"
+    #:type `(and (labelled ,(_ "url:") string))
+    #:doc "Start browser. Url is optional."
+    )
+  )