Re: Poll on infinite-desktop, viewport and workspace?
- From: Petter Gustad <sawfish gustad com>
- To: sawfish-list gnome org
- Subject: Re: Poll on infinite-desktop, viewport and workspace?
- Date: Thu, 23 Jul 2009 14:47:30 +0200 (CEST)
> Hi, all. Let me do a poll, because rework is expected, and to make
> sure how should it be done.
>
> Do you use:
> 1. workspace?
No
> 2. viewport?
No
> 3. infinite-desktop?
No
> 4. pager? which?
No
> 5. edgeflip?
No
> 6. Could you describe more on how you use them?
I simply use pop-up menus of emacs and xterms like this:
(bind-keys global-keymap
"H-1" 'menu-of-emacs
"H-2" 'menu-of-xterm
"H-3" 'popup-window-list
"H-q" 'iconify-window)
I've written menu-of.jl to find windows which have a given wm-class:
(provide 'menu-of)
(require 'sawfish.wm.menus)
(defun wm-class-is (w class)
(equal (aref (get-x-text-property w 'WM_CLASS) 1) class))
(defun emacs-p (w)
(wm-class-is w "Emacs"))
(defun xterm-p (w)
(wm-class-is w "XTerm"))
(defun popup-menu-of (pred)
"make popup windows of a certain type"
(popup-menu
(mapcar #'(lambda (w)
(list (window-name w)
(lambda ()
(uniconify-window w)
(x-raise-window w)
(set-input-focus w))))
(filter pred (managed-windows)))))
(defun menu-of-emacs ()
"make a popup menu of emacs windows"
(interactive)
(popup-menu-of emacs-p))
(defun menu-of-xterm ()
"make a popup menu of xterm windows"
(interactive)
(popup-menu-of xterm-p))
Best regards
Petter
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]