From 199dccd53cb7e4e8ae4a8c6e2fc957dad268ecae Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Mon, 10 Jun 2024 21:58:12 -0700
Subject: [PATCH] eliminate inline javascript for mathjax loading, to play
 nicely with some CSP declarations

---
 dollar.rkt | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

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:
-   ;; <script type="text/x-mathjax-config">
-   ;;   MathJax.Hub.Config({ tex2jax: {inlineMath: [['$','$']]} });
-   ;; </script>
-   (load-script-string (or (use-external-mathjax) "MathJax/MathJax.js?config=default"))))
+;; To avoid the need to alter the MathJax configuration, add:
+;; <script type="text/x-mathjax-config">
+;;   MathJax.Hub.Config({ tex2jax: {inlineMath: [['$','$']]} });
+;; </script>
+(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