remapped ^L to ^W

This commit is contained in:
Philip C Monk 2014-11-24 14:01:58 -05:00
parent d4db76f3ab
commit e68ac86a96
2 changed files with 4 additions and 3 deletions

View File

@ -536,6 +536,7 @@
but (slag bus.u.q.q.yar but.u.q.q.yar)
==
%r (edit u.q.q.yar(hyr [~ ~]))
%w +>.$(mos :_(mos (poke %term-in -:!>(*term-in) / %cmd %w)))
%x +>.$(mos :_(mos (poke %term-in -:!>(*term-in) / %cmd %x)))
%y ?: =(0 p.r.q.yar)
beep

View File

@ -340,12 +340,12 @@
[ost %give %logo ~]
~
(eat-end(act next-act) %& (slav %ud u.act))
%x =. act next-act
(blab [ost %give %nice ~] ping)
%l =+ =- tak=rose/[" " "[" "]"]^(turn cubs -)
%w =+ =- tak=rose/[" " "[" "]"]^(turn cubs -)
|= a=span
leaf/(trip (rap 3 (~(got by cub.hid) a) '(' a ')' ~))
(blab [ost give/nice/~] (print tak))
%x =. act next-act
(blab [ost %give %nice ~] ping)
==
::
++ poke-txt :: handle command