264 |
(save-excursion |
(save-excursion |
265 |
(setf (point) (point-min)) |
(setf (point) (point-min)) |
266 |
(setq quickurl-urls (funcall quickurl-sort-function (read buffer))))) |
(setq quickurl-urls (funcall quickurl-sort-function (read buffer))))) |
267 |
|
|
268 |
(defun quickurl-load-urls () |
(defun quickurl-load-urls () |
269 |
"Load the contents of `quickurl-url-file' into `quickurl-urls'." |
"Load the contents of `quickurl-url-file' into `quickurl-urls'." |
270 |
(when (file-exists-p quickurl-url-file) |
(when (file-exists-p quickurl-url-file) |
280 |
(pp quickurl-urls) |
(pp quickurl-urls) |
281 |
(princ quickurl-postfix) |
(princ quickurl-postfix) |
282 |
(write-region (point-min) (point-max) quickurl-url-file nil 0)))) |
(write-region (point-min) (point-max) quickurl-url-file nil 0)))) |
283 |
|
|
284 |
(defun quickurl-find-url (lookup) |
(defun quickurl-find-url (lookup) |
285 |
"Return URL associated with key LOOKUP. |
"Return URL associated with key LOOKUP. |
286 |
|
|
327 |
(let ((url (quickurl-find-url lookup))) |
(let ((url (quickurl-find-url lookup))) |
328 |
(when url |
(when url |
329 |
(quickurl-insert url)))) |
(quickurl-insert url)))) |
330 |
|
|
331 |
(defun quickurl-grab-url () |
(defun quickurl-grab-url () |
332 |
"Attempt to grab a word/url pair from point in the current buffer. |
"Attempt to grab a word/url pair from point in the current buffer. |
333 |
|
|
370 |
(read-string "URL: " (quickurl-url-url word-url)) |
(read-string "URL: " (quickurl-url-url word-url)) |
371 |
(read-string "Comment: " (quickurl-url-comment word-url))))) |
(read-string "Comment: " (quickurl-url-comment word-url))))) |
372 |
(if (zerop (length word)) |
(if (zerop (length word)) |
373 |
(error "You must specify a WORD for lookup") |
(error "You must specify a WORD for lookup") |
374 |
(quickurl-load-urls) |
(quickurl-load-urls) |
375 |
(let* ((current-url (quickurl-find-url word)) |
(let* ((current-url (quickurl-find-url word)) |
376 |
(add-it (if current-url |
(add-it (if current-url |
546 |
(quickurl-list-make-inserter with-lookup) |
(quickurl-list-make-inserter with-lookup) |
547 |
(quickurl-list-make-inserter with-desc) |
(quickurl-list-make-inserter with-desc) |
548 |
(quickurl-list-make-inserter lookup) |
(quickurl-list-make-inserter lookup) |
549 |
|
|
550 |
(provide 'quickurl) |
(provide 'quickurl) |
551 |
|
|
552 |
;;; quickurl.el ends here |
;;; quickurl.el ends here |