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 "Open URL. Interactively completes the documentation in the
current unit file, defaulting to the link under point, if any." current unit file, defaulting to the link under point, if any."
(interactive (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" (prompt (concat "URL"
(when uri (format " (default %s)" uri)) (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))) (let ((link (url-generic-parse-url url)))
(pcase (url-type link) (pcase (url-type link)
("file" (find-file (url-filename link))) ("file" (find-file (url-filename link)))