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

commit 23b8961abf6f561f68309debbc51f0e3d78e0637
parent 74516bd3631b1d62ea45e0f931b8d44202c54015
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu, 24 May 2007 07:08:31 +0000

narrower formatting of docs

svn: r6256

original commit: 6c7081f0e62f2479e00641a7fa1a432a510a915b

Diffstat:
M
collects/scribble/config.ss
 | 
2
+-
M
collects/scribble/eval.ss
 | 
27
+++++++++++++++++++++------
M
collects/scribble/html-render.ss
 | 
2
++
M
collects/scribble/latex-render.ss
 | 
7
++++---
M
collects/scribble/scribble.css
 | 
5
+++--

5 files changed, 31 insertions(+), 12 deletions(-)
diff --git a/collects/scribble/config.ss b/collects/scribble/config.ss
@@ -3,4 +3,4 @@
 
   (provide value-color)
 
-  (define value-color "DarkBlue"))
+  (define value-color "schemevalue"))
diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss
@@ -28,6 +28,8 @@
 
   (define image-counter 0)
 
+  (define maxlen 60)
+
   (define (interleave title expr-paras val-list+outputs)
     (make-table
      #f
@@ -45,12 +47,25 @@
                                (make-flow (list p))))))
              (append
               (if (string? (car val-list+outputs))
-                  (list 
-                   (list (make-flow (list (make-paragraph
-                                           (list
-                                            (hspace 2)
-                                            (span-class "schemeerror"
-                                                        (italic (car val-list+outputs)))))))))
+                  (map
+                   (lambda (s)
+                     (list (make-flow (list (make-paragraph
+                                             (list
+                                              (hspace 2)
+                                              (span-class "schemeerror"
+                                                          (italic s))))))))
+                   (let sloop ([s (car val-list+outputs)])
+                     (if ((string-length s) . > . maxlen)
+                         ;; break the error message into multiple lines:
+                         (let loop ([pos (sub1 maxlen)])
+                           (cond
+                            [(zero? pos) (cons (substring s 0 maxlen)
+                                               (sloop (substring s maxlen)))]
+                            [(char-whitespace? (string-ref s pos))
+                             (cons (substring s 0 pos)
+                                   (sloop (substring s (add1 pos))))]
+                            [else (loop (sub1 pos))]))
+                         (list s))))
                   (append
                    (if (string=? "" (cdar val-list+outputs))
                        null
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -336,7 +336,9 @@
             (if ((length number) . <= . 1)
                 ;; Navigation bars;
                 `(,@(navigation d ht)
+                  (p nbsp)
                   ,@(super render-part d ht)
+                  (p nbsp)
                   ,@(navigation d ht))
                 ;; Normal section render
                 (super render-part d ht))])))
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -24,7 +24,8 @@
         (printf "\\parskip=10pt%\n")
         (printf "\\parindent=0pt%\n")
         (printf "\\usepackage{graphicx}\n")
-        (printf "\\usepackage{fullpage}\n")
+        (printf "\\usepackage{times}\n")
+        ;; (printf "\\usepackage{fullpage}\n")
         (printf "\\usepackage{longtable}\n")
         (printf "\\usepackage[usenames,dvipsnames]{color}\n")
         (define-color "schemeplain" "black")
@@ -184,8 +185,8 @@
                 (case c
                   [(#\\) (display "$\\backslash$")]
                   [(#\_) (display "$\\_$")]
-                  [(#\>) (display "$>$")]
-                  [(#\<) (display "$<$")]
+                  [(#\>) (display "{\\texttt >}")]
+                  [(#\<) (display "{\\texttt <}")]
                   [(#\~) (display "$\\sim$")]
                   [(#\{ #\} #\# #\% #\&) (display "\\") (display c)]
                   [(#\uDF) (display "{\\ss}")]
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
@@ -5,8 +5,9 @@
                background-color: #ffffff;
                /*background-color: beige;*/
                margin-top: 2em;
-               margin-left: 8%;
-               margin-right: 8%;
+               max-width: 35em;
+               margin-left: auto;
+               margin-right: auto;
                }
 
                h1,h2,h3,h4,h5,h6 {