224 lines
6.4 KiB
Racket
224 lines
6.4 KiB
Racket
#lang racket/base
|
||
|
||
(require scribble/manual
|
||
scribble/core
|
||
scribble/html-properties
|
||
scribble/latex-properties
|
||
scriblib/render-cond
|
||
racket/runtime-path
|
||
setup/collects)
|
||
|
||
(provide $
|
||
$$
|
||
$-html-handler
|
||
$$-html-handler
|
||
$-katex
|
||
$$-katex
|
||
$-mathjax
|
||
$$-mathjax
|
||
use-katex
|
||
use-mathjax
|
||
with-html5)
|
||
|
||
;; KaTeX does not work well with the HTML 4.01 Transitional loose DTD,
|
||
;; so we define a style modifier which replaces the prefix for HTML rendering.
|
||
(define (with-html5 doc-style)
|
||
(define has-html-defaults? (memf html-defaults? (style-properties doc-style)))
|
||
(define new-properties
|
||
(if has-html-defaults?
|
||
(map (λ (s)
|
||
(if (html-defaults? s)
|
||
(html-defaults (path->collects-relative
|
||
(collection-file-path "html5-prefix.html"
|
||
"scribble-math"))
|
||
(html-defaults-style-path s)
|
||
(html-defaults-extra-files s))
|
||
s))
|
||
(style-properties doc-style))
|
||
(cons (html-defaults (path->collects-relative
|
||
(collection-file-path "html5-prefix.html"
|
||
"scribble-math"))
|
||
#f
|
||
'()))))
|
||
(style (style-name doc-style)
|
||
new-properties))
|
||
|
||
|
||
|
||
(define-runtime-path mathjax-dir "MathJax")
|
||
(define-runtime-path katex-dir "katex")
|
||
#|
|
||
(define mathjax-dir
|
||
(path->collects-relative
|
||
(collection-file-path "MathJax" "scribble-math")))
|
||
|#
|
||
|
||
(define (load-script-string src)
|
||
(string-append
|
||
#<<eojs
|
||
(function() {
|
||
document.write('<scr' + 'ipt type="text/javascript" src="
|
||
eojs
|
||
src
|
||
#<<eojs
|
||
"></scr' + 'ipt>');
|
||
})();
|
||
eojs
|
||
))
|
||
|
||
(define (load-style-string src)
|
||
(string-append
|
||
#<<eojs
|
||
(function() {
|
||
document.write('<link rel="stylesheet" href="
|
||
eojs
|
||
src
|
||
#<<eojs
|
||
" />');
|
||
})();
|
||
eojs
|
||
))
|
||
|
||
(define load-mathjax-code
|
||
(string->bytes/utf-8
|
||
(load-script-string "MathJax/MathJax.js?config=default")))
|
||
|
||
(define load-katex-code+style
|
||
(string->bytes/utf-8
|
||
(string-append (load-style-string "katex/katex.min.css")
|
||
(load-script-string "katex/katex.min.js")
|
||
#<<eojs
|
||
(function(f) {
|
||
// A "simple" onLoad function
|
||
if (window.document.readyState == "complete") {
|
||
f();
|
||
} else if (window.document.addEventListener) {
|
||
window.document.addEventListener("DOMContentLoaded", f, false);
|
||
} else if (window.attachEvent) {
|
||
window.attachEvent("onreadystatechange", function() {
|
||
if (window.document.readyState == "complete") {
|
||
f();
|
||
}
|
||
});
|
||
} else {
|
||
var oldLoad = window.onload;
|
||
if (typeof(oldLoad) == "function") {
|
||
window.onload = function() {
|
||
try {
|
||
oldLoad();
|
||
} finally {
|
||
f();
|
||
}
|
||
};
|
||
} else {
|
||
window.onload = f;
|
||
}
|
||
}
|
||
})(function() {
|
||
// This is an ugly way to change the doctype, in case the scribble document
|
||
// did not use (with-html5).
|
||
if (!(document.doctype && document.doctype.publicId == '')) {
|
||
if (console && console.log) {
|
||
console.log("Re-wrote the document to use the HTML5 doctype.\n"
|
||
+ " Consider using the following declaration:\n"
|
||
+ " @title[#:style (with-html5 manual-doc-style)]{…}");
|
||
}
|
||
var wholeDoc = '<!doctype HTML>\n' + document.documentElement.outerHTML;
|
||
document.open();
|
||
document.clear();
|
||
document.write(wholeDoc);
|
||
}
|
||
var inlineElements = document.getElementsByClassName("tex-math-inline");
|
||
for (var i = 0; i < inlineElements.length; i++) {
|
||
var e = inlineElements[i];
|
||
katex.render(e.textContent, e, { displayMode:false, throwOnError:false });
|
||
}
|
||
var displayElements = document.getElementsByClassName("tex-math-display");
|
||
for (var i = 0; i < displayElements.length; i++) {
|
||
var e = displayElements[i];
|
||
katex.render(e.textContent, e, { displayMode:true, throwOnError:false });
|
||
}
|
||
});
|
||
eojs
|
||
)))
|
||
|
||
(define math-inline-style-mathjax
|
||
(make-style "tex-math"
|
||
(list #;(make-css-addition math-inline.css)
|
||
#;(make-tex-addition math-inline.tex)
|
||
(install-resource mathjax-dir)
|
||
(js-addition load-mathjax-code)
|
||
'exact-chars)))
|
||
|
||
(define math-display-style-mathjax
|
||
(make-style "tex-math"
|
||
(list #;(make-css-addition math-inline.css)
|
||
#;(make-tex-addition math-inline.tex)
|
||
(install-resource mathjax-dir)
|
||
(js-addition load-mathjax-code)
|
||
'exact-chars)))
|
||
|
||
(define math-inline-style-katex
|
||
(make-style "tex-math-inline"
|
||
(list (install-resource katex-dir)
|
||
(js-addition load-katex-code+style)
|
||
'exact-chars)))
|
||
|
||
(define math-display-style-katex
|
||
(make-style "tex-math-display"
|
||
(list (install-resource katex-dir)
|
||
(js-addition load-katex-code+style)
|
||
'exact-chars)))
|
||
|
||
(define ($-mathjax strs)
|
||
(make-element math-inline-style-mathjax `("$" ,@strs "$")))
|
||
|
||
(define ($-katex strs)
|
||
(make-element math-inline-style-katex strs))
|
||
|
||
(define ($$-mathjax strs)
|
||
(make-element math-display-style-mathjax `("\\[" ,@strs "\\]")))
|
||
|
||
(define ($$-katex strs)
|
||
(make-element math-display-style-katex strs))
|
||
|
||
(define $-html-handler (make-parameter $-katex))
|
||
(define $$-html-handler (make-parameter $$-katex))
|
||
|
||
(define (use-katex)
|
||
($-html-handler $-katex)
|
||
($$-html-handler $$-katex)
|
||
(void))
|
||
|
||
(define (use-mathjax)
|
||
($-html-handler $-mathjax)
|
||
($$-html-handler $$-mathjax)
|
||
(void))
|
||
|
||
(define ($ s . strs)
|
||
(cond-element
|
||
[html (($-html-handler) `(,s . ,strs))]
|
||
[latex `("$" ,s ,@strs "$")]
|
||
;; TODO: use a unicode representation of math, e.g. x^2 becomes x²
|
||
[else `(,s . ,strs)]))
|
||
|
||
(define ($$ s . strs)
|
||
(cond-element
|
||
[html (($$-html-handler) `(,s . ,strs))]
|
||
[latex `("\\[" ,s ,@strs "\\]")]
|
||
;; TODO: use a spatial representation of display math, e.g.
|
||
;; \sum_{i=0}^n x_i^2
|
||
;; becomes:
|
||
;; n
|
||
;; ───
|
||
;; ╲ 2
|
||
;; 〉 x
|
||
;; ╱ i
|
||
;; ───
|
||
;; i=0
|
||
;; Or use a spatial unicode representation, so that the above becomes:
|
||
;; n
|
||
;; ∑ xᵢ²
|
||
;; i=0
|
||
[else `(,s . ,strs)]))
|