|Scripts quick access edit this|
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.
Put the file in your lisp directory and:
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
(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