invoke a keyboard menu map from lisp?

invoke a keyboard menu map from lisp?

[Stephen Leake]

I'm trying to build a keyboard menu keymap on the fly, and then invoke
it. I've gotten this far:

(defun dvc-offer-choices (comment choices)
  "Present user with a choice of actions, labeled by COMMENT. CHOICES is a list of pairs
containing (function description)."
  ;; Build a keyboard menu keymap
  (let ((i 0)
	(map (make-sparse-keymap "actions"))
	choice)
    (unless (< (length choices) 10)
      (error "‘dvc-offer-choices’ only supports up to 10 choices"))

    (while choices
      (setq choice (pop choices))
      (define-key map (int-to-string i)
	(list menu-item
	      (format "%d) %s" i (cadr choice))
	      (car choice))))
    ;; FIXME: invoke the map
    ))

But I can't find the function that executes the keymap.

Can anyone help?

-- 
-- Stephe

Re: invoke a keyboard menu map from lisp?

[Alexis]

Stephen Leake <stephen_leake@stephe-leake.org> writes:

> I'm trying to build a keyboard menu keymap on the fly, and then 
> invoke it. I've gotten this far:
>
> (defun dvc-offer-choices (comment choices) 
>   "Present user with a choice of actions, labeled by 
>   COMMENT. CHOICES is a list of pairs 
> containing (function description)." 
>   ;; Build a keyboard menu keymap (let ((i 0) 
> 	(map (make-sparse-keymap "actions")) choice) 
>     (unless (< (length choices) 10) 
>       (error "‘dvc-offer-choices’ only supports up to 10 
>       choices"))
>
>     (while choices 
>       (setq choice (pop choices)) (define-key map (int-to-string 
>       i) 
> 	(list menu-item (format "%d) %s" i (cadr choice)) (car 
> choice)))) 
>     ;; FIXME: invoke the map ))
>
> But I can't find the function that executes the keymap.

Is setting the value of `overriding-local-map` perhaps what you 
want?


Alexis.

Re: invoke a keyboard menu map from lisp?

[Stephen Leake]

Stephen Leake <stephen_leake@stephe-leake.org> writes:

> I'm trying to build a keyboard menu keymap on the fly, and then invoke
> it. I've gotten this far:
>
> (defun dvc-offer-choices (comment choices)
>   "Present user with a choice of actions, labeled by COMMENT. CHOICES is a list of pairs
> containing (function description)."
>   ;; Build a keyboard menu keymap
>   (let ((i 0)
> 	(map (make-sparse-keymap "actions"))
> 	choice)
>     (unless (< (length choices) 10)
>       (error "‘dvc-offer-choices’ only supports up to 10 choices"))
>
>     (while choices
>       (setq choice (pop choices))
>       (define-key map (int-to-string i)
> 	(list menu-item
> 	      (format "%d) %s" i (cadr choice))
> 	      (car choice))))
>     ;; FIXME: invoke the map
>     ))
>
> But I can't find the function that executes the keymap.
>
> Can anyone help?

I can do (popup-menu map), but that pops up a GUI window; I'd rather
have the plain keyboard menu.

-- 
-- Stephe

Re: invoke a keyboard menu map from lisp?

[Eli Zaretskii]

> From: Stephen Leake <stephen_leake@stephe-leake.org>
> Date: Wed, 26 Aug 2015 21:30:48 -0500
> 
> I can do (popup-menu map), but that pops up a GUI window; I'd rather
> have the plain keyboard menu.

What is "plain keyboard menu"?

Re: invoke a keyboard menu map from lisp?

[Stephen Leake]

Eli Zaretskii <eliz@gnu.org> writes:

>> From: Stephen Leake <stephen_leake@stephe-leake.org>
>> Date: Wed, 26 Aug 2015 21:30:48 -0500
>> 
>> I can do (popup-menu map), but that pops up a GUI window; I'd rather
>> have the plain keyboard menu.
>
> What is "plain keyboard menu"?

As described in (info "(elisp) Menu Keymaps"); what you get by invoking
a key sequence that is bound to a menu keymap.

-- 
-- Stephe

Re: invoke a keyboard menu map from lisp?

[Stephen Leake]

Alexis <flexibeast@gmail.com> writes:

> Stephen Leake <stephen_leake@stephe-leake.org> writes:
>
>> I'm trying to build a keyboard menu keymap on the fly, and then
>> invoke it. I've gotten this far:
>>
>> (defun dvc-offer-choices (comment choices)   "Present user with a
>> choice of actions, labeled by   COMMENT. CHOICES is a list of pairs
>> containing (function description)."   ;; Build a keyboard menu
>> keymap (let ((i 0) 	(map (make-sparse-keymap "actions")) choice)
>> (unless (< (length choices) 10)       (error "‘dvc-offer-choices’
>> only supports up to 10       choices"))
>>
>>     (while choices       (setq choice (pop choices)) (define-key map
>> (int-to-string       i) 	(list menu-item (format "%d) %s" i
>> (cadr choice)) (car choice))))     ;; FIXME: invoke the map ))
>>
>> But I can't find the function that executes the keymap.
>
> Is setting the value of `overriding-local-map` perhaps what you want?

(now set-transient-map)

Close. This emulates a menu keymap:

(defun dvc-offer-choices (comment choices)
  "Execute a keyboard menu built from COMMENT, CHOICES. CHOICES is a list
of pairs (function description)."
  ;; I can't find the code that executes a real keyboard menu; this is
  ;; close.  (popup-menu map) works, but is not a keyboard menu
  (let ((i 0)
	(msg (if comment comment ""))
  	(map (make-sparse-keymap))
  	choice)
    (unless (< (length choices) 10)
      (error "‘dvc-offer-choices’ only supports up to 10 choices"))

    (while choices
      (setq choice (pop choices))
      (setq msg (concat msg (format "%d) %s " i (cadr choice))))
      (define-key map (int-to-string i) (car choice))
      (setq i (1+ i)))

    (message msg)
    (set-transient-map map)
    ))

Good enough for my use cases, which all have only a few choices.

-- 
-- Stephe

Re: invoke a keyboard menu map from lisp?

[Stefan Reichör]

Hello Stephen,

> I'm trying to build a keyboard menu keymap on the fly, and then invoke
> it. I've gotten this far:
>
> (defun dvc-offer-choices (comment choices)
>   "Present user with a choice of actions, labeled by COMMENT. CHOICES is a list of pairs
> containing (function description)."
>   ;; Build a keyboard menu keymap
>   (let ((i 0)
> 	(map (make-sparse-keymap "actions"))
> 	choice)
>     (unless (< (length choices) 10)
>       (error "‘dvc-offer-choices’ only supports up to 10 choices"))
>
>     (while choices
>       (setq choice (pop choices))
>       (define-key map (int-to-string i)
> 	(list menu-item
> 	      (format "%d) %s" i (cadr choice))
> 	      (car choice))))
>     ;; FIXME: invoke the map
>     ))
>
> But I can't find the function that executes the keymap.
>
> Can anyone help?

It sounds similar to my quick-task.el library:

http://xsteve.at/prg/emacs/quick-task.el

Using it you can define actions that are shown in a menu like this:

;; (quick-task-define-menu my-quick-task-menu
;;   '(("Build"
;;      ["software" my-quick-task-build1]
;;      ["1: scons proj1" my-quick-task-scons-proj1]
;;      )
;;     ("other"
;;      ["fun" my-quick-task-fun]
;;      )
;;     ["ediff proj1" my-quick-task-ediff-proj1]
;;     ["9: another fun" my-quick-task-fun]
;;     [view "*s:*/dev/ttyS0"] ;; switch to an already open serial terminal buffer
;;     ("find-file"
;;      [open "*e:*~/.emacs"]
;;      [open "*q:*.quick-task.el*/home/stefan/site-lisp/xsteve/.quick-task.el"]
;;      )
;;     ))

Internally I use tmm-prompt to display the candidates.

Maybe this is useful for you.

Stefan.

Re: invoke a keyboard menu map from lisp?

[Stefan Monnier]

>     ;; FIXME: invoke the map
> But I can't find the function that executes the keymap.

I guess you'd need to (temporarily) set your map as one of (or the
only/main) active keymaps (e.g. using overriding-local-map), and then
call ‘read-key-sequence’, tho I'm not sure if the "menu keymap" feature
works for the "root" keymap.  This feature is used *extremely* rarely,
it's mostly unknown, ...


        Stefan