Verified Commit bb132681 authored by Camil Staps's avatar Camil Staps 🚀

Copy editing System.Terminal.VT100

parent ec1e59b2
Pipeline #10185 passed with stage
in 1 minute and 49 seconds
implementation module System.Terminal.VT100
import _SystemArray
from StdFunc import o, flip
from Data.Func import $
from Text import class Text(split,join,concat), instance Text String
......@@ -44,15 +45,12 @@ instance zero VT100Settings where
]
}
import _SystemArray
:: Cell :== (Map String String, Char)
:: *Screen :== *{*{Cell}}
vt100render :: VT100Settings -> (String -> HtmlTag)
vt100render s = TtTag [] o render o (\c->rvt {createArray (s.cols+1) ('DM'.newMap, ' ')\\_<-[0..s.rows+1]} 0 0 'DM'.newMap c) o fromString
where
//Thanks to camil
shift :: !*{*{Cell}} -> *{*{Cell}}
shift arr = loop (s.rows-1) arr $ createArray (s.cols+1) ('DM'.newMap, ' ')
where
......
......@@ -123,6 +123,7 @@ import qualified System.OS
import qualified System.OSError
import qualified System.Platform
import qualified System.Process
import qualified System.Terminal.VT100
import qualified System.TTS
import qualified System.Time
import qualified System._FilePath
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment