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

scriblb/bibtex: fix author parsing

Browse Source 
Closes #2.
This commit is contained in:
Matthew Flatt 2015-03-26 13:33:36 -06:00
parent 76e3ed8ec3
commit 5ab18e0db8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scribble-lib/scriblib/bibtex.rkt
View File

@ -221,13 +221,16 @@
[(list one) (org-author-name one)] [(list one) (org-author-name one)]
[(list one two) (author-name one two)] [(list one two) (author-name one two)]
[(list-rest first rest) [(list-rest first rest)
(author-name first (apply string-append (add-between rest " ")))]))))) (author-name (apply string-append (add-between (cons first (drop-right rest 1))
" "))
(last rest))])))))
(module+ test (module+ test
(require rackunit) (require rackunit)
;; use this as a predicate to hack around lack of ;; use this as a predicate to hack around lack of
;; ability to use equal? on author element structs ;; ability to use equal? on author element structs;
;; unfortunately, it ony compares the composed strings
(define (print-as-equal-string? a b) (define (print-as-equal-string? a b)
(equal? (format "~s" a) (equal? (format "~s" a)
(format "~s" b))) (format "~s" b)))