From: Tim X <timx@nospam.dev.null>
To: help-gnu-emacs@gnu.org
Subject: Re: customizing emacs windows
Date: Sat, 26 May 2007 23:50:43 +1000 [thread overview]
Message-ID: <87ps4n4rt8.fsf@lion.rapttech.com.au> (raw)
In-Reply-To: 7dzm3r7ur8.fsf@www.gratismegler.no
Petter Gustad <newsmail6@gustad.com> writes:
> Tim X <timx@nospam.dev.null> writes:
>
>
>> so rarely that its not really been necessary. I usually have about
>> 15 different workspaces and different emacs frames on most of
>> them. I then just switch between workspaces using two function keys
>> or by moving the mouse to the left or right edge of the screen.
>
> I prefer to select Emacs frames using a popup menu. I've made a
> function in sawfish which pops up a menu of all Emacs frames:
>
> (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))
>
>
> Then in the global keymap I bind menu-of-emacs to e.g. to H-1 so when I
> press the Windows key and 1 I get a popup menu of all Emacs frames.
>
> Petter
>
> --
> ________________________________________________________________________
> Petter Gustad 8'h2B | ~8'h2B http://www.gustad.com/petter
Exactly why I love sawfish as a wm! The combination of sawfish and emacs is
truely friendly.
Thanks for the code snippets.
Tim
--
tcross (at) rapttech dot com dot au
next prev parent reply other threads:[~2007-05-26 13:50 UTC|newest]
Thread overview: 25+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-05-23 17:04 customizing emacs windows Ivan
2007-05-23 22:24 ` Lennart Borgman (gmail)
2007-05-24 7:32 ` Eli Zaretskii
2007-05-24 10:06 ` Lennart Borgman (gmail)
2007-05-24 10:49 ` Eli Zaretskii
2007-05-24 11:22 ` Lennart Borgman (gmail)
2007-05-24 13:21 ` Eli Zaretskii
2007-05-24 13:55 ` Lennart Borgman (gmail)
2007-05-24 14:21 ` Eli Zaretskii
2007-05-24 19:29 ` Lennart Borgman (gmail)
[not found] ` <mailman.1130.1179991947.32220.help-gnu-emacs@gnu.org>
2007-05-24 9:41 ` Ivan
2007-05-24 10:00 ` Jason Rumney
2007-05-24 11:06 ` Lennart Borgman (gmail)
2007-05-25 5:13 ` Tim X
2007-05-25 10:09 ` Ivan
2007-05-25 11:02 ` Ivan
2007-05-26 3:29 ` Tim X
2007-05-26 9:02 ` Ivan
2007-05-26 9:45 ` Leo
2007-05-26 10:12 ` Peter Dyballa
[not found] ` <mailman.1273.1180174364.32220.help-gnu-emacs@gnu.org>
2007-05-26 11:34 ` Ivan
[not found] ` <mailman.1268.1180172850.32220.help-gnu-emacs@gnu.org>
2007-05-26 11:35 ` Ivan
2007-05-26 10:18 ` Petter Gustad
2007-05-26 13:50 ` Tim X [this message]
2007-05-24 0:28 ` Lennart Borgman (gmail)
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ps4n4rt8.fsf@lion.rapttech.com.au \
--to=timx@nospam.dev.null \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.