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

autobib fixed author list commas

Browse Source 
svn: r15447
This commit is contained in:
Ryan Culpepper 2009-07-14 23:53:24 +00:00
parent b1af0d5979
commit a02fa6709c
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/scriblib/autobib.ss
View File

@ -248,14 +248,18 @@
(let ([names (map parse-author (cons name names))]) (let ([names (map parse-author (cons name names))])
(make-author-element (make-author-element
#f #f
(let loop ([names names]) (let loop ([names names] [prefix 0])
(if (null? (cdr names)) (if (null? (cdr names))
(list (car names)) (case prefix
(append (loop (list (car names))) [(0) (list (car names))]
(list (if (null? (cddr names)) [(1) (list " and " (car names))]
", and " [else (list ", and " (car names))])
", ")) (case prefix
(loop (cdr names))))) [(0) (list* (car names)
(loop (cdr names) (add1 prefix)))]
[else (list* ", "
(car names)
(loop (cdr names) (add1 prefix)))])))
(string-join (map author-element-names names) " / ") (string-join (map author-element-names names) " / ")
(case (length names) (case (length names)
[(1) (author-element-cite (car names))] [(1) (author-element-cite (car names))]