2014-09-12 06:11:03 +04:00
|
|
|
::
|
|
|
|
|
:::: /hook/door/term-line/mar
|
|
|
|
|
::
|
|
|
|
|
/? 314
|
|
|
|
|
/- term-line
|
|
|
|
|
|_ tel=term-line
|
|
|
|
|
::
|
|
|
|
|
++ grab :: convert from
|
|
|
|
|
|%
|
2014-10-08 23:06:40 +04:00
|
|
|
++ noun term-line :: clam from %noun
|
2014-09-12 06:11:03 +04:00
|
|
|
--
|
2014-10-23 07:02:18 +04:00
|
|
|
::
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ json
|
|
|
|
|
%- jobe
|
|
|
|
|
:~ [%prompt %s p.tel]
|
|
|
|
|
[%history %a (turn q.tel |=(a=cord [%s a]))]
|
|
|
|
|
:+ %lines %a
|
|
|
|
|
%- zing ^- (list (list ^json))
|
2014-10-24 23:58:04 +04:00
|
|
|
%+ turn (flop r.tel) |= a=?(tank [%stem p=tank q=tank])
|
|
|
|
|
?. ?=(%stem -.a)
|
2014-10-23 07:02:18 +04:00
|
|
|
(turn (wash 0^80 a) jape)
|
2014-10-24 23:58:04 +04:00
|
|
|
[(jobe prompt/(jape ~(ram re p.a)) task/(jape ~(ram re q.a)) ~)]~
|
2014-10-23 07:02:18 +04:00
|
|
|
==
|
|
|
|
|
--
|
2014-09-12 06:11:03 +04:00
|
|
|
--
|
