ezri/systemd-mode
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

find a default uri harder

Browse Source 
saves a keystroke if there is only one link
This commit is contained in:
Mark Oteiza 2014-12-27 20:32:47 -05:00
parent 039bed6e92
commit e52a5da19e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
systemd-mode.el
View File

@ -90,11 +90,13 @@ as a list of strings, otherwise nil."
"Open URL. Interactively completes the documentation in the
current unit file, defaulting to the link under point, if any."
(interactive
(let* ((uri (thing-at-point-url-at-point))
(let* ((collection (systemd-doc-find))
(uri (or (thing-at-point-url-at-point)
(car-safe collection)))
(prompt (concat "URL"
(when uri (format " (default %s)" uri))
": ")))
(list (completing-read prompt (systemd-doc-find) nil nil nil nil uri))))
(list (completing-read prompt collection nil nil nil nil uri))))
(let ((link (url-generic-parse-url url)))
(pcase (url-type link)
("file" (find-file (url-filename link)))