adding capacity to display buffer for external handlers

1 files 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)