stubbed out input-tracking in talk

This commit is contained in:
Philip C Monk 2014-12-16 21:07:50 -05:00
parent 0d49326235
commit ebac53c3a3
2 changed files with 12 additions and 1 deletions

View File

@ -61,6 +61,7 @@
$: %rush $: %rush
$= p $= p
$% [%txt p=cord] $% [%txt p=cord]
[%type p=?]
== == == ==
$: %rust $: %rust
$= p $= p
@ -392,6 +393,16 @@
?> ?=(%txt -.p.sih) ?> ?=(%txt -.p.sih)
(pour-shell ost p.p.sih) (pour-shell ost p.p.sih)
== ==
::
%cmd-ac
?- +<.sih
%nice [~ +>.$]
%mean [(send /out %give +.sih) +>.$]
?(%rush %rust)
?> ?=(%type -.p.sih)
~& [%talk-inputting p.p.sih]
[~ +>.$]
==
:: ::
%command %command
?> ?=(?(%mean %nice) +<.sih) ?> ?=(?(%mean %nice) +<.sih)
@ -442,6 +453,7 @@
^- [(list move) _+>] ^- [(list move) _+>]
:_ +> :_ +>
:~ [ost %pass /cmd-in %g %show [our.hid +.imp.hid] you /in/[-.imp.hid]] :~ [ost %pass /cmd-in %g %show [our.hid +.imp.hid] you /in/[-.imp.hid]]
[ost %pass /cmd-ac %g %show [our.hid +.imp.hid] you /active/[-.imp.hid]]
^- move ^- move
:* ost %pass /server :* ost %pass /server
%g %show %g %show

View File

@ -162,7 +162,6 @@
== ==
:: ::
%type %type
~& > %inputz
(send %type -:!>(*?) p.jof) (send %type -:!>(*?) p.jof)
== ==
:: ::