Function: hyperbole-read-web-search-arguments

hyperbole-read-web-search-arguments is a byte-compiled function defined in hsettings.el.

Signature

(hyperbole-read-web-search-arguments &optional SERVICE-NAME SEARCH-TERM)

Documentation

Read from the keyboard a list of (web-search-service-string search-term-string).

With optional non-empty SERVICE-NAME and SEARCH-TERM arguments, use those instead of reading from the keyboard.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hsettings.el
(defun hyperbole-read-web-search-arguments (&optional service-name search-term)
  "Read from the keyboard a list of (web-search-service-string search-term-string).
With optional non-empty SERVICE-NAME and SEARCH-TERM arguments,
use those instead of reading from the keyboard."
  (let ((completion-ignore-case t)
	cmd-or-url)
    (while (or (not (stringp service-name)) (equal service-name ""))
      (setq service-name (completing-read "Search service: " hyperbole-web-search-alist
					  nil t)))
    (setq cmd-or-url (cdr (assoc service-name hyperbole-web-search-alist)))
    (unless (functionp cmd-or-url)
      (while (or (not (stringp search-term)) (equal search-term ""))
	(setq search-term (read-string (format "Search %s for: " service-name)
				       (hyperbole-default-web-search-term)))))
    (list service-name search-term)))