urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 01:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

Construct the %blew and %hail initalEvents correctly.

Browse Source
This commit is contained in:
Elliot Glaysher 2019-08-27 16:22:01 -07:00
parent 5e3e1e7c1a
commit 994c5948e1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkg/king/lib/Vere/Term.hs
View File

@ -38,9 +38,13 @@ disabledFlags = [
-- TODO: We lie about terminal size for now because getting it is a call to
-- ioctl().
initialBlew = EvBlip $ BlipEvTerm $ TermEvBlew (1, ()) 80 24
initialHail = EvBlip $ BlipEvTerm $ TermEvHail (1, ()) ()
-- TODO: 49 is the string "1", which is what we need to pass to dill as the
-- hard-coded terminal "1" session. Figure out how to turn this into "1" later.
initialBlew = EvBlip $ BlipEvTerm $ TermEvBlew (49, ()) 80 24
initialHail = EvBlip $ BlipEvTerm $ TermEvHail (49, ()) ()
-- What we need is an equivalent to _term_io_suck_char(). That's a manual, hand
-- rolled parser to deal with the escape state.