module Doc.Chars where
import Data.Char(chr)
import Doc.DocLike
ulCorner, llCorner, urCorner, lrCorner, rTee, lTee, bTee, tTee, hLine,
vLine, plus, s1, s9, diamond, ckBoard, degree, plMinus, bullet, lArrow,
rArrow, dArrow, uArrow, board, lantern, block, s3, s7, lEqual, gEqual,
pi, nEqual, sterling, coloncolon, alpha, beta, lambda, forall, exists,
box, bot, bottom, top, pI, lAmbda, star, elem, notElem, and, or, sqoparen, sqcparen :: TextLike a => a
ulCorner = char $ chr 0x250C
llCorner = char $ chr 0x2514
urCorner = char $ chr 0x2510
lrCorner = char $ chr 0x2518
rTee = char $ chr 0x2524
lTee = char $ chr 0x251C
bTee = char $ chr 0x2534
tTee = char $ chr 0x252C
hLine = char $ chr 0x2500
vLine = char $ chr 0x2502
plus = char $ chr 0x253C
s1 = char $ chr 0x23BA
s9 = char $ chr 0x23BD
diamond = char $ chr 0x25C6
ckBoard = char $ chr 0x2592
degree = char $ chr 0x00B0
plMinus = char $ chr 0x00B1
bullet = char $ chr 0x00B7
lArrow = char $ chr 0x2190
rArrow = char $ chr 0x2192
dArrow = char $ chr 0x2193
uArrow = char $ chr 0x2191
board = char $ chr 0x2591
lantern = char $ chr 0x256C
block = char $ chr 0x2588
s3 = char $ chr 0x23BB
s7 = char $ chr 0x23BC
lEqual = char $ chr 0x2264
gEqual = char $ chr 0x2265
pi = char $ chr 0x03C0
nEqual = char $ chr 0x2260
sterling = char $ chr 0x00A3
coloncolon = char $ chr 0x2237
alpha = char $ chr 0x03b1
beta = char $ chr 0x03b2
lambda = char $ chr 0x03bb
forall = char $ chr 0x2200
exists = char $ chr 0x2203
box = char $ chr 0x25a1
bot = char $ chr 0x22a5
bottom = char $ chr 0x22a5
top = char $ chr 0x22a4
pI = char $ chr 0x03a0
lAmbda = char $ chr 0x039b
and = char $ chr 0x2227
or = char $ chr 0x2228
star = char $ chr 0x22c6
elem = char $ chr 0x2208
notElem = char $ chr 0x2209
sqoparen = char $ chr 0x3014
sqcparen = char $ chr 0x3015