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

FUEL: support for the $sequence help syntax

locals-and-roots
Björn Lindqvist 2016-03-22 17:04:03 +01:00
parent 579875821b
commit d9711b96d2
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -128,6 +128,7 @@
($low-level-note . fuel-markup--low-level-note) ($low-level-note . fuel-markup--low-level-note)
($markup-example . fuel-markup--markup-example) ($markup-example . fuel-markup--markup-example)
($maybe . fuel-markup--maybe) ($maybe . fuel-markup--maybe)
($sequence . fuel-markup--sequence)
($methods . fuel-markup--methods) ($methods . fuel-markup--methods)
($next-link . (lambda (e) (fuel-markup--prefixed-link "Next:" e))) ($next-link . (lambda (e) (fuel-markup--prefixed-link "Next:" e)))
($nl . fuel-markup--newline) ($nl . fuel-markup--newline)
@ -500,6 +501,13 @@
(fuel-markup--instance (cons '$instance (cdr e))) (fuel-markup--instance (cons '$instance (cdr e)))
(insert " or f ")) (insert " or f "))
(defun fuel-markup--sequence (e)
(insert "a ")
(fuel-markup--link (list '$link 'sequence 'sequence 'word))
(insert " of ")
(fuel-markup--print (cadr e))
(insert "s"))
(defun fuel-markup--or (e) (defun fuel-markup--or (e)
(let ((fst (car (cdr e))) (let ((fst (car (cdr e)))
(mid (butlast (cddr e))) (mid (butlast (cddr e)))