[elpa] externals/frog-menu ec633cd 02/12: Update example

[Clemens Radermacher]

branch: externals/frog-menu
commit ec633cd67e794b931030426689e43521ec5011d8
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    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))