here is a patch for edge-flip.jl, which gets rid of the compilation warnings that were previously associated with it:
--- sawfish/wm/ext/edge-flip.jl:138: In function `edge-flip-for-edge': sawfish/wm/ext/edge-flip.jl:138: warning: too many arguments to `workspace-up' (1 given, 0 used) sawfish/wm/ext/edge-flip.jl:141: warning: too many arguments to `workspace-down' (1 given, 0 used) --- These functions were called as (workspace-up 1) and (workspace-down 1), however, in wm.ext.workspace-grid.jl, those two functions are defined without parameters, and call a different function which sets the 1 value which is called for. edge-flipping up and down still work fine, so all should be good :) Cheers, -- Matthew Love
diff --git a/lisp/sawfish/wm/ext/edge-flip.jl b/lisp/sawfish/wm/ext/edge-flip.jl index a1768d2..cc07d4e 100644 --- a/lisp/sawfish/wm/ext/edge-flip.jl +++ b/lisp/sawfish/wm/ext/edge-flip.jl @@ -135,10 +135,10 @@ (workspace-right) (rplaca ptr 1)) ((eq edge 'top) - (workspace-up 1) + (workspace-up) (rplacd ptr (- (screen-height) 2))) ((eq edge 'bottom) - (workspace-down 1) + (workspace-down) (rplacd ptr 1))) (unless (= current-workspace orig) (warp-cursor (car ptr) (cdr ptr)))))
