Commit b44eb5b0 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-09-25 20:34:40 by cvscast] Empty log message

Original author: cvscast
Date: 2003-09-25 20:34:40+00:00
parent 33ca646c
......@@ -134,10 +134,10 @@ let display_sitemap (h : Tree) : Xli =
let boxes_of (Page -> [Xul?])
<page>[ (items::Item | _)*] ->
<page name=n>[ (items::Item | _)*] ->
let toc =
transform items with
<box title=t link=l>_ -> [ <li>[ <a href=('#',l)>t ] ] in
<box title=t link=l>_ -> [ <li>[ <a href=((url_of_name n)@('#',l))>t ] ] in
(match toc with [] -> [] | lis -> [ <ul>lis ])
let link_to (Page -> Xa)
......
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