suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

thread lang parameter through the main pages too

Browse Source 
svn: r17042
This commit is contained in:
Eli Barzilay 2009-11-24 14:36:00 +00:00
parent 7feecb4d2c
commit 615744073c
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/scribblings/main/private/utils.ss
View File

@ -103,13 +103,18 @@
[(#f) path] [(#f) path]
[else (error "internal error (main-page)")])) [else (error "internal error (main-page)")]))
(define (onclick style) (define (onclick style)
(if (eq? root 'user) (make-style
(make-style style style
(list (make-attributes (list (make-attributes
`([onclick `(,@(if (eq? root 'user)
. ,(format "return GotoPLTRoot(\"~a\", \"~a\");" `([onclick
(version) path)])))) . ,(format "return GotoPLTRoot(\"~a\", \"~a\");"
style)) (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) (define (elt style)
(make-toc-element (make-toc-element
#f null (list (hyperlink dest #:style (onclick style) text)))) #f null (list (hyperlink dest #:style (onclick style) text))))