[elpa] externals/embark d4e4498c87 2/2: Improve formatting of help in direct action mode

[ELPA Syncer]

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)