urbit/main/app/shell/core.hook
2014-09-18 02:56:49 +00:00

51 lines
1.6 KiB
Plaintext

:: Terminal
::
:::: /hook/core/terminal/app
::
/? 314
/- term-line
::
:::: structures
::
|% ::
++ gift ::
$% [%mean p=ares] ::
[%nice ~] ::
== ::
++ hapt ,[p=ship q=path] ::
++ move ,[p=bone q=(mold note gift)] ::
++ note ::
$% $: %g ::
$% [%show p=hapt q=ship r=path] ::
[%mess p=hapt q=ship r=[%term-line vase]] ::
== == == ::
++ sign ::
$% $: %g ::
$% [%nice ~] ::
[%mean p=ares] ::
== == == ::
--
!:
:::: program
::
|_ [hid=hide pax=_`path`%]
++ poke-txt
|= [ost=bone you=ship txt=cord]
^- [(list move) _+>]
=^ res pax
=+ paf=(rush txt (sear plex rood):(vang | pax))
?^ paf ["=% {(spud u.paf)}" u.paf]
["Yup, {(trip txt)}" pax]
:_ +>.$ :_ ~
:* ost %pass / %g %mess
[our.hid +.imp.hid] you
%term-line !>(`term-line`[(spat pax) leaf/res ~])
==
::
++ pour
|= [ost=bone pax=path sih=sign]
^- [(list move) _+>]
:_ +>.$
[ost %give +.sih]~
--