Lines Matching refs:lookup
42 ;; where <Lookup> is a string that acts as the keyword lookup and <URL> is
129 (defcustom quickurl-grab-lookup-function #'current-word
130 "*Function to grab the thing to lookup."
135 "*Function to use for alist lookup into `quickurl-urls'."
140 "*Should `quickurl-ask' ignore case when doing the input lookup?"
287 (defun quickurl-find-url (lookup)
290 The lookup is done by looking in the alist `quickurl-urls' and the `cons'
293 (funcall quickurl-assoc-function lookup quickurl-urls))
304 (defun* quickurl (&optional lookup)
309 `quickurl-grab-lookup-function'."
311 (when (or lookup
312 (setq lookup (funcall quickurl-grab-lookup-function)))
314 (let ((url (quickurl-find-url lookup)))
316 (error "No URL associated with \"%s\"" lookup)
323 (defun quickurl-ask (lookup)
331 (let ((url (quickurl-find-url lookup)))
339 that is returned from calling `quickurl-grab-lookup-function' once a
354 (let ((word (funcall quickurl-grab-lookup-function)))
377 (error "You must specify a WORD for lookup")
399 (defun quickurl-browse-url (&optional lookup)
404 `quickurl-grab-lookup-function'."
406 (when (or lookup
407 (setq lookup (funcall quickurl-grab-lookup-function)))
409 (let ((url (quickurl-find-url lookup)))
412 (error "No URL associated with \"%s\"" lookup)))))
415 (defun quickurl-browse-url-ask (lookup)
421 (let ((url (quickurl-find-url lookup)))
439 (define-key map " " #'quickurl-list-insert-with-lookup)
440 (define-key map "l" #'quickurl-list-insert-lookup)
518 `with-lookup' - Insert \"lookup <URL:url>\"
520 `lookup' - Insert the lookup for that URL"
531 ('with-lookup (format "%s <URL:%s>"
537 ('lookup (quickurl-url-keyword url)))))
551 (quickurl-list-make-inserter with-lookup)
553 (quickurl-list-make-inserter lookup)