gui/collects/mrlib/tex-table.rkt
Casey Klein a0d21c5c08 Revert "Adds support for inserting more arrow characters by their LaTex names"
This reverts commit a12491bb89030eda9635e0a1925dd60c8ea6d668, in which
the documentation won't build as PDF.

original commit: f293ace98d41150d8df1b3adc1be1de8d7ad5f13
2010-12-11 01:40:51 -06:00

196 lines
3.9 KiB
Racket
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#lang scheme/base
(require scheme/contract)
(define (string-len-one? x)
(and (string? x)
(= 1 (string-length x))))
(provide/contract
[tex-shortcut-table
(listof (list/c string? string-len-one?))])
(define tex-shortcut-table
'(("Downarrow" "")
("nwarrow" "")
("downarrow" "")
("Rightarrow" "")
("rightarrow" "")
("mapsto" "")
("searrow" "")
("swarrow" "")
("leftarrow" "")
("uparrow" "")
("Leftarrow" "")
("longrightarrow" "")
("Uparrow" "")
("Leftrightarrow" "")
("updownarrow" "")
("leftrightarrow" "")
("nearrow" "")
("Updownarrow" "")
;; arrows that didn't come out right in copy & paste
;←− \longleftarrow
;⇐= \Longleftarrow
;← 􏰂 \hookleftarrow
;←→ \longleftrightarrow
;􏰁 → \hookrightarrow
;⇐⇒ \Longleftrightarrow
;􏴲 \leadsto
;􏰃−→ \longmapsto
;=⇒ \Longrightarrow
;􏰃→ \mapsto
("aleph" "א")
("prime" "")
("emptyset" "")
("nabla" "")
("diamondsuit" "")
("spadesuit" "")
("clubsuit" "")
("heartsuit" "")
("sharp" "")
("flat" "")
("natural" "")
("surd" "")
("neg" "¬")
("triangle" "")
("forall" "")
("exists" "")
("infty" "")
("circ" "")
("alpha" "α")
("theta" "θ")
("tau" "τ")
("beta" "β")
("vartheta" "θ")
("pi" "π")
("upsilon" "υ")
("gamma" "γ")
("varpi" "π")
("phi" "φ")
("delta" "δ")
("kappa" "κ")
("rho" "ρ")
("varphi" "φ")
("epsilon" "ε")
("lambda" "λ")
("varrho" "ρ")
("chi" "χ")
("varepsilon" "ε")
("mu" "μ")
("sigma" "σ")
("psi" "ψ")
("zeta" "ζ")
("nu" "ν")
("varsigma" "ς")
("omega" "ω")
("eta" "η")
("xi" "ξ")
("iota" "ι")
("Gamma" "Γ")
("Lambda" "Λ")
("Sigma" "Σ")
("Psi" "Ψ")
("Delta" "")
("Xi" "Ξ")
("Upsilon" "Υ")
("Omega" "Ω")
("Theta" "Θ")
("Pi" "Π")
("Phi" "Φ")
("pm" "±")
("cap" "")
("diamond" "")
("oplus" "")
("mp" "")
("cup" "")
("bigtriangleup" "")
("ominus" "")
("times" "×")
("uplus" "")
("bigtriangledown" "")
("otimes" "")
("div" "÷")
("sqcap" "")
("triangleleft" "")
("oslash" "")
("ast" "")
("sqcup" "")
("vee" "")
("wedge" "")
("triangleright" "")
("odot" "")
("star" "")
("dagger" "")
("bullet" "")
("ddagger" "")
("wr" "")
("amalg" "⨿")
("leq" "")
("geq" "")
("equiv" "")
("models" "")
("prec" "")
("succ" "")
("sim" "")
("perp" "")
("top" "")
("preceq" "")
("succeq" "")
("simeq" "")
("ll" "")
("gg" "")
("asymp" "")
("parallel" "")
("subset" "")
("supset" "")
("approx" "")
("bowtie" "")
("subseteq" "")
("supseteq" "")
("cong" "")
("sqsubsetb" "")
("sqsupsetb" "")
("neq" #;"" "")
("smile" "")
("sqsubseteq" "")
("sqsupseteq" "")
("doteq" "")
("frown" "")
("in" "")
("ni" "")
("propto" "")
("vdash" "")
("dashv" "")
("sqrt" "")
("skull" "")
("smiley" "")
("blacksmiley" "")
("frownie" "")
("S" "§")
("newpage" "\f")
))
;; checks to see if there are duplicates
#;
(define (find-dups)
(let ([ht (make-hash)])
(for-each
(λ (line)
(let ([name (list-ref line 0)]
[obj (list-ref line 1)])
(hash-set! ht name (cons obj (hash-ref ht name '())))))
tex-shortcut-table)
(hash-for-each
ht
(λ (k v)
(unless (= 1 (length v))
(printf "~s -> ~s\n" k v))))))