From 989912cb476e904538b96377865a020cfa8a14db Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Fri, 20 Feb 2009 16:55:08 +0100 Subject: [PATCH] FUEL: Support for $or markup (still elisp-based, sorry). --- misc/fuel/fuel-markup.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el index 980ea111a6..3a00b70ab1 100644 --- a/misc/fuel/fuel-markup.el +++ b/misc/fuel/fuel-markup.el @@ -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))