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

View File

@ -128,6 +128,7 @@
($low-level-note . fuel-markup--low-level-note)
($markup-example . fuel-markup--markup-example)
($maybe . fuel-markup--maybe)
($sequence . fuel-markup--sequence)
($methods . fuel-markup--methods)
($next-link . (lambda (e) (fuel-markup--prefixed-link "Next:" e)))
($nl . fuel-markup--newline)
@ -500,6 +501,13 @@
(fuel-markup--instance (cons '$instance (cdr e)))
(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)
(let ((fst (car (cdr e)))
(mid (butlast (cddr e)))