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-syntax-rule
(define-bibtex-cite bib-pth (define-bibtex-cite bib-pth
~cite-id citet-id generate-bibliography-id) ~cite-id citet-id generate-bibliography-id . options)
(begin (begin
(define bibtex-db (path->bibdb bib-pth)) (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) (define ((make-citer citer) f . r)
(apply citer (apply citer
(filter-map (filter-map

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

@ -9,11 +9,11 @@
@defmodule[scriblib/bibtex] @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. 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. 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.

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

@ -2,12 +2,32 @@
(require racket/runtime-path (require racket/runtime-path
tests/eli-tester tests/eli-tester
scriblib/bibtex scriblib/bibtex
scriblib/autobib
scribble/render scribble/render
(prefix-in text: scribble/text-render)) (prefix-in text: scribble/text-render))
(define-runtime-path example.bib "example.bib") (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")
(define-syntax-rule (test-render expected-path options body)
(let ()
(define-bibtex-cite example.bib
~cite-id citet-id generate-bibliography-id . options)
(body ~cite-id citet-id)
(define actual-path
(make-temporary-file "~a-bibtex.txt"))
(render (list (generate-bibliography-id))
(list actual-path)
#:dest-dir (path-only actual-path)
#:render-mixin text:render-mixin)
(test
(file->string actual-path) => (file->string expected-path))))
(test (test
(let () (let ()
@ -19,30 +39,22 @@
(hash-ref (hash-ref raw "sweig42a") "month") => "1~mar" (hash-ref (hash-ref raw "sweig42a") "month") => "1~mar"
(hash-ref (hash-ref raw "sweig42b") "month") => "1~march" (hash-ref (hash-ref raw "sweig42b") "month") => "1~march"
(hash-ref (hash-ref raw "sweig42c") "month") => "1~marcha")) (hash-ref (hash-ref raw "sweig42c") "month") => "1~marcha"))
(let ()
(define-bibtex-cite example.bib
~cite-id citet-id generate-bibliography-id)
(~cite-id "salib:starkiller") (test-render normal-expected-path ()
(~cite-id "cryptoeprint:2000:067") (λ (~cite-id citet-id)
(~cite-id "Tobin-Hochstadt:2011fk") (~cite-id "salib:starkiller")
(~cite-id "cryptoeprint:2000:067" "Tobin-Hochstadt:2011fk") (~cite-id "cryptoeprint:2000:067")
(~cite-id "cryptoeprint:2000:067 Tobin-Hochstadt:2011fk") (~cite-id "Tobin-Hochstadt:2011fk")
(~cite-id "cryptoeprint:2000:067" "Tobin-Hochstadt:2011fk")
(citet-id "salib:starkiller") (~cite-id "cryptoeprint:2000:067 Tobin-Hochstadt:2011fk")
(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")
(define actual-path
(make-temporary-file "~a-bibtex.txt"))
(render (list (generate-bibliography-id))
(list actual-path)
#:dest-dir (path-only actual-path)
#:render-mixin text:render-mixin)
(test
(file->string actual-path) => (file->string expected-path))))
(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"))))