The url-link Widget

Syntax:

type ::= (url-link [keyword argument]...  url)

A widget to represent a link to a web page. Its super is the link widget.

It overrides the :action property to open up the url specified.

Example:

(widget-create 'url-link
               :button-prefix ""
               :button-suffix ""
               ;; Return appropriate face.
               :button-face-get (lambda (widget)
                 (if (widget-get widget :visited)
                     'link-visited
                   'link))
               :format "%[%t%]"
               :tag "Browse this manual"
               :action (lambda (widget &optional _event)
                          (widget-put widget :visited t)
                          ;; Takes care of redrawing the widget.
                          (widget-value-set widget (widget-value widget))
                          ;; And then call the original function.
                          (widget-url-link-action widget))
               "https://www.gnu.org/software/emacs/manual/html_mono/widget.html")