From 2fddc400e4ae1deae5e3520b9dfc15ca414d1f72 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 10 Nov 2022 19:52:22 +1100 Subject: fixing default display name --- hmm.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/hmm.el b/hmm.el index e5e40b0..72951d7 100644 --- a/hmm.el +++ b/hmm.el @@ -104,12 +104,13 @@ (hmm-add-handler '(:command ,function-name) :query)))) (defmacro hmm-define-external-handler (handler type) - (let* ((description (format "%s - %s" - (plist-get handler :display-name) + (let* ((name (plist-get handler :name)) + (display-name (or (plist-get handler :display-name) + (format "%s" name))) + (description (format "%s - %s" + display-name (plist-get handler :description))) - (function-name (intern (format "hmm-external-%s" - (plist-get handler :name)))) - (display-name (plist-get handler :display-name)) + (function-name (intern (format "hmm-external-%s" name))) (external-command (mapcar (lambda (token) (if (string-match "^%[fFuU]$" token) -- cgit v1.2.3