Re: Poll on infinite-desktop, viewport and workspace?

> 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?


> 2. viewport?


> 3. infinite-desktop?


> 4. pager? which?


> 5. edgeflip?


> 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"
   (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"
  (popup-menu-of emacs-p))

(defun menu-of-xterm ()
  "make a popup menu of xterm windows"
  (popup-menu-of xterm-p))

Best regards

[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]