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

* Changed bibtex author parsing to handle missing author field.

Browse Source 
* Changed cite in autobib to handle missing author field.

original commit: b30ed6ef03f250fda4abfd6332137b8a35c3e1b6
This commit is contained in:
William J. Bowman 2013-08-21 18:37:56 -04:00 committed by Matthew Flatt
parent af6cf8d1a6
commit 546e790ff4
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/scribble-pkgs/scribble-lib/scriblib/autobib.rkt
View File

@ -148,7 +148,7 @@
(append (append
(list 'nbsp (send style get-cite-open)) (list 'nbsp (send style get-cite-open))
(add-between (add-between
(for/list ([k (if sort? (sort keys string-ci<?) keys)]) (for/list ([k (if sort? (sort keys (lambda (x y) (if (not (and x y)) x (string-ci<? x y)))) keys)])
(let ([v (hash-ref groups k)]) (let ([v (hash-ref groups k)])
(make-element (make-element
#f #f

5
pkgs/scribble-pkgs/scribble-lib/scriblib/bibtex.rkt
View File

@ -214,12 +214,13 @@
(define citet-id (make-citer autobib-citet)))) (define citet-id (make-citer autobib-citet))))
(define (parse-author as) (define (parse-author as)
(apply authors (and as
(apply authors
(for/list ([a (in-list (regexp-split #rx" *and *" as))]) (for/list ([a (in-list (regexp-split #rx" *and *" as))])
(match (regexp-split #rx" +" a) (match (regexp-split #rx" +" a)
[(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) (author-name first (apply string-append (add-between rest " ")))])))) [(list-rest first rest) (author-name first (apply string-append (add-between rest " ")))])))))
(define (parse-pages ps) (define (parse-pages ps)
(match ps (match ps
[(regexp #rx"^([0-9]+)\\-+([0-9]+)$" (list _ f l)) [(regexp #rx"^([0-9]+)\\-+([0-9]+)$" (list _ f l))