[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/frog-menu 06d5f17 03/12: Add mode menu entry command fo
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/frog-menu 06d5f17 03/12: Add mode menu entry command for example |
Date: |
Thu, 21 May 2020 11:15:12 -0400 (EDT) |
branch: externals/frog-menu
commit 06d5f175d4dc82c182cd4215985872a37a697677
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Add mode menu entry command for example
---
README.org | 26 ++++++++++++++++----------
1 file changed, 16 insertions(+), 10 deletions(-)
diff --git a/README.org b/README.org
index dc31a0d..42befb4 100644
--- a/README.org
+++ b/README.org
@@ -87,21 +87,13 @@ And here is yet another example I use to navigate the
menubar:
(lambda (item)
(eq (cddr item) 'ignore)) tmm-km-list)))
-(defun frog-tmm ()
- "Adapted from `counsel-tmm'."
- (interactive)
- (run-hooks 'menu-bar-update-hook)
- (setq tmm-table-undef nil)
- (frog-tmm-prompt (tmm-get-keybind [menu-bar])))
-
-
-(defun frog-tmm-prompt (menu)
+(defun frog-tmm-prompt (menu &optional item)
"Adapted from `counsel-tmm-prompt'."
(let (out
choice
chosen-string)
(setq tmm-km-list (tmm-init-km-list+ menu))
- (setq out (frog-menu-read "Menu: " (mapcar #'car tmm-km-list)))
+ (setq out (or item (frog-menu-read "Menu: " (mapcar #'car tmm-km-list))))
(setq choice (cdr (assoc out tmm-km-list)))
(setq chosen-string (car choice))
(setq choice (cdr choice))
@@ -110,4 +102,18 @@ And here is yet another example I use to navigate the
menubar:
((and choice chosen-string)
(setq last-command-event chosen-string)
(call-interactively choice)))))
+
+(defun frog-tmm ()
+ "Adapted from `counsel-tmm'."
+ (interactive)
+ (run-hooks 'menu-bar-update-hook)
+ (setq tmm-table-undef nil)
+ (frog-tmm-prompt (tmm-get-keybind [menu-bar])))
+
+(defun frog-tmm-mode (&optional mode)
+ "Adapted from `counsel-tmm'."
+ (interactive)
+ (run-hooks 'menu-bar-update-hook)
+ (setq tmm-table-undef nil)
+ (frog-tmm-prompt (tmm-get-keybind [menu-bar]) mode-name))
#+end_src
- [elpa] externals/frog-menu updated (927ff01 -> 3d99c10), Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 1bcc95f 01/12: Add menubar example, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 06d5f17 03/12: Add mode menu entry command for example,
Clemens Radermacher <=
- [elpa] externals/frog-menu ec633cd 02/12: Update example, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 9b2fd00 06/12: Require tmm for example, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 4ef6586 09/12: Give frog-menu-posframe-background-face a default background color, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 3d99c10 12/12: Bump version, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 6898f09 04/12: Fix example, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 0430a4f 05/12: Update example, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu ac85040 07/12: Add posframe border option as suggested by #7, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 94c99cf 08/12: Add support for all collection formats of completing-read, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu 94a24ff 10/12: Fix hash collection types, Clemens Radermacher, 2020/05/21
- [elpa] externals/frog-menu d8e9325 11/12: Fix compiler errors, Clemens Radermacher, 2020/05/21