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.
35 lines
835 B
Racket
35 lines
835 B
Racket
11 years ago
|
#lang racket/base
|
||
|
|
(require pollen/convert)
|
||
|
|
|
||
|
|
(provide $ $$)
|
||
|
|
|
||
|
|
(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 first-run #t)
|
||
|
|
|
||
|
|
(define (mathjax-wrapper #:delimiter delimiter xs)
|
||
|
|
`(mathjax
|
||
|
|
,@(if first-run ; only need mathjax-config & mathjax-library once on the page
|
||
|
|
(begin (set! first-run #f) (map html->xexpr (list mathjax-config mathjax-library)))
|
||
|
|
null)
|
||
|
|
,(apply string-append `(,delimiter ,@xs ,delimiter))))
|
||
|
|
|
||
|
|
(define ($ . x)
|
||
|
|
(mathjax-wrapper #:delimiter "$" x))
|
||
|
|
|
||
|
|
|
||
|
|
(define ($$ . x)
|
||
|
|
(mathjax-wrapper #:delimiter "$$" x))
|