mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 21:03:10 +03:00
35 lines
876 B
Plaintext
35 lines
876 B
Plaintext
:: Peek imp path || Poke ship imp path. Subscribe to an app.
|
|
!:
|
|
::::
|
|
::
|
|
|_ [hide ~]
|
|
++ ptah ,[p=path q=path ~]
|
|
++ poke-peek-args
|
|
|= [ost=bone @ a=?(ptah [her=ship ptah])]
|
|
=- :_(+>.$ ~[[ost %give %nice ~] [ost %pass / %g %show -]])
|
|
^- [p=[ship path] q=ship r=path]
|
|
?^ |2.a [[her p]:a our q.a]
|
|
[[our p.a] our q.a]
|
|
::
|
|
++ posh
|
|
|* [@ * git=[@tas *]]
|
|
~& peek-posh/git
|
|
`+>
|
|
++ pour
|
|
|= [ost=bone * sih=*]
|
|
~& =+ cod=(,[term term] [&1 &2]:sih)
|
|
?+ +.cod peek-resp/cod
|
|
%nice %peek-nice
|
|
%mean
|
|
=+ are=((soft ares) |2.sih)
|
|
?~ are %peek-mean
|
|
?~ u.are %peek-done
|
|
~& > p.u.u.are
|
|
|-
|
|
?~ q.u.u.are %peek-mean
|
|
~> %slog.`rose/[~ "! " ~]^[i.q.u.u.are]~
|
|
$(q.u.u.are t.q.u.u.are)
|
|
==
|
|
:_(+> ?+(&2.sih ~ %mean [ost %pass / %g %cide %$]~))
|
|
--
|