System.Terminal.Emulator.Parsing.Types

Documentation

data TermAtom

Constructors

TermAtom_VisibleChar !Char

TermAtom_SingleCharacterFunction !SingleCharacterFunction

TermAtom_SingleCharacterFunctionUnknown !Char

TermAtom_EscapeSequence !EscapeSequence

TermAtom_EscapeSequenceUnknown !Text

Instances

Eq TermAtom

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: TermAtom -> TermAtom -> Bool

(/=) :: TermAtom -> TermAtom -> Bool

Show TermAtom

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> TermAtom -> ShowS

show :: TermAtom -> String

showList :: [TermAtom] -> ShowS

data SingleCharacterFunction

Constructors

Control_Bell

BEL Bell (BEL is Ctrl-G).

Control_Backspace

BS Backspace (BS is Ctrl-H).

Control_CarriageReturn

CR Carriage Return (CR is Ctrl-M).

Control_ReturnTerminalStatus

ENQ Return Terminal Status (ENQ is Ctrl-E). Default response is an empty string

Control_FormFeed

FF Form Feed or New Page (NP ). (FF is Ctrl-L). FF is treated the same as LF .

Control_LineFeed

LF Line Feed or New Line (NL). (LF is Ctrl-J).

Control_SwitchToStandardCharacterSet

SI Switch to Standard Character Set (Ctrl-O is Shift In or LS0). This invokes the G0 character set (the default) as GL. VT200 and up implement LS0.

Control_SwitchToAlternateCharacterSet

SO Switch to Alternate Character Set (Ctrl-N is Shift Out or LS1). This invokes the G1 character set as GL. VT200 and up implement LS1.

Control_Tab

TAB Horizontal Tab (HTS is Ctrl-I).

Control_VerticalTab

VT Vertical Tab (VT is Ctrl-K). This is treated the same as LF.

Instances

Bounded SingleCharacterFunction

Defined in System.Terminal.Emulator.Parsing.Types

Methods

minBound :: SingleCharacterFunction

maxBound :: SingleCharacterFunction

Enum SingleCharacterFunction

Defined in System.Terminal.Emulator.Parsing.Types

Methods

succ :: SingleCharacterFunction -> SingleCharacterFunction

pred :: SingleCharacterFunction -> SingleCharacterFunction

toEnum :: Int -> SingleCharacterFunction

fromEnum :: SingleCharacterFunction -> Int

enumFrom :: SingleCharacterFunction -> [SingleCharacterFunction]

enumFromThen :: SingleCharacterFunction -> SingleCharacterFunction -> [SingleCharacterFunction]

enumFromTo :: SingleCharacterFunction -> SingleCharacterFunction -> [SingleCharacterFunction]

enumFromThenTo :: SingleCharacterFunction -> SingleCharacterFunction -> SingleCharacterFunction -> [SingleCharacterFunction]

Eq SingleCharacterFunction

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: SingleCharacterFunction -> SingleCharacterFunction -> Bool

(/=) :: SingleCharacterFunction -> SingleCharacterFunction -> Bool

Ord SingleCharacterFunction

Defined in System.Terminal.Emulator.Parsing.Types

Methods

compare :: SingleCharacterFunction -> SingleCharacterFunction -> Ordering

(<) :: SingleCharacterFunction -> SingleCharacterFunction -> Bool

(<=) :: SingleCharacterFunction -> SingleCharacterFunction -> Bool

(>) :: SingleCharacterFunction -> SingleCharacterFunction -> Bool

(>=) :: SingleCharacterFunction -> SingleCharacterFunction -> Bool

max :: SingleCharacterFunction -> SingleCharacterFunction -> SingleCharacterFunction

min :: SingleCharacterFunction -> SingleCharacterFunction -> SingleCharacterFunction

Show SingleCharacterFunction

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> SingleCharacterFunction -> ShowS

show :: SingleCharacterFunction -> String

showList :: [SingleCharacterFunction] -> ShowS

data EscapeSequence

Constructors

Esc_ReverseIndex

ESC M Reverse Index (RI is 0x8d).

Esc_RIS

ESC c Reset terminal to initial state (RIS)

Esc_DECPAM

ESC = Application Keypad (DECPAM)

Esc_DECPNM

ESC > Set numeric keypad mode (DECPNM)

ESC_SetG0CharacterSet !Text

ESC ( Designate G0 Character Set, VT100, ISO 2022.

Esc_CSI !ControlSequenceIntroducer

Esc_OSC !OperatingSystemCommand

Instances

Eq EscapeSequence

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: EscapeSequence -> EscapeSequence -> Bool

(/=) :: EscapeSequence -> EscapeSequence -> Bool

Show EscapeSequence

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> EscapeSequence -> ShowS

show :: EscapeSequence -> String

showList :: [EscapeSequence] -> ShowS

data ControlSequenceIntroducer

Constructors

CSI_CharacterPositionAbsolute !Int

CSI Ps ` Character Position Absolute [column] (default = [row,1]) (HPA).

CSI_CharacterPositionRelative !Int

CSI Ps a Character Position Relative [columns] (default = [row,col+1]) (HPR).

CSI_CursorUp !Int

CSI Ps A Cursor Up Ps Times (default = 1) (CUU).

CSI_CursorDown !Int

CSI Ps B Cursor Down Ps Times (default = 1) (CUD).

CSI_CursorForward !Int

CSI Ps C Cursor Forward Ps Times (default = 1) (CUF).

CSI_CursorBack !Int

CSI Ps D Cursor Backward Ps Times (default = 1) (CUB).

CSI_EraseInLine !EraseInLineParam

CSI Ps K Erase in Line (EL), VT100.

CSI_InsertBlankCharacters !Int

CSI Ps @ Insert Ps (Blank) Character(s) (default = 1) (ICH)

CSI_InsertBlankLines !Int

CSI Ps L Insert Ps Line(s) (default = 1) (IL)

CSI_DeleteChars !Int

CSI Ps P Delete Ps Character(s) (default = 1) (DCH).

CSI_DeleteLines !Int

CSI Ps M Delete Ps Line(s) (default = 1) (DL).

CSI_CursorCharacterAbsolute !Int

CSI Ps G Cursor Character Absolute [column] (default = [row,1]) (CHA).

CSI_CursorPosition !Int !Int

CSI Ps ; Ps H Cursor Position [row;column] (default = [1,1]) (CUP).

CSI_HorizontalVerticalPosition !Int !Int

CSI Ps ; Ps f Horizontal and Vertical Position [row;column] (default = [1,1]) (HVP).

CSI_LinePositionAbsolute !Int

CSI Ps d Line Position Absolute [row] (default = [1,column]) (VPA).

CSI_LinePositionRelative !Int

CSI Ps e Line Position Relative [rows] (default = [row+1,column]) (VPR).

CSI_ScrollUp !Int

CSI Ps S Scroll up Ps lines (default = 1) (SU), VT420, ECMA-48.

CSI_ScrollDown !Int

CSI Ps T Scroll down Ps lines (default = 1) (SD), VT420.

CSI_EraseInDisplay !EraseInDisplayParam

CSI Ps J Erase in Display (ED), VT100

CSI_EraseCharacters !Int

CSI Ps X Erase Ps Character(s) (default = 1) (ECH).

CSI_WindowManipulation !WindowManipulation

CSI Ps ; Ps ; Ps t Window manipulation (XTWINOPS), dtterm, extended by xterm. These controls may be disabled using the allowWindowOps resource.

CSI_DeviceStatusReport !DeviceStatusReport

CSI Ps n Device Status Report (DSR).

CSI_SoftTerminalReset

CSI ! p Soft terminal reset (DECSTR), VT220 and up.

CSI_SetMode !Mode

CSI Pm h Set Mode (SM).

CSI_ResetMode !Mode

CSI Pm l Reset Mode (RM).

CSI_SendDeviceAttributes

CSI Ps c Send Device Attributes (Primary DA).

CSI_SendDeviceAttributesSecondary !SendDeviceAttributesSecondary

CSI > Ps c Send Device Attributes (Secondary DA).

CSI_RequestDECPrivateMode !Int

CSI ? Ps $ p Request DEC private mode (DECRQM).

CSI_DECSTBM !(Maybe Int) !(Maybe Int)

Set Scrolling Region [top;bottom] (default = full size of window) (DECSTBM)

CSI_DECSET !DECPrivateMode

DEC Private Mode Set

CSI_DECSET_Unknown !Int

Unknown DECSET (DEC Private Mode Set) code

CSI_DECRST !DECPrivateMode

DEC Private Mode Reset

CSI_DECRST_Unknown !Int

Unknown DECRST (DEC Private Mode Reset) code

CSI_SGR !(Vector SGR)

Instances

Eq ControlSequenceIntroducer

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: ControlSequenceIntroducer -> ControlSequenceIntroducer -> Bool

(/=) :: ControlSequenceIntroducer -> ControlSequenceIntroducer -> Bool

Show ControlSequenceIntroducer

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> ControlSequenceIntroducer -> ShowS

show :: ControlSequenceIntroducer -> String

showList :: [ControlSequenceIntroducer] -> ShowS

data EraseInLineParam

Constructors

ClearFromCursorToEndOfLine

Ps = 0 Erase to Right (default).

ClearFromCursorToBeginningOfLine

Ps = 1 Erase to Left.

ClearEntireLine

Ps = 2 Erase All.

Instances

Bounded EraseInLineParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

minBound :: EraseInLineParam

maxBound :: EraseInLineParam

Enum EraseInLineParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

succ :: EraseInLineParam -> EraseInLineParam

pred :: EraseInLineParam -> EraseInLineParam

toEnum :: Int -> EraseInLineParam

fromEnum :: EraseInLineParam -> Int

enumFrom :: EraseInLineParam -> [EraseInLineParam]

enumFromThen :: EraseInLineParam -> EraseInLineParam -> [EraseInLineParam]

enumFromTo :: EraseInLineParam -> EraseInLineParam -> [EraseInLineParam]

enumFromThenTo :: EraseInLineParam -> EraseInLineParam -> EraseInLineParam -> [EraseInLineParam]

Eq EraseInLineParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: EraseInLineParam -> EraseInLineParam -> Bool

(/=) :: EraseInLineParam -> EraseInLineParam -> Bool

Ord EraseInLineParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

compare :: EraseInLineParam -> EraseInLineParam -> Ordering

(<) :: EraseInLineParam -> EraseInLineParam -> Bool

(<=) :: EraseInLineParam -> EraseInLineParam -> Bool

(>) :: EraseInLineParam -> EraseInLineParam -> Bool

(>=) :: EraseInLineParam -> EraseInLineParam -> Bool

max :: EraseInLineParam -> EraseInLineParam -> EraseInLineParam

min :: EraseInLineParam -> EraseInLineParam -> EraseInLineParam

Show EraseInLineParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> EraseInLineParam -> ShowS

show :: EraseInLineParam -> String

showList :: [EraseInLineParam] -> ShowS

data EraseInDisplayParam

Constructors

EraseBelow

Ps = 0 Erase Below (default).

EraseAbove

Ps = 1 Erase Above.

EraseAll

Ps = 2 Erase All.

EraseSavedLines

Ps = 3 Erase Saved Lines, xterm.

Instances

Bounded EraseInDisplayParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

minBound :: EraseInDisplayParam

maxBound :: EraseInDisplayParam

Enum EraseInDisplayParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

succ :: EraseInDisplayParam -> EraseInDisplayParam

pred :: EraseInDisplayParam -> EraseInDisplayParam

toEnum :: Int -> EraseInDisplayParam

fromEnum :: EraseInDisplayParam -> Int

enumFrom :: EraseInDisplayParam -> [EraseInDisplayParam]

enumFromThen :: EraseInDisplayParam -> EraseInDisplayParam -> [EraseInDisplayParam]

enumFromTo :: EraseInDisplayParam -> EraseInDisplayParam -> [EraseInDisplayParam]

enumFromThenTo :: EraseInDisplayParam -> EraseInDisplayParam -> EraseInDisplayParam -> [EraseInDisplayParam]

Eq EraseInDisplayParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: EraseInDisplayParam -> EraseInDisplayParam -> Bool

(/=) :: EraseInDisplayParam -> EraseInDisplayParam -> Bool

Ord EraseInDisplayParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

compare :: EraseInDisplayParam -> EraseInDisplayParam -> Ordering

(<) :: EraseInDisplayParam -> EraseInDisplayParam -> Bool

(<=) :: EraseInDisplayParam -> EraseInDisplayParam -> Bool

(>) :: EraseInDisplayParam -> EraseInDisplayParam -> Bool

(>=) :: EraseInDisplayParam -> EraseInDisplayParam -> Bool

max :: EraseInDisplayParam -> EraseInDisplayParam -> EraseInDisplayParam

min :: EraseInDisplayParam -> EraseInDisplayParam -> EraseInDisplayParam

Show EraseInDisplayParam

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> EraseInDisplayParam -> ShowS

show :: EraseInDisplayParam -> String

showList :: [EraseInDisplayParam] -> ShowS

data WindowManipulation

Constructors

SaveIconAndWindowTitleOnStack

22;0 Save xterm icon and window title on stack.

RestoreIconAndWindowTitleOnStack

23;0 Restore xterm icon and window title from stack.

Instances

Bounded WindowManipulation

Defined in System.Terminal.Emulator.Parsing.Types

Methods

minBound :: WindowManipulation

maxBound :: WindowManipulation

Enum WindowManipulation

Defined in System.Terminal.Emulator.Parsing.Types

Methods

succ :: WindowManipulation -> WindowManipulation

pred :: WindowManipulation -> WindowManipulation

toEnum :: Int -> WindowManipulation

fromEnum :: WindowManipulation -> Int

enumFrom :: WindowManipulation -> [WindowManipulation]

enumFromThen :: WindowManipulation -> WindowManipulation -> [WindowManipulation]

enumFromTo :: WindowManipulation -> WindowManipulation -> [WindowManipulation]

enumFromThenTo :: WindowManipulation -> WindowManipulation -> WindowManipulation -> [WindowManipulation]

Eq WindowManipulation

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: WindowManipulation -> WindowManipulation -> Bool

(/=) :: WindowManipulation -> WindowManipulation -> Bool

Ord WindowManipulation

Defined in System.Terminal.Emulator.Parsing.Types

Methods

compare :: WindowManipulation -> WindowManipulation -> Ordering

(<) :: WindowManipulation -> WindowManipulation -> Bool

(<=) :: WindowManipulation -> WindowManipulation -> Bool

(>) :: WindowManipulation -> WindowManipulation -> Bool

(>=) :: WindowManipulation -> WindowManipulation -> Bool

max :: WindowManipulation -> WindowManipulation -> WindowManipulation

min :: WindowManipulation -> WindowManipulation -> WindowManipulation

Show WindowManipulation

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> WindowManipulation -> ShowS

show :: WindowManipulation -> String

showList :: [WindowManipulation] -> ShowS

data DeviceStatusReport

Constructors

StatusReport

Status Report. Result (OK) is CSI 0 n

ReportCursorPosition

Report Cursor Position (CPR) [row;column]. Result is CSI r ; c R

Instances

Bounded DeviceStatusReport

Defined in System.Terminal.Emulator.Parsing.Types

Methods

minBound :: DeviceStatusReport

maxBound :: DeviceStatusReport

Enum DeviceStatusReport

Defined in System.Terminal.Emulator.Parsing.Types

Methods

succ :: DeviceStatusReport -> DeviceStatusReport

pred :: DeviceStatusReport -> DeviceStatusReport

toEnum :: Int -> DeviceStatusReport

fromEnum :: DeviceStatusReport -> Int

enumFrom :: DeviceStatusReport -> [DeviceStatusReport]

enumFromThen :: DeviceStatusReport -> DeviceStatusReport -> [DeviceStatusReport]

enumFromTo :: DeviceStatusReport -> DeviceStatusReport -> [DeviceStatusReport]

enumFromThenTo :: DeviceStatusReport -> DeviceStatusReport -> DeviceStatusReport -> [DeviceStatusReport]

Eq DeviceStatusReport

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: DeviceStatusReport -> DeviceStatusReport -> Bool

(/=) :: DeviceStatusReport -> DeviceStatusReport -> Bool

Ord DeviceStatusReport

Defined in System.Terminal.Emulator.Parsing.Types

Methods

compare :: DeviceStatusReport -> DeviceStatusReport -> Ordering

(<) :: DeviceStatusReport -> DeviceStatusReport -> Bool

(<=) :: DeviceStatusReport -> DeviceStatusReport -> Bool

(>) :: DeviceStatusReport -> DeviceStatusReport -> Bool

(>=) :: DeviceStatusReport -> DeviceStatusReport -> Bool

max :: DeviceStatusReport -> DeviceStatusReport -> DeviceStatusReport

min :: DeviceStatusReport -> DeviceStatusReport -> DeviceStatusReport

Show DeviceStatusReport

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> DeviceStatusReport -> ShowS

show :: DeviceStatusReport -> String

showList :: [DeviceStatusReport] -> ShowS

data Mode

Constructors

KeyboardActionMode

Keyboard Action Mode (KAM)

InsertReplaceMode

Insert/Replace Mode (IRM)

SendReceive

Send/receive (SRM)

AutomaticNewlineNormalLinefeed

Automatic Newline / Normal Linefeed (LNM).

Instances

Bounded Mode

Defined in System.Terminal.Emulator.Parsing.Types

Methods

minBound :: Mode

maxBound :: Mode

Enum Mode

Defined in System.Terminal.Emulator.Parsing.Types

Methods

succ :: Mode -> Mode

pred :: Mode -> Mode

toEnum :: Int -> Mode

fromEnum :: Mode -> Int

enumFrom :: Mode -> [Mode]

enumFromThen :: Mode -> Mode -> [Mode]

enumFromTo :: Mode -> Mode -> [Mode]

enumFromThenTo :: Mode -> Mode -> Mode -> [Mode]

Eq Mode

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: Mode -> Mode -> Bool

(/=) :: Mode -> Mode -> Bool

Ord Mode

Defined in System.Terminal.Emulator.Parsing.Types

Methods

compare :: Mode -> Mode -> Ordering

(<) :: Mode -> Mode -> Bool

(<=) :: Mode -> Mode -> Bool

(>) :: Mode -> Mode -> Bool

(>=) :: Mode -> Mode -> Bool

max :: Mode -> Mode -> Mode

min :: Mode -> Mode -> Mode

Show Mode

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> Mode -> ShowS

show :: Mode -> String

showList :: [Mode] -> ShowS

data SendDeviceAttributesSecondary

Constructors

RequestTerminalIdentificationCode

Instances

Bounded SendDeviceAttributesSecondary

Defined in System.Terminal.Emulator.Parsing.Types

Methods

minBound :: SendDeviceAttributesSecondary

maxBound :: SendDeviceAttributesSecondary

Enum SendDeviceAttributesSecondary

Defined in System.Terminal.Emulator.Parsing.Types

Methods

succ :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary

pred :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary

toEnum :: Int -> SendDeviceAttributesSecondary

fromEnum :: SendDeviceAttributesSecondary -> Int

enumFrom :: SendDeviceAttributesSecondary -> [SendDeviceAttributesSecondary]

enumFromThen :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> [SendDeviceAttributesSecondary]

enumFromTo :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> [SendDeviceAttributesSecondary]

enumFromThenTo :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> [SendDeviceAttributesSecondary]

Eq SendDeviceAttributesSecondary

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> Bool

(/=) :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> Bool

Ord SendDeviceAttributesSecondary

Defined in System.Terminal.Emulator.Parsing.Types

Methods

compare :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> Ordering

(<) :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> Bool

(<=) :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> Bool

(>) :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> Bool

(>=) :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> Bool

max :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary

min :: SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary -> SendDeviceAttributesSecondary

Show SendDeviceAttributesSecondary

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> SendDeviceAttributesSecondary -> ShowS

show :: SendDeviceAttributesSecondary -> String

showList :: [SendDeviceAttributesSecondary] -> ShowS

data OperatingSystemCommand

Constructors

OSC_SetTitle

Change Icon Name and Window Title

Fields

• !Bool

  Set icon name to the string

• !Bool

  Set window title to the string

• !Text

  The string that should be used for the title

OSC_ChangeTextForegroundColor !Text

Change VT100 text foreground color

OSC_RequestTextForegroundColor

Request VT100 text foreground color

OSC_ChangeTextBackgroundColor !Text

Change VT100 text background color

OSC_RequestTextBackgroundColor

Request VT100 text background color

OSC_ResetTextCursorColor

Ps = 112 Reset text cursor color.

Instances

Eq OperatingSystemCommand

Defined in System.Terminal.Emulator.Parsing.Types

Methods

(==) :: OperatingSystemCommand -> OperatingSystemCommand -> Bool

(/=) :: OperatingSystemCommand -> OperatingSystemCommand -> Bool

Ord OperatingSystemCommand

Defined in System.Terminal.Emulator.Parsing.Types

Methods

compare :: OperatingSystemCommand -> OperatingSystemCommand -> Ordering

(<) :: OperatingSystemCommand -> OperatingSystemCommand -> Bool

(<=) :: OperatingSystemCommand -> OperatingSystemCommand -> Bool

(>) :: OperatingSystemCommand -> OperatingSystemCommand -> Bool

(>=) :: OperatingSystemCommand -> OperatingSystemCommand -> Bool

max :: OperatingSystemCommand -> OperatingSystemCommand -> OperatingSystemCommand

min :: OperatingSystemCommand -> OperatingSystemCommand -> OperatingSystemCommand

Show OperatingSystemCommand

Defined in System.Terminal.Emulator.Parsing.Types

Methods

showsPrec :: Int -> OperatingSystemCommand -> ShowS

show :: OperatingSystemCommand -> String

showList :: [OperatingSystemCommand] -> ShowS

codeToSGR :: Int -> Maybe SGR

codeToColor :: Int -> Maybe Color

between :: Ord a => a -> (a, a) -> Bool