[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/frog-menu dcca698 33/43: Allow passing no actions
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/frog-menu dcca698 33/43: Allow passing no actions |
Date: |
Sun, 24 Mar 2019 05:14:48 -0400 (EDT) |
branch: externals/frog-menu
commit dcca69811d67281d23817fba51a495a870162735
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Allow passing no actions
---
frog-menu.el | 45 +++++++++++++++++++++++----------------------
1 file changed, 23 insertions(+), 22 deletions(-)
diff --git a/frog-menu.el b/frog-menu.el
index 4bce299..2fdc4f8 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -280,7 +280,8 @@ ACTIONS."
(point))
'(face frog-menu-prompt-face))
(insert "\n")
- (insert formatted-actions)
+ (when formatted-actions
+ (insert formatted-actions))
(when formatted-strings
;; padding for avy char
(goto-char (point-min))
@@ -302,27 +303,27 @@ ACTIONS."
(funcall frog-menu-grid-width-function)))
(defun frog-menu-action-format (actions)
- (with-temp-buffer
- (let ((header-pos (point)))
- (dolist (action actions)
- (add-text-properties
- (point)
- (progn
- (insert (car action)
- "_"
- (replace-regexp-in-string " " "_"
- (cadr action))
- " ")
- (point))
- '(face frog-menu-actions-face)))
- (insert "\n")
- (let ((fill-column (1+ (funcall frog-menu-grid-width-function))))
- (fill-region header-pos (point))
- (align-regexp header-pos (point) "\\(\\s-*\\) " 1 1 nil)
- (while (re-search-backward "_" header-pos t)
- (replace-match " "))))
- (goto-char (point-min))
- (buffer-string)))
+ (when actions
+ (with-temp-buffer
+ (let ((header-pos (point)))
+ (dolist (action actions)
+ (add-text-properties
+ (point)
+ (progn
+ (insert (car action)
+ "_"
+ (replace-regexp-in-string " " "_"
+ (cadr action))
+ " ")
+ (point))
+ '(face frog-menu-actions-face)))
+ (insert "\n")
+ (let ((fill-column (1+ (funcall frog-menu-grid-width-function))))
+ (fill-region header-pos (point))
+ (align-regexp header-pos (point) "\\(\\s-*\\) " 1 1 nil)
+ (while (re-search-backward "_" header-pos t)
+ (replace-match " "))))
+ (buffer-string))))
(defun frog-menu--grid-format (strings cols &optional width)
"Return grid string built with STRINGS.
- [elpa] externals/frog-menu 864ff1b 14/43: Improve docstring, (continued)
- [elpa] externals/frog-menu 864ff1b 14/43: Improve docstring, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 8e81080 17/43: Fix first init error for posframe, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 5846f71 16/43: Allow single candidate jump if no actions, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 9ea2c24 23/43: Change default grid format function to adjust width based on type, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu ebb5f3c 01/43: Initial commit, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 77155d9 28/43: Update docstring, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 72aa25b 22/43: Fix docstring, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu c91a373 26/43: Adjust grid width default for avy-side-window, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 8f58de5 24/43: Update description for new frog-menu-type avy-side-window, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 5c7d9f4 31/43: Remove scrollbar from screenshot, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu dcca698 33/43: Allow passing no actions,
Clemens Radermacher <=
- [elpa] externals/frog-menu 0d8141a 18/43: Restrucure data flow, refactoring, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 625165e 40/43: Add autoload cookie for frog-menu-read, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 6596627 20/43: Add prompt face, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 0d4d9f2 25/43: Update description for new frog-menu-type avy-side-window, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 6bf85da 32/43: Rephrase description, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 0ba3279 36/43: add face for posframe menu action keybindings, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu f45005d 42/43: Merge branch 'master' of github.com:clemera/frog-menu, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu 9c382dc 08/43: Improve description, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu fbe8f88 10/43: Fix adding padding for avy char, Clemens Radermacher, 2019/03/24
- [elpa] externals/frog-menu b73b59a 11/43: Mention avy-menu, Clemens Radermacher, 2019/03/24