[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/embark d4e4498c87 2/2: Improve formatting of help in di
From: |
ELPA Syncer |
Subject: |
[elpa] externals/embark d4e4498c87 2/2: Improve formatting of help in direct action mode |
Date: |
Mon, 2 May 2022 22:57:28 -0400 (EDT) |
branch: externals/embark
commit d4e4498c871f7edf32b59a731c582a74059157c5
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>
Improve formatting of help in direct action mode
---
embark.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/embark.el b/embark.el
index 90576fa3d0..1f1cbc24d4 100644
--- a/embark.el
+++ b/embark.el
@@ -1164,7 +1164,11 @@ first line of the documentation string; otherwise use
the word
((keymapp cmd)
(propertize (if (symbolp cmd) (format "+%s" cmd) "<keymap>")
'face 'embark-keymap))
- ((symbolp cmd) (symbol-name cmd))
+ ((symbolp cmd)
+ (let ((name (symbol-name cmd)))
+ (if (string-prefix-p "embark-action--" name) ; direct action mode
+ (format "(%s)" (string-remove-prefix "embark-action--" name))
+ name)))
((when-let (doc (and (functionp cmd) (ignore-errors (documentation cmd))))
(save-match-data
(when (string-match "^\\(.*\\)$" doc)