Revert "term: recognize home & end keys"

The behavior of home/end haven't been decided on yet.

This reverts commit 2d9106ae2d4c4a76a0cb5098835fdbc426e2f289.
This commit is contained in:
David Farrell 2022-06-16 20:31:42 -04:00
parent 975e2f2a14
commit d848587c04
3 changed files with 7 additions and 21 deletions

View File

@ -594,15 +594,13 @@
?< ?=([?(%cru %hey %rez %yow) *] bet) :: target-specific
=. blt [q.blt `bet] :: remember belt
?- bet
@ (ta-txt bet ~)
[%aro *] (ta-aro p.bet)
[%bac *] ta-bac
[%del *] ta-del
[%end *] ta-end
[%hit *] (ta-hit +.bet)
[%home *] ta-home
[%ret *] ta-ret
[%txt *] (ta-txt p.bet)
@ (ta-txt bet ~)
[%aro *] (ta-aro p.bet)
[%bac *] ta-bac
[%del *] ta-del
[%hit *] (ta-hit +.bet)
[%ret *] ta-ret
[%txt *] (ta-txt p.bet)
::
[%mod *]
?+ mod.bet $(bet key.bet)
@ -686,10 +684,6 @@
ta-bel
(ta-hom %del pos.inp)
::
++ ta-end :: hear end
^+ .
.(pos.inp (lent buf.say.inp))
::
++ ta-hit :: hear click
|= [x=@ud y=@ud]
^+ +>
@ -698,10 +692,6 @@
=? x (lth x pol) pol
+>.$(pos.inp (min (sub x pol) (lent buf.say.inp)))
::
++ ta-home :: hear home
^+ .
.(pos.inp 0)
::
++ ta-erl :: hear local error
|= pos=@ud
ta-bel(pos.inp (min pos (lent buf.say.inp)))

View File

@ -1080,9 +1080,7 @@
$% [%aro p=?(%d %l %r %u)] :: arrow key
[%bac ~] :: true backspace
[%del ~] :: true delete
[%end ~] :: end
[%hit x=@ud y=@ud] :: mouse click
[%home ~] :: home
[%ret ~] :: return
== ::
+$ blit :: client output

View File

@ -676,9 +676,7 @@ _term_io_suck_char(u3_utty* uty_u, c3_y cay_y)
_term_it_dump_buf(uty_u, &uty_u->ufo_u.bel_u);
break;
}
case '1': _term_io_spit(uty_u, u3nc(c3__home, u3_nul)); break;
case '3': _term_io_spit(uty_u, u3nc(c3__del, u3_nul)); break;
case '4': _term_io_spit(uty_u, u3nc(c3__end, u3_nul)); break;
}
tat_u->esc.ape = tat_u->esc.bra = c3n;
tat_u->esc.seq_y = 0;