Commit 8db09234 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-06-21 12:53:42 by cmiachon] ajout de <ol>

Original author: cmiachon
Date: 2004-06-21 12:53:42+00:00
parent 91cb0d53
......@@ -39,6 +39,7 @@ type Link =
type Content =
[ ( <p {|style=?String|}>[InlineText*]
| <ul {||}>[<li {||}>Content *]
| <ol {||}>[<li {||}>Content *]
| <section title=String>Content
| <sample highlight=?"true"|"false">String
| <xmlsample highlight=?"true"|"false">String
......@@ -138,6 +139,8 @@ let compute_sitemap ((Page|External) -> Tree)
let ul([H:Xli*] -> [H:Xul?]) [] -> [] | l -> [ <ul>l ]
let ol([H:Xli*] -> [H:Xol?]) [] -> [] | l -> [ <ol>l ]
let display_sitemap (h : Tree) : H:Xli =
let ch = map h . children with x -> display_sitemap x in
<li>[ <a href=(h . url)>[ '[' !(h . title) ']' ] !(h . boxes); (ul ch) ]
......@@ -287,6 +290,8 @@ match page with
[ <ul>[ <li>[ <a href=url>title '. ' !(text com) ] ] ]
| <ul>lis ->
ul (map lis with <li>x -> <li>(content x))
| <ol>lis ->
ol (map lis with <li>x -> <li>(content x))
| H:Xtable & x ->
[ x ]
| <p (attr)>x -> [ <p (attr)>(text x) ]
......
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