#lang racket/base (require "convert.rkt") (provide $ $$ mathjax-config mathjax-library) (define mathjax-config #< MathJax.Hub.Config({tex2jax: {inlineMath: [['$','$']]}}); HTML ) (define mathjax-library #< 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))