suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

scriblib/autbib: fix the "." in "al."

Browse Source 
Make the "." in "al." an abbreviation-ending period, instead of a
sentence-ending period.
This commit is contained in:
Matthew Flatt 2017-11-02 08:54:55 -06:00
parent 5ae38495cd
commit 9f799cd86e
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
scribble-lib/scriblib/autobib.rkt
View File

@ -264,8 +264,8 @@
[(date<? b a) #f]
[else (string-ci<? (auto-bib-key a) (auto-bib-key b))]))))
(define (ambiguous? a b)
(and (string-ci=? (author-element-cite (extract-bib-author a))
(author-element-cite (extract-bib-author b)))
(and (string-ci=? (content->string (author-element-cite (extract-bib-author a)))
(content->string (author-element-cite (extract-bib-author b))))
(auto-bib-date a)
(auto-bib-date b)
(date=? a b)))
@ -593,8 +593,8 @@
(make-other-author-element
#f
(list "Alia")
"al."
"al."))
(list "al" ._)
(list "al" ._)))
(define (authors name . names*)
(define names (map parse-author (cons name names*)))
@ -603,11 +603,12 @@
(case (length names)
[(1) (author-element-cite (car names))]
[(2) (if (other-author-element? (cadr names))
(format "~a et al." (author-element-cite (car names)))
(format "~a and ~a"
(author-element-cite (car names))
(author-element-cite (cadr names))))]
[else (format "~a et al." (author-element-cite (car names)))]))
(list (author-element-cite (car names)) " et al" @._)
(list
(author-element-cite (car names))
" and "
(author-element-cite (cadr names))))]
[else (list (author-element-cite (car names)) " et al" ._)]))
(make-author-element
#f
(let loop ([names names] [prefix 0])
@ -615,10 +616,10 @@
(case prefix
[(0) names]
[(1) (if (other-author-element? (car names))
(list " et al.")
(list " et al" ._)
(list " and " (car names)))]
[else (if (other-author-element? (car names))
(list ", et al.")
(list ", et al" ._)
(list ", and " (car names)))])]
[else
(case prefix