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

commit 45d5558074d24eaf8e67d90fd4872b4b1b149466
parent 540bc42e758038049500249ddc5f3158b89e1628
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun, 24 Jun 2007 00:54:29 +0000

drop x-ref icons in latex output

svn: r6724

original commit: 199f4ebc00c8d19f9427e9f3cd7254a96b3c622b

Diffstat:
M
collects/scribble/html-render.ss
 | 
30
++++++++++++++++++++++++++++--
M
collects/scribble/latex-render.ss
 | 
3
+--

2 files changed, 29 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -64,6 +64,9 @@
 
       ;; ----------------------------------------
 
+      (define/public (render-toc-view d ht)
+        null)
+
       (define/public (render-one-part d ht fn number)
         (parameterize ([current-output-file fn])
           (let ([xpr `(html () 
@@ -78,7 +81,8 @@
                                     (type "text/css")
                                     (href "scribble.css")
                                     (title "default"))))
-                            (body (div ((class "main")) ,@(render-part d ht))))])
+                            (body (div ((class "main")) ,@(render-part d ht))
+                                  ,@(render-toc-view d ht)))])
             (install-file scribble-css)
             (xml:write-xml/content (xml:xexpr->xml xpr)))))
 
@@ -263,7 +267,8 @@
     (class %
       (inherit render-one
                render-one-part
-               render-content)
+               render-content
+               lookup)
 
       (define/override (get-suffix) #"")
 
@@ -283,6 +288,27 @@
             (error "file name too long (need a tag):" fn))
           fn))
 
+      #;
+      (define/override (render-toc-view d ht)
+        (let-values ([(top mine)
+                      (let loop ([d d][mine d])
+                        (let ([p (collected-info-parent (part-collected-info d))])
+                          (if p
+                              (loop p d)
+                              (values d mine))))])
+          `((div ((class "tocview"))
+                 (div ((class "tocviewtitle"))
+                      ,@(render-content (part-title-content top) d ht))
+                 (ul
+                  ((class "tocviewlist"))
+                  ,@(map (lambda (p)
+                           `(li (a ((href ,(let ([dest (lookup p ht `(part ,(part-tag p)))])
+                                             (from-root (car dest)
+                                                        (get-dest-directory))))
+                                    (class "tocviewlink"))
+                                   ,@(render-content (part-title-content p) d ht))))
+                         (part-parts top)))))))
+
       (define/override (collect ds fns)
         (super collect ds (map (lambda (fn)
                                  (build-path fn "index.html"))
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -63,8 +63,7 @@
         (printf "\\newcommand{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
         (printf "\\newcommand{\\highlighted}[1]{\\colorbox{PaleBlue}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
         (printf "\\newcommand{\\techlink}[1]{#1}\n")
-        (printf "\\newcommand{\\imageleft}[1]{#1}\n")
-        (printf "\\newcommand{\\imageright}[1]{#1}\n")
+        (printf "\\newcommand{\\imageleft}[1]{} % drop it\n")
         (printf "\\begin{document}\n")
         (when (part-title-content d)
           (printf "\\title{")