module Wumpus.Basic.Text.LRSymbol
(
alpha
, beta
, gamma
, delta
, epsilon
, zeta
, eta
, theta
, iota
, kappa
, lambda
, mu
, nu
, xi
, pi
, rho
, sigma
, tau
, upsilon
, phi
, chi
, psi
, omega
, uGamma
, uDelta
, uTheta
, uLambda
, uXi
, uPi
, uSigma
, uUpsilon
, uPhi
, uPsi
, uOmega
) where
import Wumpus.Basic.SafeFonts
import Wumpus.Basic.Text.LRText
import Wumpus.Core
import Data.Char ( chr )
import Prelude hiding ( pi )
useSymbol :: TextM u a -> TextM u a
useSymbol = bracketFontFace symbol
alpha :: (Num u, FromPtSize u) => TextM u ()
alpha = useSymbol $ char 'a'
beta :: (Num u, FromPtSize u) => TextM u ()
beta = useSymbol $ char 'b'
gamma :: (Num u, FromPtSize u) => TextM u ()
gamma = useSymbol $ char 'g'
delta :: (Num u, FromPtSize u) => TextM u ()
delta = useSymbol $ char 'd'
epsilon :: (Num u, FromPtSize u) => TextM u ()
epsilon = useSymbol $ char 'e'
zeta :: (Num u, FromPtSize u) => TextM u ()
zeta = useSymbol $ char 'z'
eta :: (Num u, FromPtSize u) => TextM u ()
eta = useSymbol $ char 'h'
theta :: (Num u, FromPtSize u) => TextM u ()
theta = useSymbol $ char 'q'
iota :: (Num u, FromPtSize u) => TextM u ()
iota = useSymbol $ char 'i'
kappa :: (Num u, FromPtSize u) => TextM u ()
kappa = useSymbol $ char 'k'
lambda :: (Num u, FromPtSize u) => TextM u ()
lambda = useSymbol $ char 'l'
mu :: (Num u, FromPtSize u) => TextM u ()
mu = useSymbol $ char 'm'
nu :: (Num u, FromPtSize u) => TextM u ()
nu = useSymbol $ char 'n'
xi :: (Num u, FromPtSize u) => TextM u ()
xi = useSymbol $ char 'x'
pi :: (Num u, FromPtSize u) => TextM u ()
pi = useSymbol $ char 'p'
rho :: (Num u, FromPtSize u) => TextM u ()
rho = useSymbol $ char 'r'
sigma :: (Num u, FromPtSize u) => TextM u ()
sigma = useSymbol $ char 's'
tau :: (Num u, FromPtSize u) => TextM u ()
tau = useSymbol $ char 't'
upsilon :: (Num u, FromPtSize u) => TextM u ()
upsilon = useSymbol $ char 'u'
phi :: (Num u, FromPtSize u) => TextM u ()
phi = useSymbol $ char 'j'
chi :: (Num u, FromPtSize u) => TextM u ()
chi = useSymbol $ char 'c'
psi :: (Num u, FromPtSize u) => TextM u ()
psi = useSymbol $ char 'y'
omega :: (Num u, FromPtSize u) => TextM u ()
omega = useSymbol $ char 'w'
uGamma :: (Num u, FromPtSize u) => TextM u ()
uGamma = useSymbol $ char 'G'
uDelta :: (Num u, FromPtSize u) => TextM u ()
uDelta = useSymbol $ char 'D'
uTheta :: (Num u, FromPtSize u) => TextM u ()
uTheta = useSymbol $ char 'Q'
uLambda :: (Num u, FromPtSize u) => TextM u ()
uLambda = useSymbol $ char 'L'
uXi :: (Num u, FromPtSize u) => TextM u ()
uXi = useSymbol $ char 'X'
uPi :: (Num u, FromPtSize u) => TextM u ()
uPi = useSymbol $ char 'P'
uSigma :: (Num u, FromPtSize u) => TextM u ()
uSigma = useSymbol $ char 'S'
uUpsilon :: (Num u, FromPtSize u) => TextM u ()
uUpsilon = useSymbol $ char $ chr 161
uPhi :: (Num u, FromPtSize u) => TextM u ()
uPhi = useSymbol $ char 'F'
uPsi :: (Num u, FromPtSize u) => TextM u ()
uPsi = useSymbol $ char 'Y'
uOmega :: (Num u, FromPtSize u) => TextM u ()
uOmega = useSymbol $ char 'W'