steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: clickabe http urls in fuel help

modern-harvey2
Björn Lindqvist 2017-07-04 03:28:25 +02:00
parent 88605022d0
commit b720e46bc7
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
misc/fuel/fuel-markup.el
View File

@ -158,6 +158,7 @@
($tag . fuel-markup--tag) ($tag . fuel-markup--tag)
($tags . fuel-markup--tags) ($tags . fuel-markup--tags)
($unchecked-example . fuel-markup--example) ($unchecked-example . fuel-markup--example)
($url . fuel-markup--url)
($value . fuel-markup--value) ($value . fuel-markup--value)
($values . fuel-markup--values) ($values . fuel-markup--values)
($values-x/y . fuel-markup--values-x/y) ($values-x/y . fuel-markup--values-x/y)
@ -277,6 +278,20 @@
(fuel-markup--put-face (cadr e) 'fuel-font-lock-markup-strong) (fuel-markup--put-face (cadr e) 'fuel-font-lock-markup-strong)
(insert (cadr e)))) (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) (defun fuel-markup--snippet (e)
(insert (mapconcat #'(lambda (s) (insert (mapconcat #'(lambda (s)
(if (stringp s) (if (stringp s)