FUEL: clickabe http urls in fuel help

diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index f210f075773a38fa2b2547fcb519f01f9ac990f5..c2370573d2635fce586d18853e3ef2893b0de1f2 100644 (file)
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@@ -158,6 +158,7 @@
     ($tag . fuel-markup--tag)
     ($tags . fuel-markup--tags)
     ($unchecked-example . fuel-markup--example)
+    ($url . fuel-markup--url)
     ($value . fuel-markup--value)
     ($values . fuel-markup--values)
     ($values-x/y . fuel-markup--values-x/y)
@@ -277,6 +278,20 @@
     (fuel-markup--put-face (cadr e) 'fuel-font-lock-markup-strong)
     (insert (cadr e))))
 
+(define-button-type 'fuel-markup--url
+  'action 'fuel-markup--follow-url
+  'face 'fuel-font-lock-markup-link
+  'follow-link nil)
+
+(defun fuel-markup--follow-url (button)
+  (browse-url (button-get button 'markup-link)))
+
+(defun fuel-markup--url (e)
+  (let ((url (cadr e)))
+    (insert-text-button url
+                        :type 'fuel-markup--url
+                        'markup-link url)))
+
 (defun fuel-markup--snippet (e)
   (insert (mapconcat #'(lambda (s)
                         (if (stringp s)