<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://code.haskell.org/~malcolm/hscolour/ -->
<title>System/Console/ANSI/Unix.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# OPTIONS_HADDOCK hide #-}</span>
<a name="line-2"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Console</span><span class='hs-varop'>.</span><span class='hs-conid'>ANSI</span><span class='hs-varop'>.</span><span class='hs-conid'>Unix</span> <span class='hs-layout'>(</span>
<a name="line-3"></a><span class='hs-cpp'>#include "Exports-Include.hs"</span>
<a name="line-4"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-5"></a>
<a name="line-6"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Console</span><span class='hs-varop'>.</span><span class='hs-conid'>ANSI</span><span class='hs-varop'>.</span><span class='hs-conid'>Common</span>
<a name="line-7"></a>
<a name="line-8"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span>
<a name="line-9"></a>
<a name="line-10"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>List</span>
<a name="line-11"></a>
<a name="line-12"></a>
<a name="line-13"></a><span class='hs-cpp'>#include "Common-Include.hs"</span>
<a name="line-14"></a>
<a name="line-15"></a>
<a name="line-16"></a><a name="csi"></a><span class='hs-comment'>-- | The reference I used for the ANSI escape characters in this module was <<a href="http://en.wikipedia.org/wiki/ANSI_escape_sequences">http://en.wikipedia.org/wiki/ANSI_escape_sequences</a>>.</span>
<a name="line-17"></a><span class='hs-definition'>csi</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Int</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-18"></a><span class='hs-definition'>csi</span> <span class='hs-varid'>args</span> <span class='hs-varid'>code</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"\ESC["</span> <span class='hs-varop'>++</span> <span class='hs-varid'>concat</span> <span class='hs-layout'>(</span><span class='hs-varid'>intersperse</span> <span class='hs-str'>";"</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>show</span> <span class='hs-varid'>args</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-varid'>code</span>
<a name="line-19"></a>
<a name="line-20"></a><a name="colorToCode"></a><span class='hs-definition'>colorToCode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Color</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span>
<a name="line-21"></a><span class='hs-definition'>colorToCode</span> <span class='hs-varid'>color</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>color</span> <span class='hs-keyword'>of</span>
<a name="line-22"></a> <span class='hs-conid'>Black</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0</span>
<a name="line-23"></a> <span class='hs-conid'>Red</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>1</span>
<a name="line-24"></a> <span class='hs-conid'>Green</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>2</span>
<a name="line-25"></a> <span class='hs-conid'>Yellow</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>3</span>
<a name="line-26"></a> <span class='hs-conid'>Blue</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>4</span>
<a name="line-27"></a> <span class='hs-conid'>Magenta</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>5</span>
<a name="line-28"></a> <span class='hs-conid'>Cyan</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>6</span>
<a name="line-29"></a> <span class='hs-conid'>White</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>7</span>
<a name="line-30"></a>
<a name="line-31"></a><a name="sgrToCode"></a><span class='hs-definition'>sgrToCode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SGR</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span>
<a name="line-32"></a><span class='hs-definition'>sgrToCode</span> <span class='hs-varid'>sgr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>sgr</span> <span class='hs-keyword'>of</span>
<a name="line-33"></a> <span class='hs-conid'>Reset</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0</span>
<a name="line-34"></a> <span class='hs-conid'>SetConsoleIntensity</span> <span class='hs-varid'>intensity</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>intensity</span> <span class='hs-keyword'>of</span>
<a name="line-35"></a> <span class='hs-conid'>BoldIntensity</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>1</span>
<a name="line-36"></a> <span class='hs-conid'>FaintIntensity</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>2</span>
<a name="line-37"></a> <span class='hs-conid'>NormalIntensity</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>22</span>
<a name="line-38"></a> <span class='hs-conid'>SetItalicized</span> <span class='hs-conid'>True</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>3</span>
<a name="line-39"></a> <span class='hs-conid'>SetItalicized</span> <span class='hs-conid'>False</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>23</span>
<a name="line-40"></a> <span class='hs-conid'>SetUnderlining</span> <span class='hs-varid'>underlining</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>underlining</span> <span class='hs-keyword'>of</span>
<a name="line-41"></a> <span class='hs-conid'>SingleUnderline</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>4</span>
<a name="line-42"></a> <span class='hs-conid'>DoubleUnderline</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>21</span>
<a name="line-43"></a> <span class='hs-conid'>NoUnderline</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>24</span>
<a name="line-44"></a> <span class='hs-conid'>SetBlinkSpeed</span> <span class='hs-varid'>blink_speed</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>blink_speed</span> <span class='hs-keyword'>of</span>
<a name="line-45"></a> <span class='hs-conid'>SlowBlink</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>5</span>
<a name="line-46"></a> <span class='hs-conid'>RapidBlink</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>6</span>
<a name="line-47"></a> <span class='hs-conid'>NoBlink</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>25</span>
<a name="line-48"></a> <span class='hs-conid'>SetVisible</span> <span class='hs-conid'>False</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>8</span>
<a name="line-49"></a> <span class='hs-conid'>SetVisible</span> <span class='hs-conid'>True</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>28</span>
<a name="line-50"></a> <span class='hs-conid'>SetSwapForegroundBackground</span> <span class='hs-conid'>True</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>7</span>
<a name="line-51"></a> <span class='hs-conid'>SetSwapForegroundBackground</span> <span class='hs-conid'>False</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>27</span>
<a name="line-52"></a> <span class='hs-conid'>SetColor</span> <span class='hs-conid'>Foreground</span> <span class='hs-conid'>Dull</span> <span class='hs-varid'>color</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>30</span> <span class='hs-varop'>+</span> <span class='hs-varid'>colorToCode</span> <span class='hs-varid'>color</span>
<a name="line-53"></a> <span class='hs-conid'>SetColor</span> <span class='hs-conid'>Foreground</span> <span class='hs-conid'>Vivid</span> <span class='hs-varid'>color</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>90</span> <span class='hs-varop'>+</span> <span class='hs-varid'>colorToCode</span> <span class='hs-varid'>color</span>
<a name="line-54"></a> <span class='hs-conid'>SetColor</span> <span class='hs-conid'>Background</span> <span class='hs-conid'>Dull</span> <span class='hs-varid'>color</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>40</span> <span class='hs-varop'>+</span> <span class='hs-varid'>colorToCode</span> <span class='hs-varid'>color</span>
<a name="line-55"></a> <span class='hs-conid'>SetColor</span> <span class='hs-conid'>Background</span> <span class='hs-conid'>Vivid</span> <span class='hs-varid'>color</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>100</span> <span class='hs-varop'>+</span> <span class='hs-varid'>colorToCode</span> <span class='hs-varid'>color</span>
<a name="line-56"></a>
<a name="line-57"></a>
<a name="line-58"></a><a name="cursorUpCode"></a><span class='hs-definition'>cursorUpCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"A"</span>
<a name="line-59"></a><a name="cursorDownCode"></a><span class='hs-definition'>cursorDownCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"B"</span>
<a name="line-60"></a><a name="cursorForwardCode"></a><span class='hs-definition'>cursorForwardCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"C"</span>
<a name="line-61"></a><a name="cursorBackwardCode"></a><span class='hs-definition'>cursorBackwardCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"D"</span>
<a name="line-62"></a>
<a name="line-63"></a><a name="hCursorUp"></a><span class='hs-definition'>hCursorUp</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cursorUpCode</span> <span class='hs-varid'>n</span>
<a name="line-64"></a><a name="hCursorDown"></a><span class='hs-definition'>hCursorDown</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cursorDownCode</span> <span class='hs-varid'>n</span>
<a name="line-65"></a><a name="hCursorForward"></a><span class='hs-definition'>hCursorForward</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cursorForwardCode</span> <span class='hs-varid'>n</span>
<a name="line-66"></a><a name="hCursorBackward"></a><span class='hs-definition'>hCursorBackward</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cursorBackwardCode</span> <span class='hs-varid'>n</span>
<a name="line-67"></a>
<a name="line-68"></a>
<a name="line-69"></a><a name="cursorDownLineCode"></a><span class='hs-definition'>cursorDownLineCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"E"</span>
<a name="line-70"></a><a name="cursorUpLineCode"></a><span class='hs-definition'>cursorUpLineCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"F"</span>
<a name="line-71"></a>
<a name="line-72"></a><a name="hCursorDownLine"></a><span class='hs-definition'>hCursorDownLine</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cursorDownLineCode</span> <span class='hs-varid'>n</span>
<a name="line-73"></a><a name="hCursorUpLine"></a><span class='hs-definition'>hCursorUpLine</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cursorUpLineCode</span> <span class='hs-varid'>n</span>
<a name="line-74"></a>
<a name="line-75"></a>
<a name="line-76"></a><a name="setCursorColumnCode"></a><span class='hs-definition'>setCursorColumnCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"G"</span>
<a name="line-77"></a><a name="setCursorPositionCode"></a><span class='hs-definition'>setCursorPositionCode</span> <span class='hs-varid'>n</span> <span class='hs-varid'>m</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span><span class='hs-layout'>,</span> <span class='hs-varid'>m</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"H"</span>
<a name="line-78"></a>
<a name="line-79"></a><a name="hSetCursorColumn"></a><span class='hs-definition'>hSetCursorColumn</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>setCursorColumnCode</span> <span class='hs-varid'>n</span>
<a name="line-80"></a><a name="hSetCursorPosition"></a><span class='hs-definition'>hSetCursorPosition</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-varid'>m</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>setCursorPositionCode</span> <span class='hs-varid'>n</span> <span class='hs-varid'>m</span>
<a name="line-81"></a>
<a name="line-82"></a>
<a name="line-83"></a><a name="clearFromCursorToScreenEndCode"></a><span class='hs-definition'>clearFromCursorToScreenEndCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>0</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"J"</span>
<a name="line-84"></a><a name="clearFromCursorToScreenBeginningCode"></a><span class='hs-definition'>clearFromCursorToScreenBeginningCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>1</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"J"</span>
<a name="line-85"></a><a name="clearScreenCode"></a><span class='hs-definition'>clearScreenCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>2</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"J"</span>
<a name="line-86"></a>
<a name="line-87"></a><a name="hClearFromCursorToScreenEnd"></a><span class='hs-definition'>hClearFromCursorToScreenEnd</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varid'>clearFromCursorToScreenEndCode</span>
<a name="line-88"></a><a name="hClearFromCursorToScreenBeginning"></a><span class='hs-definition'>hClearFromCursorToScreenBeginning</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varid'>clearFromCursorToScreenBeginningCode</span>
<a name="line-89"></a><a name="hClearScreen"></a><span class='hs-definition'>hClearScreen</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varid'>clearScreenCode</span>
<a name="line-90"></a>
<a name="line-91"></a>
<a name="line-92"></a><a name="clearFromCursorToLineEndCode"></a><span class='hs-definition'>clearFromCursorToLineEndCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>0</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"K"</span>
<a name="line-93"></a><a name="clearFromCursorToLineBeginningCode"></a><span class='hs-definition'>clearFromCursorToLineBeginningCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>1</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"K"</span>
<a name="line-94"></a><a name="clearLineCode"></a><span class='hs-definition'>clearLineCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>2</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"K"</span>
<a name="line-95"></a>
<a name="line-96"></a><a name="hClearFromCursorToLineEnd"></a><span class='hs-definition'>hClearFromCursorToLineEnd</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varid'>clearFromCursorToLineEndCode</span>
<a name="line-97"></a><a name="hClearFromCursorToLineBeginning"></a><span class='hs-definition'>hClearFromCursorToLineBeginning</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varid'>clearFromCursorToLineBeginningCode</span>
<a name="line-98"></a><a name="hClearLine"></a><span class='hs-definition'>hClearLine</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varid'>clearLineCode</span>
<a name="line-99"></a>
<a name="line-100"></a>
<a name="line-101"></a><a name="scrollPageUpCode"></a><span class='hs-definition'>scrollPageUpCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"S"</span>
<a name="line-102"></a><a name="scrollPageDownCode"></a><span class='hs-definition'>scrollPageDownCode</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-str'>"T"</span>
<a name="line-103"></a>
<a name="line-104"></a><a name="hScrollPageUp"></a><span class='hs-definition'>hScrollPageUp</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>scrollPageUpCode</span> <span class='hs-varid'>n</span>
<a name="line-105"></a><a name="hScrollPageDown"></a><span class='hs-definition'>hScrollPageDown</span> <span class='hs-varid'>h</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>scrollPageDownCode</span> <span class='hs-varid'>n</span>
<a name="line-106"></a>
<a name="line-107"></a>
<a name="line-108"></a><a name="setSGRCode"></a><span class='hs-definition'>setSGRCode</span> <span class='hs-varid'>sgrs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>sgrToCode</span> <span class='hs-varid'>sgrs</span><span class='hs-layout'>)</span> <span class='hs-str'>"m"</span>
<a name="line-109"></a>
<a name="line-110"></a><a name="hSetSGR"></a><span class='hs-definition'>hSetSGR</span> <span class='hs-varid'>h</span> <span class='hs-varid'>sgrs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>setSGRCode</span> <span class='hs-varid'>sgrs</span>
<a name="line-111"></a>
<a name="line-112"></a>
<a name="line-113"></a><a name="hideCursorCode"></a><span class='hs-definition'>hideCursorCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-conid'>[]</span> <span class='hs-str'>"?25l"</span>
<a name="line-114"></a><a name="showCursorCode"></a><span class='hs-definition'>showCursorCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>csi</span> <span class='hs-conid'>[]</span> <span class='hs-str'>"?25h"</span>
<a name="line-115"></a>
<a name="line-116"></a><a name="hHideCursor"></a><span class='hs-definition'>hHideCursor</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varid'>hideCursorCode</span>
<a name="line-117"></a><a name="hShowCursor"></a><span class='hs-definition'>hShowCursor</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varid'>showCursorCode</span>
<a name="line-118"></a>
<a name="line-119"></a>
<a name="line-120"></a><a name="setTitleCode"></a><span class='hs-comment'>-- | Thanks to Brandon S. Allbery and Curt Sampson for pointing me in the right direction on xterm title setting on haskell-cafe.</span>
<a name="line-121"></a><span class='hs-comment'>-- The "0" signifies that both the title and "icon" text should be set: i.e. the text for the window in the Start bar (or similar)</span>
<a name="line-122"></a><span class='hs-comment'>-- as well as that in the actual window title. This is chosen for consistent behaviour between Unixes and Windows.</span>
<a name="line-123"></a><span class='hs-definition'>setTitleCode</span> <span class='hs-varid'>title</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"\ESC]0;"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varop'>/=</span> <span class='hs-chr'>'\007'</span><span class='hs-layout'>)</span> <span class='hs-varid'>title</span> <span class='hs-varop'>++</span> <span class='hs-str'>"\007"</span>
<a name="line-124"></a>
<a name="line-125"></a><a name="hSetTitle"></a><span class='hs-definition'>hSetTitle</span> <span class='hs-varid'>h</span> <span class='hs-varid'>title</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hPutStr</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-varid'>setTitleCode</span> <span class='hs-varid'>title</span>
</pre></body>
</html>
distrib
>
Fedora
>
17
>
i386
>
media
>
updates
>
by-pkgid
>
1a0a9aa47daf41bc521ed937fa412a6d
>
files
>
33
