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

Squelch newline citations

Browse Source
This commit is contained in:
Jay McCarthy 2012-02-16 14:45:23 -07:00
parent a884c91720
commit d7aa944eba
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scriblib/bibtex.rkt
View File

@ -142,7 +142,11 @@
(define bibtex-db (path->bibdb bib-pth)) (define bibtex-db (path->bibdb bib-pth))
(define-cite autobib-cite autobib-citet generate-bibliography-id) (define-cite autobib-cite autobib-citet generate-bibliography-id)
(define ((make-citer citer) f . r) (define ((make-citer citer) f . r)
(apply citer (map (curry generate-bib bibtex-db) (apply citer
(filter-map
(λ (key)
(and (not (string=? "\n" key))
(generate-bib bibtex-db key)))
(append-map (curry regexp-split #rx" +") (append-map (curry regexp-split #rx" +")
(cons f r))))) (cons f r)))))
(define ~cite-id (make-citer autobib-cite)) (define ~cite-id (make-citer autobib-cite))