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

FUEL: Support for $or markup (still elisp-based, sorry).

db4
Jose A. Ortega Ruiz 2009-02-20 16:55:08 +01:00
parent 3bd573fe13
commit 989912cb47
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -118,6 +118,7 @@
($nl . fuel-markup--newline)
($notes . fuel-markup--notes)
($operation . fuel-markup--link)
($or . fuel-markup--or)
($parsing-note . fuel-markup--parsing-note)
($predicate . fuel-markup--predicate)
($prettyprinting-note . fuel-markup--prettyprinting-note)
@ -468,6 +469,14 @@
(fuel-markup--instance (cons '$instance (cdr e)))
(insert " or f "))
(defun fuel-markup--or (e)
(let ((fst (car (cdr e)))
(mid (butlast (cddr e)))
(lst (car (last (cdr e)))))
(insert (format "%s" fst))
(dolist (m mid) (insert (format ", %s" m)))
(insert (format " or %s" lst))))
(defun fuel-markup--values (e)
(fuel-markup--insert-heading "Inputs and outputs")
(dolist (val (cdr e))