You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
pollen/math.rkt

28 lines
643 B
Racket

#lang racket/base
(require pollen/convert)
(provide $ $$ mathjax-config mathjax-library)
(define mathjax-config #<<HTML
<script type="text/x-mathjax-config">
MathJax.Hub.Config({tex2jax: {inlineMath: [['$','$']]}});
</script>
HTML
)
(define mathjax-library #<<HTML
<script type="text/javascript"
src="http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML">
</script>
HTML
)
(define (mathjax-wrapper #:delimiter delimiter xs)
`(mathjax ,(apply string-append `(,delimiter ,@xs ,delimiter))))
(define ($ . x)
(mathjax-wrapper #:delimiter "$" x))
(define ($$ . x)
(mathjax-wrapper #:delimiter "$$" x))