Lines Matching refs:url
71 ;; `quickurl' is stored in `quickurl-url-file'.
79 ;; o The quickurl-browse-url* functions pretty much duplicate their non
91 (require 'browse-url)
109 (defcustom quickurl-url-file (convert-standard-filename "~/.quickurls")
114 (defcustom quickurl-format-function (lambda (url) (format "<URL:%s>" (quickurl-url-url url)))
123 (downcase (quickurl-url-description x))
124 (downcase (quickurl-url-description y))))))
145 "*Text to write to `quickurl-url-file' before writing the URL list."
150 "*Text to write to `quickurl-url-file' after writing the URL list.
172 `quickurl-url-file' so that if you edit it by hand it will ensure that
197 (defun quickurl-url-commented-p (url)
199 (listp (cdr url)))
201 (defun quickurl-make-url (keyword url &optional comment)
204 (list keyword url comment)
205 (cons keyword url)))
207 (defun quickurl-url-keyword (url)
211 (car url))
213 (defsetf quickurl-url-keyword (url) (store)
214 `(setf (car ,url) ,store))
216 (defun quickurl-url-url (url)
220 (if (quickurl-url-commented-p url)
221 (cadr url)
222 (cdr url)))
224 (defsetf quickurl-url-url (url) (store)
226 (if (quickurl-url-commented-p ,url)
227 (setf (cadr ,url) ,store)
228 (setf (cdr ,url) ,store)))
230 (defun quickurl-url-comment (url)
235 (if (quickurl-url-commented-p url)
236 (nth 2 url)
239 (defsetf quickurl-url-comment (url) (store)
241 (if (quickurl-url-commented-p ,url)
243 (setf (cdr ,url) (cadr ,url))
244 (setf (nth 2 ,url) ,store))
246 (setf (cdr ,url) (list (cdr ,url) ,store)))))
248 (defun quickurl-url-description (url)
253 (let ((desc (quickurl-url-comment url)))
255 (quickurl-url-keyword url)
272 "Load the contents of `quickurl-url-file' into `quickurl-urls'."
273 (when (file-exists-p quickurl-url-file)
275 (insert-file-contents quickurl-url-file)
279 "Save the contents of `quickurl-urls' to `quickurl-url-file'."
285 (write-region (point-min) (point-max) quickurl-url-file nil 0))))
287 (defun quickurl-find-url (lookup)
295 (defun quickurl-insert (url &optional silent)
299 (insert (funcall quickurl-format-function url))
301 (message "Found %s" (quickurl-url-url url))))
314 (let ((url (quickurl-find-url lookup)))
315 (if (null url)
320 (quickurl-insert url)))))
331 (let ((url (quickurl-find-url lookup)))
332 (when url
333 (quickurl-insert url))))
335 (defun quickurl-grab-url ()
336 "Attempt to grab a word/url pair from point in the current buffer.
344 (let ((url (thing-at-point 'url)))
345 (when url
347 (beginning-of-thing 'url)
351 (when (thing-at-point-looking-at thing-at-point-markedup-url-regexp)
356 (quickurl-make-url
364 url)))))))
367 (defun quickurl-add-url (word url comment)
370 See `quickurl-grab-url' for details on how the default word/url combination
372 (interactive (let ((word-url (quickurl-grab-url)))
373 (list (read-string "Word: " (quickurl-url-keyword word-url))
374 (read-string "URL: " (quickurl-url-url word-url))
375 (read-string "Comment: " (quickurl-url-comment word-url)))))
379 (let* ((current-url (quickurl-find-url word))
380 (add-it (if current-url
386 (if current-url
388 (setf (quickurl-url-url current-url) url)
389 (setf (quickurl-url-comment current-url) comment))
390 (push (quickurl-make-url word url comment) quickurl-urls))
396 (message "Added %s" url))))))
399 (defun quickurl-browse-url (&optional lookup)
409 (let ((url (quickurl-find-url lookup)))
410 (if url
411 (browse-url (quickurl-url-url url))
415 (defun quickurl-browse-url-ask (lookup)
421 (let ((url (quickurl-find-url lookup)))
422 (when url
423 (browse-url (quickurl-url-url url)))))
427 "Pull `quickurl-url-file' into a buffer for hand editing."
429 (find-file quickurl-url-file))
436 (define-key map "a" #'quickurl-list-add-url)
437 (define-key map [(control m)] #'quickurl-list-insert-url)
438 (define-key map "u" #'quickurl-list-insert-naked-url)
482 (apply #'max (or (loop for url in quickurl-urls
483 collect (length (quickurl-url-description url)))
486 (loop for url in quickurl-urls
488 (insert (format fmt (quickurl-url-description url)
489 (quickurl-url-url url)))
495 (defun quickurl-list-add-url (word url comment)
496 "Wrapper for `quickurl-add-url' that doesn't guess the parameters."
498 (quickurl-add-url word url comment))
511 (quickurl-list-insert-url))
516 `url' - Insert the URL as <URL:url>
517 `naked-url' - Insert the URL with no formatting
518 `with-lookup' - Insert \"lookup <URL:url>\"
519 `with-desc' - Insert \"description <URL:url>\"
521 (let ((url (nth (save-excursion
525 (if url
529 ('url (funcall quickurl-format-function url))
530 ('naked-url (quickurl-url-url url))
532 (quickurl-url-keyword url)
533 (quickurl-url-url url)))
535 (quickurl-url-description url)
536 (quickurl-url-url url)))
537 ('lookup (quickurl-url-keyword url)))))
539 url))
549 (quickurl-list-make-inserter url)
550 (quickurl-list-make-inserter naked-url)