branch: externals/frog-menu commit ec633cd67e794b931030426689e43521ec5011d8 Author: Clemens Radermacher <clem...@posteo.net> Commit: Clemens Radermacher <clem...@posteo.net>
Update example --- README.org | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/README.org b/README.org index a406b13..dc31a0d 100644 --- a/README.org +++ b/README.org @@ -77,22 +77,30 @@ Afterwards calling =M-x flyspell-correct-wrapper= will prompt you with a And here is yet another example I use to navigate the menubar: #+begin_src elisp +(defun tmm-init-km-list+ (menu) + (setq tmm-km-list nil) + (map-keymap (lambda (k v) (tmm-get-keymap (cons k v))) menu) + (setq tmm-km-list (nreverse tmm-km-list)) + ;; filter unenabled items + (setq tmm-km-list + (cl-remove-if + (lambda (item) + (eq (cddr item) 'ignore)) tmm-km-list))) + (defun frog-tmm () "Adapted from `counsel-tmm'." (interactive) - (require 'tmm) (run-hooks 'menu-bar-update-hook) (setq tmm-table-undef nil) (frog-tmm-prompt (tmm-get-keybind [menu-bar]))) + (defun frog-tmm-prompt (menu) "Adapted from `counsel-tmm-prompt'." (let (out choice chosen-string) - (setq tmm-km-list nil) - (map-keymap (lambda (k v) (tmm-get-keymap (cons k v))) menu) - (setq tmm-km-list (nreverse tmm-km-list)) + (setq tmm-km-list (tmm-init-km-list+ menu)) (setq out (frog-menu-read "Menu: " (mapcar #'car tmm-km-list))) (setq choice (cdr (assoc out tmm-km-list))) (setq chosen-string (car choice))