::
::::  /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) ~)]~
    ==
  --
--