diff --git a/dollar.rkt b/dollar.rkt index 06ae3ae2d..933baa161 100644 --- a/dollar.rkt +++ b/dollar.rkt @@ -14,7 +14,8 @@ (only-in racket/match match) (only-in racket/system process) (only-in racket/port port->string) - (for-syntax racket/base)) + (for-syntax racket/base) + (only-in net/url string->url)) (provide $ $$ @@ -148,13 +149,13 @@ EOJS EOJS )) -(define load-mathjax-code - (string->bytes/utf-8 - ;; To avoid the need to alter the MathJax configuration, add: - ;; - (load-script-string (or (use-external-mathjax) "MathJax/MathJax.js?config=default")))) +;; To avoid the need to alter the MathJax configuration, add: +;; +(define mathjax-path + (string->url (or (use-external-mathjax) "MathJax/MathJax.js?config=default"))) + #;(define load-mathjax-code (string->bytes/utf-8 @@ -278,7 +279,7 @@ EOTEX (append (list (alt-tag "span")) #;(list (make-css-addition math-inline.css)) (if (use-external-mathjax) '() (list (install-resource mathjax-dir))) - (list (js-addition load-mathjax-code)) + (list (js-addition mathjax-path)) (list 'exact-chars)))) (define math-display-style-mathjax @@ -286,7 +287,7 @@ EOTEX (append (list (alt-tag "div")) #;(list (make-css-addition math-inline.css)) (if (use-external-mathjax) '() (list (install-resource mathjax-dir))) - (list (js-addition load-mathjax-code)) + (list (js-addition mathjax-path)) (list 'exact-chars)))) (define math-inline-style-katex