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

fix Scribble manual bib to refer to scheme.css

Browse Source 
svn: r15912
This commit is contained in:
Matthew Flatt 2009-09-08 12:31:35 +00:00
parent 5a736e97a3
commit 3ada45a6c3
3 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribble/private/manual-bib.ss
View File

@ -3,6 +3,8 @@
"../decode.ss" "../decode.ss"
"../struct.ss" "../struct.ss"
"../basic.ss" "../basic.ss"
(only-in "../core.ss" make-style)
"manual-sprop.ss"
"manual-utils.ss" "manual-utils.ss"
"manual-style.ss") "manual-style.ss")
@ -62,6 +64,8 @@
(if date `(" " ,@(decode-content (list date)) ".") null) (if date `(" " ,@(decode-content (list date)) ".") null)
(if url `(" " ,(link url (tt url))) null))))) (if url `(" " ,(link url (tt url))) null)))))
(define bib-style (make-style "SBibliography" scheme-properties))
(define (bibliography #:tag [tag "doc-bibliography"] . citations) (define (bibliography #:tag [tag "doc-bibliography"] . citations)
(make-unnumbered-part (make-unnumbered-part
#f #f
@ -72,7 +76,7 @@
(make-flow (make-flow
(list (list
(make-table (make-table
"SBibliography" bib-style
(map (lambda (c) (map (lambda (c)
(let ([key (a-bib-entry-key c)] (let ([key (a-bib-entry-key c)]
[val (a-bib-entry-val c)]) [val (a-bib-entry-val c)])

13
collects/scribble/private/manual-sprop.ss Normal file
View File

@ -0,0 +1,13 @@
#lang scheme/base
(require "../html-properties.ss"
"../latex-properties.ss"
setup/main-collects)
(provide scheme-properties)
(define scheme-properties
(let ([abs (lambda (s)
(path->main-collects-relative (build-path (collection-path "scribble") s)))])
(list (make-css-addition (abs "scheme.css"))
(make-tex-addition (abs "scheme.tex")))))

10
collects/scribble/scheme.ss
View File

@ -2,11 +2,9 @@
(require "core.ss" (require "core.ss"
"basic.ss" "basic.ss"
"search.ss" "search.ss"
"html-properties.ss" "private/manual-sprop.ss"
"latex-properties.ss"
mzlib/class mzlib/class
mzlib/for mzlib/for
setup/main-collects
syntax/modresolve syntax/modresolve
syntax/modcode syntax/modcode
(for-syntax scheme/base)) (for-syntax scheme/base))
@ -54,12 +52,6 @@
make-element-id-transformer make-element-id-transformer
element-id-transformer?)) element-id-transformer?))
(define scheme-properties
(let ([abs (lambda (s)
(path->main-collects-relative (build-path (collection-path "scribble") s)))])
(list (make-css-addition (abs "scheme.css"))
(make-tex-addition (abs "scheme.tex")))))
(define (make-scheme-style s #:tt? [tt? #t]) (define (make-scheme-style s #:tt? [tt? #t])
(make-style s (if tt? (make-style s (if tt?
(cons 'tt-chars scheme-properties) (cons 'tt-chars scheme-properties)