Scripts quick access edit this

Scripts Emacs Eye-candy scripts Focus management scripts Miscellaneous scripts Obsolete or non-working scripts Selection scripts Window placement management scripts Workspace management scripts 3d-hack

• Author: Jeremy Hankins <nowan at nowan dot org>
• License: GPL v2
• Download: Prext.jl (upload)

Synopsis

Prompt extensions.

Description

The main thing this provides is prext-menu which can be used to access a menu via the prompt system -- for folks who can't stand using the mouse but occasionally find menus useful. There's also prext-cmd which will run a shell command and display its output.

NOTE: Prext is not compatible with the latest sawfish from the git repository, or with future releases. For that you want Prompt-menu.

Installation

Put the file in your lisp directory and:

(require 'prext)

Configuration

Use this however you'd like. You could bind the root menu to a key:

(bind-keys global-keymap "H-r" '(prext-menu root-menu "Menu: "))

I have something similar to this in my .sawfishrc:

(defun ssh (user host #!optional title)
  (system (concat
	   "xterm "
	   (and title (concat "-title '" title"' "))
	   "-e ssh " user "@" host " &")))

(defvar ssh-menu
  '(("host1" (ssh "username" "host1.example.org" "Host #1"))
    ("host2" (ssh "username" "host2.example.org" "Host #2"))))

(define-command 'ssh (lambda () (prext-menu ssh-menu "ssh: ")))

(bind-keys global-keymap "H-s" 'ssh)

Then when I hit hyper-s I'm given an "ssh: " prompt which I can use to open up an ssh to a system in ssh-menu.