22 lines
429 B
Racket
22 lines
429 B
Racket
#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) |