[r2002-11-16 13:30:35 by cvscast] Empty log message

Original author: cvscast Date: 2002-11-16 13:30:35+00:00

[r2002-11-16 13:30:35 by cvscast] Empty log message
Original author: cvscast Date: 2002-11-16 13:30:35+00:00
51d34f88 · Pietro Abate · 8dd78b58 · 51d34f88
Commit 51d34f88 authored Oct 05, 2007 by Pietro Abate
--- a/tests/memento.cd
+++ b/tests/memento.cd
@@ -66,6 +66,12 @@ let fun format (Box | Section -> Block; Text -> [Flow*]; Content -> [Block*] )
 		   | c -> c)
 | c & Content -> (map c with x -> format x);;

+let summary (Content -> Block)
+ c -> 
+    let s = transform c with <section>[<title>t] -> [<li>t] in
+    match s with [] -> [] | lis -> <ul>lis;;
+
+
 let out : Html = 
 <html>[
   <head>[ <title>title ]