Commit 8428fda1 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2002-11-16 13:30:35+00:00
parent 75d0a3e3
...@@ -66,6 +66,12 @@ let fun format (Box | Section -> Block; Text -> [Flow*]; Content -> [Block*] ) ...@@ -66,6 +66,12 @@ let fun format (Box | Section -> Block; Text -> [Flow*]; Content -> [Block*] )
| c -> c) | c -> c)
| c & Content -> (map c with x -> format x);; | 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 = let out : Html =
<html>[ <html>[
<head>[ <title>title ] <head>[ <title>title ]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment