[r2003-10-02 22:10:06 by cvscast] Beppe: little formatting

Original author: cvscast
Date: 2003-10-02 22:10:07+00:00

web/documentation.xml

@@ -6,6 +6,15 @@
 <include file="tutorial.xml"/>
 <include file="manual.xml"/>
 <include file="memento.xml"/>
+<left>
+<p>
+Here you can find the online documentation 
+(usually very up to date)
+</p>
+<pages-toc/>
+<p>See also:</p>
+<local-links href="papers"/>
+</left>
 
 <box title="Online documentation" link="src">
 <p>

web/papers.xml

@@ -7,7 +7,7 @@
 <p>This page presents Papers and Talks about CDuce.</p>
 <boxes-toc/>
 <p>See also:</p>
-<local-links href="index,proto"/>
+<local-links href="index,proto,documentation"/>
 </left>
 
 <box title="Papers" link="papers">

web/site.cd

@@ -44,8 +44,8 @@ type Content =
      | <sample highlight=?"true"|"false">String
      | Xtable
      | Paper | Slides | Link
-     | <boxes-toc>[]
-     | <pages-toc subsections=?"">[]
+     | <boxes-toc sections=?"">[]
+     | <pages-toc sections=?"">[]
      | <site-toc>[]
      | <local-links href=String>[]
      | <two-columns>[ <left>Content <right>Content ]
@@ -290,11 +290,15 @@ match page with
                            !(match a with {|sections=_|} -> (boxes_of p) | _ -> [])] ]
          | <external href=l title=t>[] -> [ <li>[ <a href=l>t ] ] in
         (match toc with [] -> [] | lis -> [ <ul>lis ])
-   | <boxes-toc>[] ->
+   | <boxes-toc (a)>[] ->
         let toc = 
          transform items with 
-          <box title=t link=l>_ -> [ <li>[ <a href=('#',l)>t ] ] in
-        (match toc with [] -> [] | lis -> [ <ul>lis ])
+          <box title=t link=l>b -> [ <li>[ <a href=('#',l)>t 
+             !(match a with 
+                | {|sections=_|} -> 
+                     (transform b with <section title=t>_ -> [<br>[] '-' !t])
+                | _ ->[])]]
+        in (match toc with [] -> [] | lis -> [ <ul>lis ])
    | <site-toc>[] ->
         [ <ul>[ (display_sitemap sitemap) ] ]
    | <local-links href=s>[] ->