guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

emacs: list: Support displaying URL links. 

* emacs/guix-list.el (guix-list-url): New face.
  (guix-list-get-url): New procedure.
This commit is contained in:
Alex Kost 2016-01-21 11:00:59 +03:00
parent 83aab70b2d
commit 6dd460c856
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
emacs/guix-list.el
View File

@ -38,6 +38,11 @@
"Face used for file names."
:group 'guix-list-faces)
(defface guix-list-url
'((t :inherit guix-info-url))
"Face used for URLs."
:group 'guix-list-faces)
(defface guix-list-time
'((t :inherit guix-info-time))
"Face used for time stamps."
@ -222,6 +227,14 @@ VAL may be nil."
'follow-link t
'help-echo "Find file"))
(defun guix-list-get-url (url &optional _)
"Return URL button specification for `tabulated-list-entries'."
(list url
'face 'guix-list-url
'action (lambda (btn) (browse-url (button-label btn)))
'follow-link t
'help-echo "Browse URL"))
;;; 'List' lines