From 615744073c8e25d7de4e9ad20a5f9c7cb0db2b5e Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 24 Nov 2009 14:36:00 +0000
Subject: [PATCH] thread lang parameter through the main pages too

svn: r17042
---
 collects/scribblings/main/private/utils.ss | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/collects/scribblings/main/private/utils.ss b/collects/scribblings/main/private/utils.ss
index bdc3b7b585..10010e52ea 100644
--- a/collects/scribblings/main/private/utils.ss
+++ b/collects/scribblings/main/private/utils.ss
@@ -103,13 +103,18 @@
                  [(#f)   path]
                  [else (error "internal error (main-page)")]))
              (define (onclick style)
-               (if (eq? root 'user)
-                 (make-style style
-                             (list (make-attributes
-                                    `([onclick
-                                       . ,(format "return GotoPLTRoot(\"~a\", \"~a\");"
-                                                  (version) path)]))))
-                 style))
+               (make-style
+                style
+                (list (make-attributes
+                       `(,@(if (eq? root 'user)
+                             `([onclick
+                                . ,(format "return GotoPLTRoot(\"~a\", \"~a\");"
+                                           (version) path)])
+                             `())
+                         ;; note: root=#f means an external link, but in this
+                         ;; case this is the bugs link, so *keep* it and later
+                         ;; use it on the bugs page
+                         [pltdoc . "x"])))))
              (define (elt style)
                (make-toc-element
                 #f null (list (hyperlink dest #:style (onclick style) text))))