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

Added the ability to disambiguate between citations using autobib.

Browse Source 
original commit: 2c63ce2286da4113baa9c32d5d75bf8189bcbb35
This commit is contained in:
James Ian Johnson 2012-03-07 12:31:55 -05:00 committed by Sam Tobin-Hochstadt
parent ce2dc58b4c
commit ca961ce44b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/scriblib/autobib.rkt
View File

@ -37,6 +37,9 @@
;; render the use of a citation.
(define (add-cite group bib-entry which with-specific? disambiguation)
(let ([key (auto-bib-key bib-entry)])
(when disambiguation
(for ([bib disambiguation])
(hash-set! (bib-group-ht group) (auto-bib-key bib) bib)))
(hash-set! (bib-group-ht group) key bib-entry)
(make-delayed-element
(lambda (renderer part ri)
@ -54,15 +57,15 @@
))) ;; should be a list of bib-entries with same author/date
(define disambiguation*
(add-between (for/list ([bib (in-list disambiguation)])
(define key (auto-bib-key bib))
(define maybe-disambiguation
(resolve-get part ri `(autobib-disambiguation ,(auto-bib-key bib))))
(resolve-get part ri `(autobib-disambiguation key)))
(case maybe-disambiguation
[(unambiguous) #f]
[else maybe-disambiguation]))
[else (make-link-element #f (list maybe-disambiguation) `(autobib ,key))]))
","))
(cond [(not (car disambiguation*)) '()] ;; the bib was unambiguous
[else
(list (make-link-element #f (list disambiguation*) `(autobib ,(auto-bib-key bib-entry))))])]
[else disambiguation*])]
[else '()])))
(lambda () "(???)")
(lambda () "(???)"))))