Commit e7532776 authored by Pietro Abate's avatar Pietro Abate

[r2005-03-27 01:18:15 by beppe] handled <code>

Original author: beppe
Date: 2005-03-27 01:18:15+00:00
parent b47e25a6
......@@ -24,12 +24,10 @@ let highlight (String -> [ (Char)* ] )
transform t with
|<b>s2 ->[<fo:inline font-weight="bold">[!(text s2)]]
|<i>s2 -> [<fo:inline font-style="italic">[!(text s2)]]
|<tt style=_>s2 -> [<fo:block text-align="left" font-family="Courier" color="green" >[!(text s2)]]
|<tt>s2 -> [<fo:inline font-family="Courier" color="green">[!(text s2)]]
|<em style=_>s2 -> [<fo:block text-align="center" color="pink" font-style="italic">[!(text s2)]]
|<em>s2 -> [<fo:inline color="blue" font-weight="bold" font-style="italic">[!(text s2)]]
| z & Char -> [z]
| <code>x -> (*[<fo:block text-align="center" color="blue">*)[<fo:inline color="red" font-weight="bold" font-style="italic" >[ !(highlight x)] ](*]*)
| <code>x -> [<fo:inline color="red" font-weight="bold" font-family="Courier">[ !(highlight x)] ](*]*)
| <local href=_>s2 -> [<fo:inline color="pink" font-weight="bold" font-style="italic">[!(text s2)]](*['lien non encore implemente local href']*)
| <a href=_>s2 ->[<fo:inline color="pink" font-weight="bold" font-style="italic">[!(text s2)]] (*['lien non encore implemente a href']*)
|<footnote>t -> [<fo:block>[!(text t)]]
......@@ -55,7 +53,7 @@ let highlight (String -> [ (Char)* ] )
| <p>x -> [<fo:block space-after="15pt">[!(text x)]]
| <ul>u ->[ <fo:list-block provisional-distance-between-starts="18pt"
provisional-label-separation="3pt">( transform u with
<li>c -> [<fo:list-item space-after="2pt">[
<li>c -> [<fo:list-item>[
<fo:list-item-label text-align="center" end-indent="label-end()">[
<fo:block font-size="18pt">"\x2022;"]
<fo:list-item-body start-indent="body-start()">[
......@@ -65,7 +63,7 @@ let highlight (String -> [ (Char)* ] )
let i = ref Int 0 in
i := !i + 1 ;
transform o with
<li>c -> [<fo:list-item space-after="2pt">[
<li>c -> [<fo:list-item>[
<fo:list-item-label end-indent="label-end()">[
<fo:block>(string_of(i)@".")]
<fo:list-item-body start-indent="body-start()">[
......
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