Re: Creating a menu/pop-up?

[Kevin Rodgers]

Mike Ballard wrote:

> Anyone have an idea or two for an elisp neophyte so that I can create a
> pop-up showing my list of text files such that clicking on one of the
> files runs it under steno?

How's this for a start:

(defun mouse-steno-popup (e)
  "Pop up a menu of *.txt files in the ~ directory.  E is a mouse event."
  (interactive "e")
  (let ((steno-menu (steno-popup-menu))) ; keymap
    (call-interactively (lookup-key steno-menu
                                    (vector (x-popup-menu e steno-menu))))))

(global-set-key [S-down-mouse-3] 'mouse-steno-popup)

(defun steno-popup-menu ()
  "Return a menu keymap mapping each ~/*.txt file to \\[steno-command]."
  (let ((menu (make-sparse-keymap "Steno Files"))
        (files (nreverse (directory-files "~" nil "\\.txt\\'"))))
    (while files
      (define-key menu (vector (intern (car files)))
        (cons (car files)
              `(lambda ()
                 ,(format "Run \\[steno-command] on \"%s\"." (car files))
                 (interactive)
                 (steno-command ,(car files)))))
      (setq files (cdr files)))
    menu))

--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>