Lines Matching defs:read
316 (state (webjump-read-choice name "state"
321 (webjump-read-choice name "option"
340 (if (and (setq volume (webjump-read-number (concat name " volume")))
341 (setq issue (webjump-read-number (concat name " issue"))))
359 (completing-read "WebJump to site: " webjump-sites nil t)
401 (webjump-read-url-choice (concat name " mirror")
406 (let ((query (webjump-read-string (concat name " query"))))
417 (defun webjump-read-choice (name what choices &optional default)
419 (choice (completing-read (concat name " " what ": ") choices nil t)))
424 (defun webjump-read-number (prompt)
426 (let ((input (webjump-read-string prompt)))
429 (defun webjump-read-string (prompt)
430 (let ((input (read-string (concat prompt ": "))))
433 (defun webjump-read-url-choice (what urls &optional default)
434 ;; Note: Convert this to use `webjump-read-choice' someday.
437 (input (completing-read (concat what