GNOME.org
 

[sawfish: 7/42] remove unneeded 'default class from commands remove unused 'advanced and 'viewport classes from comm

commit 2e47121ab5837788ce4ae2a59424d9183e9f6256
Author: Christopher Roy Bratusek <nano tuxfamily org>
Date:   Sun Apr 10 08:17:03 2011 +0200

    remove unneeded 'default class from commands
    remove unused 'advanced and 'viewport classes from commands
    updated ChangeLog

 ChangeLog                                   |   32 +++++++++++++++++++++++++++
 lisp/sawfish/wm/commands/describe.jl        |   12 +++++-----
 lisp/sawfish/wm/commands/groups.jl          |   16 ++++++------
 lisp/sawfish/wm/commands/jump-or-exec.jl    |    2 +-
 lisp/sawfish/wm/commands/launcher.jl        |    4 +-
 lisp/sawfish/wm/commands/poweroff.jl        |    2 +-
 lisp/sawfish/wm/commands/raise-commands.jl  |    6 ++--
 lisp/sawfish/wm/commands/viewport-extras.jl |    8 +++---
 lisp/sawfish/wm/stacking.jl                 |    6 ++--
 lisp/sawfish/wm/state/transient.jl          |    6 ++--
 lisp/sawfish/wm/viewport.jl                 |   24 ++++++++++----------
 lisp/sawfish/wm/workspace.jl                |   18 +++++++-------
 12 files changed, 84 insertions(+), 52 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 347bbee..4d9f96e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,35 @@
+2011-04-10  Christopher Roy Bratusek <nano tuxfamily org>
+	* man/sawfish.texi: fixed wrong logic of doc for insert-workspace
+
+	* lisp/sawfish/wm/workspace.jl: update insert-workspace accordingly
+	add insert-workspace-before to workspace-menu
+
+	* lisp/sawfish/wm/commands/describe.jl
+	* lisp/sawfish/wm/commands/groups.jl
+	* lisp/sawfish/wm/commands/jump-or-exec.jl
+	* lisp/sawfish/wm/commands/launcher.jl
+	* lisp/sawfish/wm/commands/poweroff.jl
+	* lisp/sawfish/wm/commands/raise-commands.jl
+	* lisp/sawfish/wm/commands/viewport-extras.jl
+	* lisp/sawfish/wm/stacking.jl
+	* lisp/sawfish/wm/state/transient.jl
+	* lisp/sawfish/wm/viewport.jl
+	* lisp/sawfish/wm/workspace.jl: removed unneeded 'default class from commands
+	removed unused 'default and 'advanced classes from commands
+
+
+2011-04-08  Christopher Roy Bratusek <nano tuxfamily org>
+	* Makefile.in: fixed uninstall rule
+
+2011-04-07  Christopher Roy Bratusek <nano tuxfamily org>
+	* themes/mxflat/theme.jl: fixed two strings in mxflat
+
+	* po/sawfish.pot:â??updated pot file
+
+2011-04-05  Christopher Roy Bratusek <nano tuxfamily org>
+	* lisp/sawfish/wm/commands/jump-or-exec.jl: fixed failing jump-or-exec
+	when a window without WM_CLASS exists
+
 2011-03-08  Teika Kazura <teika lavabit com>
 	* lisp/sawfish/wm/frames.jl
 	* man/news.texi
diff --git a/lisp/sawfish/wm/commands/describe.jl b/lisp/sawfish/wm/commands/describe.jl
index d24eb1b..ca22a03 100644
--- a/lisp/sawfish/wm/commands/describe.jl
+++ b/lisp/sawfish/wm/commands/describe.jl
@@ -38,9 +38,9 @@
 
   ;;###autoload
   (define-command 'describe-symbol describe-symbol
-    #:spec "SSymbol:" #:class 'advanced)
+    #:spec "SSymbol:")
   (define-command-to-screen 'describe-symbol-to-screen describe-symbol
-    #:spec "SSymbol:" #:class 'advanced
+    #:spec "SSymbol:"
     #:doc "Enter a name of var/func, and prints its doc.")
 
   (define (apropos-output symbols)
@@ -61,9 +61,9 @@
 
   ;;###autoload
   (define-command 'apropos-function apropos-function
-    #:spec "sApropos functions:\nP" #:class 'advanced)
+    #:spec "sApropos functions:\nP")
   (define-command-to-screen 'apropos-function-to-screen apropos-function
-    #:spec "sApropos functions:\nP" #:class 'advanced)
+    #:spec "sApropos functions:\nP")
 
   (define (apropos-variable regexp)
     (format standard-output "Apropos variable `%s':\n" regexp)
@@ -71,6 +71,6 @@
 
   ;;###autoload
   (define-command 'apropos-variable apropos-variable
-    #:spec "sApropos variables:" #:class 'advanced)
+    #:spec "sApropos variables:")
   (define-command-to-screen 'apropos-variable-to-screen apropos-variable
-    #:spec "sApropos variables:" #:class 'advanced))
+    #:spec "sApropos variables:"))
diff --git a/lisp/sawfish/wm/commands/groups.jl b/lisp/sawfish/wm/commands/groups.jl
index 78c7bc9..19feffe 100644
--- a/lisp/sawfish/wm/commands/groups.jl
+++ b/lisp/sawfish/wm/commands/groups.jl
@@ -147,17 +147,17 @@
 
   ;;###autoload
   (define-command 'move-group-to-current-viewport
-    move-group-to-current-viewport #:spec "%W" #:class 'viewport)
+    move-group-to-current-viewport #:spec "%W")
 
   ;;###autoload
   (define-command 'move-group-left
-    move-group-left #:spec "%W" #:class 'viewport)
+    move-group-left #:spec "%W")
   (define-command 'move-group-right
-    move-group-right #:spec "%W" #:class 'viewport)
+    move-group-right #:spec "%W")
   (define-command 'move-group-up
-    move-group-up #:spec "%W" #:class 'viewport)
+    move-group-up #:spec "%W")
   (define-command 'move-group-down
-    move-group-down #:spec "%W" #:class 'viewport)
+    move-group-down #:spec "%W")
 
   ;; stacking
 
@@ -169,11 +169,11 @@
 
   ;;###autoload
   (define-command 'raise-group raise-group
-    #:spec "%W" #:class 'advanced)
+    #:spec "%W")
   (define-command 'lower-group lower-group
-    #:spec "%W" #:class 'advanced)
+    #:spec "%W")
   (define-command 'raise-lower-group raise-lower-group
-    #:spec "%W" #:class 'advanced)
+    #:spec "%W")
   (define-command 'raise-group-depth raise-group-depth #:spec "%W")
   (define-command 'lower-group-depth lower-group-depth #:spec "%W")
 
diff --git a/lisp/sawfish/wm/commands/jump-or-exec.jl b/lisp/sawfish/wm/commands/jump-or-exec.jl
index 19a925d..9a65156 100644
--- a/lisp/sawfish/wm/commands/jump-or-exec.jl
+++ b/lisp/sawfish/wm/commands/jump-or-exec.jl
@@ -66,7 +66,7 @@
 	    ((commandp prog) (call-command prog))
 	    (t (user-eval prog)))))
 
-  (define-command 'jump-or-exec jump-or-exec #:class 'default)
+  (define-command 'jump-or-exec jump-or-exec)
 
   (define (toggle-or-exec regex prog #!key match-class)
     (jump-or-exec regex prog
diff --git a/lisp/sawfish/wm/commands/launcher.jl b/lisp/sawfish/wm/commands/launcher.jl
index 90a6a24..0bc1db9 100644
--- a/lisp/sawfish/wm/commands/launcher.jl
+++ b/lisp/sawfish/wm/commands/launcher.jl
@@ -70,12 +70,12 @@ passed."
                       browser-program url))))
 
   ;;###autoload
-  (define-command 'xterm xterm #:class 'default
+  (define-command 'xterm xterm
     #:spec "sCommand:"
     #:type `(and (labelled ,(_ "Command:") string))
     #:doc "Start a terminal. Optional command is passed with -e. The terminal is specified by variable `xterm-program' in Config -> Misc -> External Applications."
     )
-  (define-command 'browser browser #:class 'default
+  (define-command 'browser browser
     #:spec "sUrl:"
     #:type `(and (labelled ,(_ "url:") string))
     #:doc "Start browser. Url is optional. Browser program is specified by variable `browser-program' in Config -> Misc -> External Applications."
diff --git a/lisp/sawfish/wm/commands/poweroff.jl b/lisp/sawfish/wm/commands/poweroff.jl
index e526e57..c8282e9 100644
--- a/lisp/sawfish/wm/commands/poweroff.jl
+++ b/lisp/sawfish/wm/commands/poweroff.jl
@@ -69,4 +69,4 @@
       ((hibernate) (system (format nil "%s &" hibernate-command)))))
 
   ;;###autoload
-  (define-command 'poweroff poweroff #:class 'default))
+  (define-command 'poweroff poweroff))
diff --git a/lisp/sawfish/wm/commands/raise-commands.jl b/lisp/sawfish/wm/commands/raise-commands.jl
index 8b326ae..155d017 100644
--- a/lisp/sawfish/wm/commands/raise-commands.jl
+++ b/lisp/sawfish/wm/commands/raise-commands.jl
@@ -95,8 +95,8 @@ has, then replay any pointer events that invoked the command."
 
   ;;###autoload
   (define-command 'raise-window-and-pass-through-click
-    window-and-pass-through-click #:spec "%w" #:class 'advanced)
+    window-and-pass-through-click #:spec "%w")
   (define-command 'raise-group-and-pass-through-click
-    group-and-pass-through-click #:spec "%w" #:class 'advanced)
+    group-and-pass-through-click #:spec "%w")
   (define-command 'raise-transients-and-pass-through-click
-    transients-and-pass-through-click #:spec "%w" #:class 'advanced))
+    transients-and-pass-through-click #:spec "%w"))
diff --git a/lisp/sawfish/wm/commands/viewport-extras.jl b/lisp/sawfish/wm/commands/viewport-extras.jl
index 9088e1e..6fa48a8 100644
--- a/lisp/sawfish/wm/commands/viewport-extras.jl
+++ b/lisp/sawfish/wm/commands/viewport-extras.jl
@@ -60,10 +60,10 @@
 
   ;;###autoload
   (define-command 'move-viewport-next
-    move-viewport-next #:class 'viewport)
+    move-viewport-next)
   (define-command 'move-viewport-previous
-    move-viewport-previous #:class 'viewport)
+    move-viewport-previous)
   (define-command 'move-window-previous
-    move-window-previous #:spec "%W" #:class 'viewport)
+    move-window-previous #:spec "%W")
   (define-command 'move-window-next
-    move-window-next #:spec "%W" #:class 'viewport))
+    move-window-next #:spec "%W"))
diff --git a/lisp/sawfish/wm/stacking.jl b/lisp/sawfish/wm/stacking.jl
index a8c09c8..cce905c 100644
--- a/lisp/sawfish/wm/stacking.jl
+++ b/lisp/sawfish/wm/stacking.jl
@@ -400,11 +400,11 @@ lowest possible position. Otherwise raise it as far as allowed."
     (set-window-depth w (1+ (window-depth w))))
 
   (define-command 'raise-single-window raise-window
-    #:spec "%W" #:class 'advanced)
+    #:spec "%W")
   (define-command 'lower-single-window lower-window
-    #:spec "%W" #:class 'advanced)
+    #:spec "%W")
   (define-command 'raise-lower-single-window raise-lower-window
-    #:spec "%W" #:class 'advanced)
+    #:spec "%W")
   (define-command 'raise-window-depth raise-window-depth #:spec "%W")
   (define-command 'lower-window-depth lower-window-depth #:spec "%W")
 
diff --git a/lisp/sawfish/wm/state/transient.jl b/lisp/sawfish/wm/state/transient.jl
index e1bb07a..db20dcb 100644
--- a/lisp/sawfish/wm/state/transient.jl
+++ b/lisp/sawfish/wm/state/transient.jl
@@ -135,11 +135,11 @@ the level of any transient windows it has."
     (raise-lower-windows w (transient-group w t)))
 
   (define-command 'raise-window-and-transients
-    raise-window-and-transients #:spec "%W" #:class 'advanced)
+    raise-window-and-transients #:spec "%W")
   (define-command 'lower-window-and-transients
-    lower-window-and-transients #:spec "%W" #:class 'advanced)
+    lower-window-and-transients #:spec "%W")
   (define-command 'raise-lower-window-and-transients
-    raise-lower-window-and-transients #:spec "%W" #:class 'advanced)
+    raise-lower-window-and-transients #:spec "%W")
 
 ;;; displaying
 
diff --git a/lisp/sawfish/wm/viewport.jl b/lisp/sawfish/wm/viewport.jl
index 36f5b9c..f3cb5f9 100644
--- a/lisp/sawfish/wm/viewport.jl
+++ b/lisp/sawfish/wm/viewport.jl
@@ -619,7 +619,7 @@ is selected. The return value is the cons cell (x . y)."
     #:spec "NX:\nNY:"
     #:type `(and (labelled ,(_ "Column:") (number 1))
 		 (labelled ,(_ "Row:") (number 1)))
-    #:class 'default)
+   )
 
   (define (activate-viewport-column x)
     "Select the specified viewport column."
@@ -628,7 +628,7 @@ is selected. The return value is the cons cell (x . y)."
   (define-command 'activate-viewport-column activate-viewport-column
     #:spec "NX:"
     #:type `(and (labelled ,(_ "Column:") (number 1)))
-    #:class 'default)
+   )
 
   (define (activate-viewport-row y)
     "Select the specified viewport row."
@@ -637,7 +637,7 @@ is selected. The return value is the cons cell (x . y)."
   (define-command 'activate-viewport-row activate-viewport-row
     #:spec "NY:"
     #:type `(and (labelled ,(_ "Row:") (number 1)))
-    #:class 'default)
+   )
 
   (define (move-window-to-viewport x y)
     "Move the current window to the specified viewport."
@@ -646,7 +646,7 @@ is selected. The return value is the cons cell (x . y)."
   (define-command 'move-window-to-viewport move-window-to-viewport
     #:spec "NX:\nNY:"
     #:type '(and (labelled "X:" (number 1)) (labelled "Y:" (number 1)))
-    #:class 'default)
+   )
 
   (define (move-viewport-right)
     "Move the viewport one screen to the right."
@@ -698,21 +698,21 @@ viewport."
     (move-window-to-viewport-and-move-viewport w 0 -1))
 
   (define-command 'move-viewport-right move-viewport-right
-    #:class 'default)
+   )
   (define-command 'move-viewport-left move-viewport-left
-    #:class 'default)
+   )
   (define-command 'move-viewport-up move-viewport-up
-    #:class 'default)
+   )
   (define-command 'move-viewport-down move-viewport-down
-    #:class 'default)
+   )
   (define-command 'move-window-right move-window-right #:spec "%W"
-    #:class 'default)
+   )
   (define-command 'move-window-left move-window-left #:spec "%W"
-    #:class 'default)
+   )
   (define-command 'move-window-up move-window-up #:spec "%W"
-    #:class 'default)
+   )
   (define-command 'move-window-down move-window-down #:spec "%W"
-    #:class 'default)
+   )
 
 ;;; session management, config
 
diff --git a/lisp/sawfish/wm/workspace.jl b/lisp/sawfish/wm/workspace.jl
index 9ca82b5..e92aed8 100644
--- a/lisp/sawfish/wm/workspace.jl
+++ b/lisp/sawfish/wm/workspace.jl
@@ -770,9 +770,9 @@ window to it."
 	   w orig-space (1- (car limits)) was-focused)))))
 
   (define-command 'append-workspace-and-send append-workspace-and-send
-    #:spec "%W\nt" #:class 'advanced)
+    #:spec "%W\nt")
   (define-command 'prepend-workspace-and-send prepend-workspace-and-send
-    #:spec "%W\nt" #:class 'advanced)
+    #:spec "%W\nt")
 
   (define (merge-next-workspace)
     "Delete the current workspace. Its member windows are relocated to the next
@@ -785,9 +785,9 @@ previous workspace."
     (remove-workspace (1- current-workspace)))
 
   (define-command 'merge-next-workspace merge-next-workspace
-    #:class 'advanced)
+   )
   (define-command 'merge-previous-workspace merge-previous-workspace
-    #:class 'advanced)
+   )
 
   (define (insert-workspace-after)
     "Create a new workspace following the current workspace."
@@ -800,9 +800,9 @@ previous workspace."
     (select-workspace (- current-workspace 2)))
 
   (define-command 'insert-workspace-after insert-workspace-after
-    #:class 'advanced)
+   )
   (define-command 'insert-workspace-before insert-workspace-before
-    #:class 'advanced)
+   )
 
   (define (move-workspace-forwards #!optional count)
     "Move the current workspace one place to the right."
@@ -813,9 +813,9 @@ previous workspace."
     (move-workspace current-workspace (- (or count 1))))
 
   (define-command 'move-workspace-forwards move-workspace-forwards
-    #:class 'advanced)
+   )
   (define-command 'move-workspace-backwards move-workspace-backwards
-    #:class 'advanced)
+   )
 
   (define (select-workspace-from-first count)
     (select-workspace (workspace-id-from-logical count)))
@@ -856,7 +856,7 @@ previous workspace."
 	(setq first-interesting-workspace last-interesting-workspace))))
 
   (define-command 'delete-empty-workspaces delete-empty-workspaces
-    #:class 'advanced)
+   )
 
   (define (delete-window-instance w)
     "Remove the copy of the window on the current workspace. If this is the
[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]