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

minor things

Browse Source 
svn: r8419

original commit: df0368e5ccc99f75b993eacc2a627c33dfa70d9f
This commit is contained in:
Eli Barzilay 2008-01-25 20:02:12 +00:00
parent 2dfa41a8f2
commit d2002d0a0d
3 changed files with 45 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scribble/base-render.ss
View File

@ -134,10 +134,7 @@
(case (car k) (case (car k)
[(part tech) [(part tech)
(if (string? (cadr k)) (if (string? (cadr k))
(list (car k) (list (car k) (string-append prefix ":" (cadr k)))
(string-append prefix
":"
(cadr k)))
k)] k)]
[(index-entry) [(index-entry)
(let ([v (convert-key prefix (cadr k))]) (let ([v (convert-key prefix (cadr k))])

8
collects/scribble/basic.ss
View File

@ -190,8 +190,7 @@
content))) content)))
(define (index-section #:title [title "Index"] #:tag [tag #f]) (define (index-section #:title [title "Index"] #:tag [tag #f])
(make-unnumbered-part (make-unnumbered-part #f
#f
`((part ,(or tag "doc-index"))) `((part ,(or tag "doc-index")))
(list title) (list title)
'index 'index
@ -210,7 +209,7 @@
[(null? a) #t] [(null? a) #t]
[(string-ci=? (car a) (car b)) [(string-ci=? (car a) (car b))
(or (loop (cdr a) (cdr b)) (or (loop (cdr a) (cdr b))
;; Try string<? ;; Try string<? so "Foo" still precedes "foo"
(string<? (car a) (car b)))] (string<? (car a) (car b)))]
[else (string-ci<? (car a) (car b))]))) [else (string-ci<? (car a) (car b))])))
(define alpha (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) (define alpha (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
@ -264,8 +263,7 @@
[else (loop (cdr i) alpha)]))])))))) [else (loop (cdr i) alpha)]))]))))))
(list (make-flow (list (make-paragraph (list 'nbsp))))) (list (make-flow (list (make-paragraph (list 'nbsp)))))
(map (lambda (i) (map (lambda (i)
(let* ([e (make-link-element (let* ([e (make-link-element "indexlink"
"indexlink"
(commas (caddr i)) (commas (caddr i))
(car i))] (car i))]
[letter (hash-table-get alpha-starts i #f)] [letter (hash-table-get alpha-starts i #f)]

6
collects/scribble/xref.ss
View File

@ -130,11 +130,7 @@
(let ([v (hash-table-get (collect-info-ext-ht (resolve-info-ci (xrefs-ri xrefs))) (let ([v (hash-table-get (collect-info-ext-ht (resolve-info-ci (xrefs-ri xrefs)))
`(index-entry ,tag) `(index-entry ,tag)
#f)]) #f)])
(cond (cond [v (make-entry (car v) (cadr v) (cadr tag) (caddr v))]
[v (make-entry (car v)
(cadr v)
(cadr tag)
(caddr v))]
[(and (pair? tag) (eq? 'form (car tag))) [(and (pair? tag) (eq? 'form (car tag)))
;; Try again with 'def: ;; Try again with 'def:
(xref-tag->index-entry xrefs (cons 'def (cdr tag)))] (xref-tag->index-entry xrefs (cons 'def (cdr tag)))]