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

Throw an error when required fields are missing, rather than letting scribble error

Browse Source 
original commit: 2d0d4823a78147cc9fa4dfa85fc09a5a609ac2d1
This commit is contained in:
Jay McCarthy 2012-01-12 15:48:23 -07:00
parent e151e32b82
commit 3b50061de1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scriblib/bibtex.rkt
View File

@ -171,6 +171,10 @@
(define the-raw (hash-ref raw key (λ () (error 'bibtex "Unknown citation ~e" key))))
(define (raw-attr a [def #f])
(hash-ref the-raw a def))
(define (raw-attr* a)
(hash-ref the-raw a
(λ () (error 'bibtex "Key ~a is missing attribute ~a, has ~a"
key a the-raw))))
(match (raw-attr 'type)
["misc"
(make-bib #:title (raw-attr "title")
@ -187,7 +191,7 @@
(make-bib #:title (raw-attr "title")
#:author (parse-author (raw-attr "author"))
#:date (raw-attr "year")
#:location (journal-location (raw-attr "journal")
#:location (journal-location (raw-attr* "journal")
#:pages (parse-pages (raw-attr "pages"))
#:number (raw-attr "number")
#:volume (raw-attr "volume"))