[elpa] externals/hyperbole e9015341c0 08/19: hypb.el: Support devdocs-lookup package

[ELPA Syncer]

branch: externals/hyperbole
commit e9015341c0ec57df818ea193751892b06bc0ebca
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    hypb.el: Support devdocs-lookup package
    
    hypb.el (hypb:require-package): Add to install a package, if necessary,
       and require its library with the same name.
            (hypb:helm-info): Add to require helm package and call helm-info.
---
 ChangeLog | 10 ++++++++++
 hypb.el   | 40 +++++++++++++++++++++++++++++++++++++++-
 2 files changed, 49 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 5bca1146b9..b68deaa062 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -89,6 +89,16 @@
   MANIFEST: Added above file.
 
 2022-07-06  Bob Weiner  <rsw@gnu.org>
+
+* hypb.el (hypb:require-package): Add to install a package, if necessary,
+    and require its library with the same name.
+          (hypb:helm-info): Add to require helm package and call helm-info.
+
+2022-07-04  Bob Weiner  <rsw@gnu.org>
+
+* hypb.el (hypb:devdocs-lookup): Install and load devdocs package and then
+    call its 'devdocs-lookup' function.
+
 2022-07-02  Bob Weiner  <rsw@gnu.org>
 
 * hyrolo.el (hyrolo-org, hyrolo-helm-org-rifle, hyrolo-org-roam): Add HyRolo-
diff --git a/hypb.el b/hypb.el
index 355bd787c1..c8f485a134 100644
--- a/hypb.el
+++ b/hypb.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:     6-Oct-91 at 03:42:38
-;; Last-Mod:     17-Jul-22 at 10:17:21 by Mats Lidell
+;; Last-Mod:     17-Jul-22 at 11:38:43 by Bob Weiner
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -272,6 +272,14 @@ If no matching installation type is found, return a list 
of (\"unknown\" hyperb:
     (goto-char (point-min))
     (forward-line 1)))
 
+;;;###autoload
+(defun hypb:devdocs-lookup ()
+  "Prompt for and display a devdocs.io docset section within Emacs.
+will this install the Emacs devdocs package when needed."
+  (interactive)
+  (hypb:require-package 'devdocs)
+  (devdocs-lookup))
+
 (defun hypb:domain-name ()
   "Return current Internet domain name with '@' prepended or nil if none."
   (let* ((dname-cmd (or (file-exists-p "/usr/bin/domainname")
@@ -415,6 +423,24 @@ With optional SUFFIX string, uses it rather than buffer 
name."
        (buffer-name (generate-new-buffer bn))
       (concat hypb:help-buf-prefix bn "*"))))
 
+;;;###autoload
+(defun hypb:helm-apropos (&optional symbol-name)
+  "Prompt for and display the doc for a command, function, variable or face.
+With optional SYMBOL-NAME non-nil, display the doc for that.
+This will this install the Emacs helm package when needed."
+  (interactive "P")
+  (hypb:require-package 'helm)
+  (helm-apropos symbol-name))
+
+;;;###autoload
+(defun hypb:helm-info (&optional refresh)
+  "Prompt across all Info manuals and display the node selected.
+With optional prefix arg REFRESH non-nil, refresh the cache of Info manuals.
+This will this install the Emacs helm package when needed."
+  (interactive "P")
+  (hypb:require-package 'helm)
+  (helm-info refresh))
+
 (defun hypb:hkey-help-file ()
   "Return the full path to the Hyperbole mouse key help file."
   (cond ((and (fboundp 'locate-data-file)
@@ -574,6 +600,18 @@ that returns a replacement string."
             new))
     (replace-regexp-in-string regexp new str fixedcase literal)))
 
+;;;###autoload
+(defun hypb:require-package (package-name)
+  "Install, if necessary, and require the Emacs PACKAGE-NAME.
+PACKAGE-NAME may be a symbol or a string."
+  (when (stringp package-name)
+    (setq package-name (intern package-name)))
+  (unless (symbolp package-name)
+    (error "(hypb:require-package): package-name must be a symbol or string, 
not '%s'" package-name))
+  (unless (package-installed-p package-name)
+    (package-install package-name))
+  (require package-name))
+
 (defun hypb:return-process-output (program &optional infile &rest args)
   "Return as a string the output from external PROGRAM with INFILE for input.
 Rest of ARGS are passed as arguments to PROGRAM.