39 lines
774 B
Racket
39 lines
774 B
Racket
#lang at-exp racket
|
|
|
|
(provide setup-math)
|
|
|
|
(require scribble/html-properties
|
|
scribble/latex-properties
|
|
scribble/base
|
|
scribble/core)
|
|
|
|
(require scriblib/render-cond)
|
|
|
|
(require "unicode-chars.sty.rkt")
|
|
|
|
(define setup-math
|
|
(cond-element
|
|
[(and (or html))
|
|
(elem #:style (style #f (list)) '())]
|
|
[latex
|
|
(elem #:style (style
|
|
#f (list (tex-addition (string->bytes/utf-8 @string-append{
|
|
%\overfullrule=2cm
|
|
\usepackage[scaled=0.7]{beramono}
|
|
\usepackage{newunicodechar}
|
|
%\newunicodechar{ᵢ}{\ensuremath{_1}}
|
|
|
|
\usepackage{xcolor}
|
|
\hypersetup{
|
|
unicode=true,
|
|
colorlinks=true,
|
|
linkcolor={red!50!white!50!black},
|
|
citecolor={blue!50!black},
|
|
urlcolor={blue!80!black},
|
|
}
|
|
|
|
@unicode-chars
|
|
}))))
|
|
"")]
|
|
[else (elem)]))
|