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

Fix citation disabiguation when authors differ.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-11-10 14:49:38 -05:00
parent a9201f68dd
commit 29cfc48c5e
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scriblib/autobib.rkt
View File

@ -242,7 +242,8 @@
[(date<? b a) #f] [(date<? b a) #f]
[else (string-ci<? (auto-bib-key a) (auto-bib-key b))])))) [else (string-ci<? (auto-bib-key a) (auto-bib-key b))]))))
(define (ambiguous? a b) (define (ambiguous? a b)
(and (string-ci=? (extract-bib-key a) (extract-bib-key b)) (and (string-ci=? (author-element-cite (extract-bib-author a))
(author-element-cite (extract-bib-author b)))
(auto-bib-date a) (auto-bib-date a)
(auto-bib-date b) (auto-bib-date b)
(date=? a b))) (date=? a b)))

7
collects/tests/scribble/docs/autobib-disambiguation.scrbl
View File

@ -12,11 +12,18 @@
#:location (dissertation-location #:institution "NEU") #:location (dissertation-location #:institution "NEU")
#:author (authors "Little" "Bo" "Peep") #:author (authors "Little" "Bo" "Peep")
#:date "2012")) #:date "2012"))
@(define c (make-bib #:title "Diss 3"
#:is-book? #t
#:location (dissertation-location #:institution "NEU")
#:author (authors "Little" "Bo" "Peep" "Peep2")
#:date "2012"))
According to the following people, According to the following people,
@cite[a] @cite[a]
@cite[b] @cite[b]
@cite[c]
@citet[a] @citet[a]
@citet[b] @citet[b]
@citet[c]
@cite[a b] @cite[a b]
@cite[b a] @cite[b a]
@citet[a b] @citet[a b]

11
collects/tests/scribble/docs/autobib-disambiguation.txt
View File

@ -1,9 +1,10 @@
According to the following people,  (Little et al. 2012a)  (Little et According to the following people,  (Little et al. 2012a)  (Little et
al. 2012b) Little et al. (2012a) Little et al. (2012b)  (Little et al. al. 2012b)  (Little et al. 2012c) Little et al. (2012a) Little et
2012a,b)  (Little et al. 2012b,a) Little et al. (2012a,b) Little et al. (2012b) Little et al. (2012c)  (Little et al. 2012a,b)  (Little et
al. (2012b,a) al. 2012b,a) Little et al. (2012a,b) Little et al. (2012b,a)
Bibliography Bibliography
Little, Bo, and Peep. Diss 1. PhD dissertation, NEU, 2012a. Little, Bo, and Peep. Diss 1. PhD dissertation, NEU, 2012a.
Little, Bo, and Peep. Diss 2. PhD dissertation, NEU, 2012b. Little, Bo, and Peep. Diss 2. PhD dissertation, NEU, 2012b.
Little, Bo, Peep, and Peep2. Diss 3. PhD dissertation, NEU, 2012c.