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

narrower formatting of docs

Browse Source 
svn: r6256

original commit: 6c7081f0e62f2479e00641a7fa1a432a510a915b
This commit is contained in:
Matthew Flatt 2007-05-24 07:08:31 +00:00
parent 74516bd363
commit 23b8961abf
5 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/config.ss
View File

@ -3,4 +3,4 @@
(provide value-color)
(define value-color "DarkBlue"))
(define value-color "schemevalue"))

27
collects/scribble/eval.ss
View File

@ -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

2
collects/scribble/html-render.ss
View File

@ -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))])))

7
collects/scribble/latex-render.ss
View File

@ -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}")]

5
collects/scribble/scribble.css
View File

@ -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 {