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

fix use of the second argument to in-bib

Browse Source 
original commit: 6ffa068e1e5f03e9bb1cf7500a97294858f89a71
This commit is contained in:
Matthew Flatt 2010-07-20 14:02:50 -06:00
parent f07b92ff0d
commit a13f1ea81d
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/scriblib/autobib.rkt
View File

@ -30,13 +30,16 @@
(define-struct (author-element element) (names cite))
(define-struct (other-author-element author-element) ())
(define (add-cite group bib-entry which)
(define (add-cite group bib-entry which with-specific?)
(hash-set! (bib-group-ht group) bib-entry #t)
(make-delayed-element
(lambda (renderer part ri)
(let ([s (resolve-get part ri `(,which ,(auto-bib-key bib-entry)))])
(list (make-link-element #f
(list (or s "???") (auto-bib-specific bib-entry))
(list (or s "???")
(if with-specific?
(auto-bib-specific bib-entry)
""))
`(autobib ,(auto-bib-key bib-entry))))))
(lambda () "(???)")
(lambda () "(???)")))
@ -47,12 +50,12 @@
(error 'citet "citet must be used with identical authors, given ~a" (map auto-bib-author bib-entries)))
(make-element
#f
(list (add-cite group (car bib-entries) 'autobib-author)
(list (add-cite group (car bib-entries) 'autobib-author #f)
'nbsp
"("
(let loop ([keys bib-entries])
(if (null? (cdr keys))
(add-cite group (car keys) 'autobib-date)
(add-cite group (car keys) 'autobib-date #t)
(make-element
#f
(list (loop (list (car keys)))
@ -70,9 +73,9 @@
(make-element
#f
(list
(add-cite group (car keys) 'autobib-author)
(add-cite group (car keys) 'autobib-author #f)
" "
(add-cite group (car keys) 'autobib-date)))
(add-cite group (car keys) 'autobib-date #t)))
(make-element
#f
(list (loop (list (car keys)))