From d7aa944ebac6bed0c7986ede99bd0fa1fb1e61c3 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 16 Feb 2012 14:45:23 -0700 Subject: [PATCH] Squelch newline citations --- collects/scriblib/bibtex.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/scriblib/bibtex.rkt b/collects/scriblib/bibtex.rkt index 646e5ff057..11d56366f9 100644 --- a/collects/scriblib/bibtex.rkt +++ b/collects/scriblib/bibtex.rkt @@ -142,9 +142,13 @@ (define bibtex-db (path->bibdb bib-pth)) (define-cite autobib-cite autobib-citet generate-bibliography-id) (define ((make-citer citer) f . r) - (apply citer (map (curry generate-bib bibtex-db) - (append-map (curry regexp-split #rx" +") - (cons f r))))) + (apply citer + (filter-map + (λ (key) + (and (not (string=? "\n" key)) + (generate-bib bibtex-db key))) + (append-map (curry regexp-split #rx" +") + (cons f r))))) (define ~cite-id (make-citer autobib-cite)) (define citet-id (make-citer autobib-citet))))