mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 21:03:10 +03:00
28 lines
648 B
Plaintext
28 lines
648 B
Plaintext
::
|
|
:::: /hook/door/term-line/mar
|
|
::
|
|
/? 314
|
|
/- term-line
|
|
|_ tel=term-line
|
|
::
|
|
++ grab :: convert from
|
|
|%
|
|
++ noun term-line :: clam from %noun
|
|
--
|
|
::
|
|
++ grow
|
|
|%
|
|
++ json
|
|
%- jobe
|
|
:~ [%prompt %s p.p.tel]
|
|
[%history %a (turn q.tel |=(a=cord [%s a]))]
|
|
:+ %lines %a
|
|
%- zing ^- (list (list ^json))
|
|
%+ turn (flop r.tel) |= a=?(tank [%stem p=tank q=tank])
|
|
?. ?=(%stem -.a)
|
|
(turn (wash 0^80 a) jape)
|
|
[(jobe prompt/(jape ~(ram re p.a)) task/(jape ~(ram re q.a)) ~)]~
|
|
==
|
|
--
|
|
--
|