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))])
(make-author-element
#f
(let loop ([names names])
(let loop ([names names] [prefix 0])
(if (null? (cdr names))
(list (car names))
(append (loop (list (car names)))
(list (if (null? (cddr names))
", and "
", "))
(loop (cdr names)))))
(case prefix
[(0) (list (car names))]
[(1) (list " and " (car names))]
[else (list ", and " (car names))])
(case prefix
[(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) " / ")
(case (length names)
[(1) (author-element-cite (car names))]