From 02f46b6da64c0f34237f1f36489ef1bacc58d4bd Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 11 Apr 2011 11:03:42 -0600 Subject: [PATCH] Initial bibtex fakery original commit: e8d3ce3f3f5d915fda41b67f2845a5500faa404b --- collects/scriblib/bibtex.rkt | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 collects/scriblib/bibtex.rkt diff --git a/collects/scriblib/bibtex.rkt b/collects/scriblib/bibtex.rkt new file mode 100644 index 00000000..f0e638bb --- /dev/null +++ b/collects/scriblib/bibtex.rkt @@ -0,0 +1,22 @@ +#lang racket/base +(require racket/function) + +(define-syntax-rule + (define-bibtex this-generate-bib this-cite bib-pth) + (begin + (define bibtex-db (path->bibdb bib-pth)) + (define this-generate-bib + (curry generate-bib bibtex-db)) + (define this-cite + (curry cite bibtex-db)))) + +(define (path->bibdb pth) + #f) + +(define (generate-bib db style) + "XXX") + +(define (cite db . keys) + "XXX") + +(provide define-bibtex) \ No newline at end of file