Function: quickurl-list-insert

quickurl-list-insert is a byte-compiled function defined in quickurl.el.gz.

Signature

(quickurl-list-insert TYPE)

Documentation

Insert the URL under cursor into quickurl-list-last-buffer.

TYPE dictates what will be inserted, options are:
  url - Insert the URL as <URL:url>
  naked-url - Insert the URL with no formatting
  with-lookup - Insert "lookup <URL:url>"
  with-desc - Insert "description <URL:url>"
  lookup - Insert the lookup for that URL

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/quickurl.el.gz
(defun quickurl-list-insert (type)
  "Insert the URL under cursor into `quickurl-list-last-buffer'.
TYPE dictates what will be inserted, options are:
  `url'         - Insert the URL as <URL:url>
  `naked-url'   - Insert the URL with no formatting
  `with-lookup' - Insert \"lookup <URL:url>\"
  `with-desc'   - Insert \"description <URL:url>\"
  `lookup'      - Insert the lookup for that URL"
  (let ((url (nth (count-lines (point-min) (line-beginning-position))
                  quickurl-urls)))
    (if url
        (with-current-buffer quickurl-list-last-buffer
          (insert
           (pcase type
             ('url         (funcall quickurl-format-function url))
             ('naked-url   (quickurl-url-url url))
             ('with-lookup (format "%s <URL:%s>"
                                   (quickurl-url-keyword url)
                                   (quickurl-url-url url)))
             ('with-desc   (format "%S <URL:%s>"
                                   (quickurl-url-description url)
                                   (quickurl-url-url url)))
             ('lookup      (quickurl-url-keyword url)))))
      (error "No URL details on that line"))
    url))