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

make sure search pages are installed with scheme.css

Browse Source 
svn: r15621
This commit is contained in:
Matthew Flatt 2009-07-29 15:54:18 +00:00
parent 970a796bc6
commit 2e8de6467a
4 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,7 @@
;; the second argument specifies installation/user specific, and if ;; the second argument specifies installation/user specific, and if
;; it's missing, then it's a page with a single version ;; it's missing, then it's a page with a single version
(define (main-page id [installation-specific? '?]) (define (main-page id [installation-specific? '?] #:force-scheme-css? [force-scheme-css? #f])
(define info (page-info id)) (define info (page-info id))
(define title-string (car info)) (define title-string (car info))
(define root (cadr info)) (define root (cadr info))
@ -53,9 +53,8 @@
(define page-title (define page-title
(title #:style (make-style #f (cons (title #:style (make-style #f (cons
'no-toc 'no-toc
(if user-doc? (if (not force-scheme-css?)
null null
;; Ensure that "scheme.css" gets installed in the shared location:
(list (list
(make-css-addition (build-path (collection-path "scribble") (make-css-addition (build-path (collection-path "scribble")
"scheme.css")))))) "scheme.css"))))))

4
collects/scribblings/main/search.scrbl
View File

@ -2,6 +2,8 @@
@(require "private/utils.ss" @(require "private/utils.ss"
"private/make-search.ss") "private/make-search.ss")
@main-page['search #t] @main-page['search #t
;; "scheme.css" needs to be installed for search results:
#:force-scheme-css? #t]
@make-search[#f] @make-search[#f]

4
collects/scribblings/main/start.scrbl
View File

@ -3,7 +3,9 @@
"private/utils.ss" "private/utils.ss"
"private/manuals.ss") "private/manuals.ss")
@main-page['start #t] @main-page['start #t
;; "scheme.css" needs to be installed so it can be shared:
#:force-scheme-css? #t]
@margin-note{ @margin-note{
@not-on-the-web{ @not-on-the-web{

4
collects/scribblings/main/user/search.scrbl
View File

@ -2,6 +2,8 @@
@(require "../private/utils.ss" @(require "../private/utils.ss"
"../private/make-search.ss") "../private/make-search.ss")
@main-page['search #f] @main-page['search #f
;; "scheme.css" needs to be installed for search results:
#:force-scheme-css? #t]
@make-search[#t] @make-search[#t]