suzanne.soy/scribble-math
1
0
Fork 0
Code Issues 8 Pull Requests 3 Actions Packages Projects Releases Wiki Activity

eliminate inline javascript for mathjax loading #14

Open
jbclements wants to merge 1 commits from jbclements/mathjax-no-inline-script into main
pull from: jbclements/mathjax-no-inline-script
merge into: suzanne.soy:main
Conversation 0 Commits 1 Files Changed 1 +11 -10
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
dollar.rkt
View File

@ -14,7 +14,8 @@
(only-in racket/match match) (only-in racket/match match)
(only-in racket/system process) (only-in racket/system process)
(only-in racket/port port->string) (only-in racket/port port->string)
(for-syntax racket/base)) (for-syntax racket/base)
(only-in net/url string->url))
(provide $ (provide $
$$ $$
@ -148,13 +149,13 @@ EOJS
EOJS EOJS
)) ))
(define load-mathjax-code ;; To avoid the need to alter the MathJax configuration, add:
(string->bytes/utf-8 ;; <script type="text/x-mathjax-config">
;; To avoid the need to alter the MathJax configuration, add: ;; MathJax.Hub.Config({ tex2jax: {inlineMath: [['$','$']]} });
;; <script type="text/x-mathjax-config"> ;; </script>
;; MathJax.Hub.Config({ tex2jax: {inlineMath: [['$','$']]} }); (define mathjax-path
;; </script> (string->url (or (use-external-mathjax) "MathJax/MathJax.js?config=default")))
(load-script-string (or (use-external-mathjax) "MathJax/MathJax.js?config=default"))))
#;(define load-mathjax-code #;(define load-mathjax-code
(string->bytes/utf-8 (string->bytes/utf-8
@ -278,7 +279,7 @@ EOTEX
(append (list (alt-tag "span")) (append (list (alt-tag "span"))
#;(list (make-css-addition math-inline.css)) #;(list (make-css-addition math-inline.css))
(if (use-external-mathjax) '() (list (install-resource mathjax-dir))) (if (use-external-mathjax) '() (list (install-resource mathjax-dir)))
(list (js-addition load-mathjax-code)) (list (js-addition mathjax-path))
(list 'exact-chars)))) (list 'exact-chars))))
(define math-display-style-mathjax (define math-display-style-mathjax
@ -286,7 +287,7 @@ EOTEX
(append (list (alt-tag "div")) (append (list (alt-tag "div"))
#;(list (make-css-addition math-inline.css)) #;(list (make-css-addition math-inline.css))
(if (use-external-mathjax) '() (list (install-resource mathjax-dir))) (if (use-external-mathjax) '() (list (install-resource mathjax-dir)))
(list (js-addition load-mathjax-code)) (list (js-addition mathjax-path))
(list 'exact-chars)))) (list 'exact-chars))))
(define math-inline-style-katex (define math-inline-style-katex