diff --git a/emacs/guix-list.el b/emacs/guix-list.el index 51eb106d82..c91c67cb29 100644 --- a/emacs/guix-list.el +++ b/emacs/guix-list.el @@ -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