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

commit 2b9bb591e63e1a331787ee71577c1c9421250c61
parent b665360e577c9e654d3186ae388c48b22cb62e53
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun, 25 Jul 2010 10:51:19 -0500

add collection-file-path and splace collection trees at the file level

original commit: 5f1aa418f30f4df086c85ed18dfc5395468b1638

Diffstat:
M
collects/scribble/jfp.rkt
 | 
2
+-
M
collects/scribble/sigplan.rkt
 | 
2
+-
M
collects/scriblib/autobib.rkt
 | 
2
+-
M
collects/scriblib/figure.rkt
 | 
3
++-
M
collects/scriblib/footnote.rkt
 | 
4
+++-

5 files changed, 8 insertions(+), 5 deletions(-)
diff --git a/collects/scribble/jfp.rkt b/collects/scribble/jfp.rkt
@@ -14,7 +14,7 @@
 (define jfp-extras
   (let ([abs (lambda (s)
                (path->main-collects-relative
-                (build-path (collection-path "scribble") "jfp" s)))])
+                (collection-file-path s "scribble" "jfp")))])
     (list
      (make-css-addition (abs "jfp.css"))
      (make-tex-addition (abs "jfp.tex")))))
diff --git a/collects/scribble/sigplan.rkt b/collects/scribble/sigplan.rkt
@@ -50,7 +50,7 @@
 (define sigplan-extras
   (let ([abs (lambda (s)
                (path->main-collects-relative
-                (build-path (collection-path "scribble") "sigplan" s)))])
+                (collection-file-path s "scribble" "sigplan")))])
     (list
      (make-css-addition (abs "sigplan.css"))
      (make-tex-addition (abs "sigplan.tex")))))
diff --git a/collects/scriblib/autobib.rkt b/collects/scriblib/autobib.rkt
@@ -16,7 +16,7 @@
 (define autobib-style-extras
   (let ([abs (lambda (s)
                (path->main-collects-relative
-                (build-path (collection-path "scriblib") s)))])
+                (collection-file-path s "scriblib")))])
     (list
      (make-css-addition (abs "autobib.css"))
      (make-tex-addition (abs "autobib.tex")))))
diff --git a/collects/scriblib/figure.rkt b/collects/scriblib/figure.rkt
@@ -17,7 +17,8 @@
 
 (define figure-style-extras
   (let ([abs (lambda (s)
-               (build-path (collection-path "scriblib") s))])
+               (path->main-collects-relative
+                (collection-file-path s "scriblib")))])
     (list (make-css-addition (abs "figure.css"))
           (make-tex-addition (abs "figure.tex")))))
 
diff --git a/collects/scriblib/footnote.rkt b/collects/scriblib/footnote.rkt
@@ -5,6 +5,7 @@
          scribble/html-properties
          scribble/latex-properties
          racket/promise
+         setup/main-collects
          "private/counter.ss")
 
 (provide note
@@ -12,7 +13,8 @@
 
 (define footnote-style-extras
   (let ([abs (lambda (s)
-               (build-path (collection-path "scriblib") s))])
+               (path->main-collects-relative
+                (collection-file-path s "scriblib")))])
     (list (make-css-addition (abs "footnote.css"))
           (make-tex-addition (abs "footnote.tex")))))