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

commit f0ff88e2e5fd14e7ea3bf2fe7ac4efa3500d3998
parent 3d827ba86fede061966ffc99378f233a88408753
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue,  8 Sep 2009 12:31:35 +0000

fix Scribble manual bib to refer to scheme.css

svn: r15912

original commit: 3ada45a6c3e9cfa9da2ec17448d462da30ba50a8

Diffstat:
M
collects/scribble/private/manual-bib.ss
 | 
6
+++++-
A
collects/scribble/private/manual-sprop.ss
 | 
13
+++++++++++++
M
collects/scribble/scheme.ss
 | 
10
+---------

3 files changed, 19 insertions(+), 10 deletions(-)
diff --git a/collects/scribble/private/manual-bib.ss b/collects/scribble/private/manual-bib.ss
@@ -3,6 +3,8 @@
          "../decode.ss"
          "../struct.ss"
          "../basic.ss"
+         (only-in "../core.ss" make-style)
+         "manual-sprop.ss"
          "manual-utils.ss"
          "manual-style.ss")
 
@@ -62,6 +64,8 @@
      (if date `(" " ,@(decode-content (list date)) ".") null)
      (if url `(" " ,(link url (tt url))) null)))))
 
+(define bib-style (make-style "SBibliography" scheme-properties))
+
 (define (bibliography #:tag [tag "doc-bibliography"] . citations)
   (make-unnumbered-part
    #f
@@ -72,7 +76,7 @@
    (make-flow
     (list
      (make-table
-      "SBibliography"
+      bib-style
       (map (lambda (c)
              (let ([key (a-bib-entry-key c)]
                    [val (a-bib-entry-val c)])
diff --git a/collects/scribble/private/manual-sprop.ss b/collects/scribble/private/manual-sprop.ss
@@ -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")))))
diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss
@@ -2,11 +2,9 @@
   (require "core.ss"
            "basic.ss"
            "search.ss"
-           "html-properties.ss"
-           "latex-properties.ss"
+           "private/manual-sprop.ss"
            mzlib/class
            mzlib/for
-           setup/main-collects
            syntax/modresolve
            syntax/modcode
            (for-syntax scheme/base))
@@ -54,12 +52,6 @@
                        make-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])
     (make-style s (if tt?
                       (cons 'tt-chars scheme-properties)