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

Support all define-cite options in define-bibtex-cite

Browse Source 
original commit: 5bb51aff4c36253db680ff9bfa76801d7388b48b
This commit is contained in:
Jay McCarthy 2013-03-25 08:24:45 -06:00
parent 8f72339a18
commit cb442ffa94
5 changed files with 50 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scriblib/bibtex.rkt
View File

@ -189,10 +189,10 @@
(define-syntax-rule
(define-bibtex-cite bib-pth
~cite-id citet-id generate-bibliography-id)
~cite-id citet-id generate-bibliography-id . options)
(begin
(define bibtex-db (path->bibdb bib-pth))
(define-cite autobib-cite autobib-citet generate-bibliography-id)
(define-cite autobib-cite autobib-citet generate-bibliography-id . options)
(define ((make-citer citer) f . r)
(apply citer
(filter-map

4
collects/scriblib/scribblings/bibtex.scrbl
View File

@ -9,11 +9,11 @@
@defmodule[scriblib/bibtex]
@defform[(define-bibtex-cite bib-pth ~cite-id citet-id generate-bibliography-id)]{
@defform[(define-bibtex-cite bib-pth ~cite-id citet-id generate-bibliography-id . options)]{
Parses @racket[bib-pth] as a BibTeX database.
Uses @racket[define-cite] from @racketmodname[scriblib/autobib], but augments the @racket[~cite-id] and @racket[citet-id] functions so that rather than accepting @racket[bib?] structures, they accept citation key strings.
Uses @racket[define-cite] from @racketmodname[scriblib/autobib], but augments the @racket[~cite-id] and @racket[citet-id] functions so that rather than accepting @racket[bib?] structures, they accept citation key strings. Any @racket[options] are given to @racket[define-cite] without interpretation.
Each string is broken along spaces into citations keys that are looked up in the BibTeX database and turned into @racket[bib?] structures.

0
collects/tests/scriblib/bibtex.txt → collects/tests/scriblib/bibtex.normal.txt
View File

8
collects/tests/scriblib/bibtex.number.txt Normal file
View File

@ -0,0 +1,8 @@
Bibliography
[1]Ran Canetti. Universally Composable Security: A New Paradigm for
Cryptographic Protocols. 2000.
[2]Michael Salib. Starkiller: A Static Type Inferencer and Compiler for
Python. Massachusetts Institute of Technology, 2004.
[3]Sam Tobin-Hochstadt, Vincent St-Amour, Ryan Culpepper, Matthew Flatt,
and Matthias Felleisen. Languages as Libraries. In Proc. PLDI, 2011.

58
collects/tests/scriblib/bibtex.rkt
View File

@ -2,38 +2,21 @@
(require racket/runtime-path
tests/eli-tester
scriblib/bibtex
scriblib/autobib
scribble/render
(prefix-in text: scribble/text-render))
(define-runtime-path example.bib "example.bib")
(define-runtime-path expected-path "bibtex.txt")
(define-runtime-path normal-expected-path "bibtex.normal.txt")
(define-runtime-path number-expected-path "bibtex.number.txt")
(test
(let ()
(define example (path->bibdb example.bib))
(define raw (bibdb-raw example))
(test
(hash-ref (hash-ref raw "sweig42") "month") => "march"
(hash-ref (hash-ref raw "sweig42a") "month") => "1~mar"
(hash-ref (hash-ref raw "sweig42b") "month") => "1~march"
(hash-ref (hash-ref raw "sweig42c") "month") => "1~marcha"))
(define-syntax-rule (test-render expected-path options body)
(let ()
(define-bibtex-cite example.bib
~cite-id citet-id generate-bibliography-id)
~cite-id citet-id generate-bibliography-id . options)
(~cite-id "salib:starkiller")
(~cite-id "cryptoeprint:2000:067")
(~cite-id "Tobin-Hochstadt:2011fk")
(~cite-id "cryptoeprint:2000:067" "Tobin-Hochstadt:2011fk")
(~cite-id "cryptoeprint:2000:067 Tobin-Hochstadt:2011fk")
(citet-id "salib:starkiller")
(citet-id "cryptoeprint:2000:067")
(citet-id "Tobin-Hochstadt:2011fk")
(citet-id "Tobin-Hochstadt:2011fk" "Tobin-Hochstadt:2011fk")
(citet-id "Tobin-Hochstadt:2011fk Tobin-Hochstadt:2011fk")
(body ~cite-id citet-id)
(define actual-path
(make-temporary-file "~a-bibtex.txt"))
@ -46,3 +29,32 @@
(test
(file->string actual-path) => (file->string expected-path))))
(test
(let ()
(define example (path->bibdb example.bib))
(define raw (bibdb-raw example))
(test
(hash-ref (hash-ref raw "sweig42") "month") => "march"
(hash-ref (hash-ref raw "sweig42a") "month") => "1~mar"
(hash-ref (hash-ref raw "sweig42b") "month") => "1~march"
(hash-ref (hash-ref raw "sweig42c") "month") => "1~marcha"))
(test-render normal-expected-path ()
(λ (~cite-id citet-id)
(~cite-id "salib:starkiller")
(~cite-id "cryptoeprint:2000:067")
(~cite-id "Tobin-Hochstadt:2011fk")
(~cite-id "cryptoeprint:2000:067" "Tobin-Hochstadt:2011fk")
(~cite-id "cryptoeprint:2000:067 Tobin-Hochstadt:2011fk")
(citet-id "salib:starkiller")
(citet-id "cryptoeprint:2000:067")
(citet-id "Tobin-Hochstadt:2011fk")
(citet-id "Tobin-Hochstadt:2011fk" "Tobin-Hochstadt:2011fk")
(citet-id "Tobin-Hochstadt:2011fk Tobin-Hochstadt:2011fk")))
(test-render number-expected-path (#:style number-style)
(λ (~cite-id citet-id)
(citet-id "salib:starkiller")
(citet-id "cryptoeprint:2000:067")
(citet-id "Tobin-Hochstadt:2011fk"))))