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

Changed " +" to "\\s+" in parse-author. Added more test for Last,First format for names in bibtex.

Browse Source
This commit is contained in:
Georges Dupéron 2017-05-17 17:33:07 +02:00
parent aee15712e5
commit d34569cebe
1 changed files with 71 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,7 +209,7 @@
(λ (key)
(and (not (string=? "\n" key))
(generate-bib bibtex-db key)))
(append-map (curry regexp-split #rx" +")
(append-map (curry regexp-split #px"\\s+")
(cons f r)))))
(define ~cite-id (make-citer autobib-cite))
(define citet-id (make-citer autobib-citet))))
@ -217,9 +217,9 @@
(define (parse-author as)
(and as
(apply authors
(for/list ([a (in-list (regexp-split #rx" +and *" as))])
(for/list ([a (in-list (regexp-split #px"\\s+and\\s+" as))])
(define (trim s)
(string-trim (regexp-replace #rx" +" s " ")))
(string-trim (regexp-replace #px"\\s+" s " ")))
(match a
[(pregexp #px"^(.*),(.*),(.*)$" (list _ two suffix one))
(author-name (trim one) (trim two) #:suffix (trim suffix))]
@ -228,7 +228,7 @@
[(pregexp #px"^(.*) (von|de la|van der) (.*)$" (list _ one von-like two))
(author-name (string-trim one) (string-append von-like " " (string-trim two)))]
[space-separated
(match (regexp-split #rx" +" space-separated)
(match (regexp-split #px"\\s+" space-separated)
[(list one) (org-author-name one)]
[(list one two) (author-name one two)]
[(list-rest first rest)
@ -272,36 +272,96 @@
(authors
(author-name "Fst" "Lst")))
(check
print-as-equal-string?
(parse-author "Lst,Fst")
(authors
(author-name "Fst" "Lst")))
(check
print-as-equal-string?
(parse-author "James, Earl Jones")
(authors
(author-name "Earl Jones" "James")))
(check
print-as-equal-string?
(parse-author "James,Earl Jones")
(authors
(author-name "Earl Jones" "James")))
(check
print-as-equal-string?
(parse-author "LstA LstB, Fst")
(authors
(author-name "Fst" "LstA LstB")))
(check
print-as-equal-string?
(parse-author "LstA LstB,Fst")
(authors
(author-name "Fst" "LstA LstB")))
(check
print-as-equal-string?
(parse-author "LstA LstB, FstA FstB")
(authors
(author-name "FstA FstB" "LstA LstB")))
(check
print-as-equal-string?
(parse-author "LstA LstB,FstA FstB")
(authors
(author-name "FstA FstB" "LstA LstB")))
(check
print-as-equal-string?
(parse-author "James, Jr, Earl Jones")
(authors
(author-name "Earl Jones" "James" #:suffix "Jr")))
(check
print-as-equal-string?
(parse-author "James,Jr, Earl Jones")
(authors
(author-name "Earl Jones" "James" #:suffix "Jr")))
(check
print-as-equal-string?
(parse-author "James, Jr,Earl Jones")
(authors
(author-name "Earl Jones" "James" #:suffix "Jr")))
(check
print-as-equal-string?
(parse-author "James,Jr,Earl Jones")
(authors
(author-name "Earl Jones" "James" #:suffix "Jr")))
(check
print-as-equal-string?
(parse-author "James, III, Earl Jones")
(authors
(author-name "Earl Jones" "James" #:suffix "III")))
(check
print-as-equal-string?
(parse-author "James,III, Earl Jones")
(authors
(author-name "Earl Jones" "James" #:suffix "III")))
(check
print-as-equal-string?
(parse-author "James, III,Earl Jones")
(authors
(author-name "Earl Jones" "James" #:suffix "III")))
(check
print-as-equal-string?
(parse-author "James,III,Earl Jones")
(authors
(author-name "Earl Jones" "James" #:suffix "III")))
(check
print-as-equal-string?
(parse-author "James Jack von Earl Jones")
@ -326,7 +386,13 @@
(authors (author-name "Edward L." "Deci")
(author-name "Robert J." "Vallerand")
(author-name "Luc G." "Pelletier")
(author-name "Richard M." "Ryan" #:suffix "Jr"))))
(author-name "Richard M." "Ryan" #:suffix "Jr")))
(check
print-as-equal-string?
(parse-author "Foo anderson") ;; Should not be parsed as the two authors "Foo" & "erson"
(authors
(author-name "Foo" "anderson"))))
(define (parse-pages ps)
(match ps