mirror of
https://github.com/urbit/shrub.git
synced 2024-12-18 15:55:00 +03:00
29 lines
668 B
Plaintext
29 lines
668 B
Plaintext
::
|
|
:::: /hook/door/term-line/mar
|
|
::
|
|
/? 314
|
|
/- term-line
|
|
|_ tel=term-line
|
|
::
|
|
++ grab :: convert from
|
|
|%
|
|
++ noun term-line :: clam from %noun
|
|
--
|
|
::
|
|
++ grow
|
|
|%
|
|
++ json
|
|
~& %helps
|
|
%- jobe
|
|
:~ [%prompt %s p.tel]
|
|
[%history %a (turn q.tel |=(a=cord [%s a]))]
|
|
:+ %lines %a
|
|
%- zing ^- (list (list ^json))
|
|
%+ turn (flop r.tel) |= a=tank
|
|
?. ?=([%rose [[%'>' %' ' ~] ~ ~] [%leaf *] [%leaf *] ~] a)
|
|
(turn (wash 0^80 a) jape)
|
|
[(jobe prompt/(jape p.i.q.a) task/(jape p.i.t.q.a) ~)]~
|
|
==
|
|
--
|
|
--
|