bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit b47b1682f1ed07f848f966620decf83e06e31f56
parent 584258ff258b322df3f273d43462a5dc658f4a21
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Wed, 28 May 2008 00:20:58 +0000

toc links on main pages go to user pages where needed

svn: r9993

original commit: 9b0492e320cf761bd2831fabd64c12e723967092

Diffstat:
M
collects/scribble/manual.ss
 | 
4
++--
M
collects/scribble/scribble-common.js
 | 
6
++++--

2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -335,8 +335,8 @@
 (define (procedure . str)
   (make-element "schemeresult" `("#<procedure:" ,@(decode-content str) ">")))
 
-(define (link url 
-              #:underline? [underline? #t] 
+(define (link url
+              #:underline? [underline? #t]
               #:style [style (if underline? #f "plainlink")]
               . str)
   (make-element (make-target-url url style)
diff --git a/collects/scribble/scribble-common.js b/collects/scribble/scribble-common.js
@@ -27,10 +27,12 @@ function SetPLTRoot(ver, relative) {
 }
 
 // adding index.html works because of the above
-function GotoPLTRoot(ver) {
+function GotoPLTRoot(ver, relative) {
   var u = GetCookie("PLT_Root."+ver);
   if (u == null) return true; // no cookie: use plain up link
-  location = u + "index.html";
+  // the relative path is optional, default goes to the toplevel start page
+  if (!relative) relative = "index.html";
+  location = u + relative;
   return false;
 }