From e5b0de3c4c2520e66c86d39267b8c2195ffe6ece Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 10 Nov 2022 18:28:00 +1100 Subject: adding capacity to display buffer for external handlers --- hmm.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/hmm.el b/hmm.el index d53c045..e5e40b0 100644 --- a/hmm.el +++ b/hmm.el @@ -40,7 +40,9 @@ (defvar hmm-handlers '(:query ((:command locate) - (:command project-or-external-find-regexp)) + (:command project-or-external-find-regexp) + (:command woman) + (:command man)) :url ((:schemes ("mailto") :command browse-url-mail)) :file @@ -130,7 +132,10 @@ (append (list (format ,(format "%s-%%s" function-name) arg) (format ,(format "*%s-%%s*" function-name) arg)) - ,(cons 'list external-command)))) + ,(cons 'list external-command))) + ,(when (plist-get handler :display-buffer) + `(display-buffer + (format ,(format "*%s-%%s*" function-name) arg)))) (hmm-add-handler ',handler ,type)))) (defun hmm-add-handler (handler handling) -- cgit v1.2.3