mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
37 lines
511 B
Plaintext
37 lines
511 B
Plaintext
|
/- *dm-hook
|
||
|
|
|%
|
||
|
|
::
|
||
|
|
++ dejs
|
||
|
|
=, dejs:format
|
||
|
|
|%
|
||
|
|
++ action
|
||
|
|
|^
|
||
|
|
%- of
|
||
|
|
:~ accept+ship
|
||
|
|
decline+ship
|
||
|
|
pendings+ships
|
||
|
|
screen+bo
|
||
|
|
==
|
||
|
|
::
|
||
|
|
++ ship (su ;~(pfix sig fed:ag))
|
||
|
|
::
|
||
|
|
++ ships (as ship)
|
||
|
|
--
|
||
|
|
--
|
||
|
|
::
|
||
|
|
++ enjs
|
||
|
|
=, enjs:format
|
||
|
|
|%
|
||
|
|
::
|
||
|
|
++ action
|
||
|
|
|= act=^action
|
||
|
|
%+ frond -.act
|
||
|
|
?- -.act
|
||
|
|
?(%accept %decline) (ship +.act)
|
||
|
|
%pendings a+(turn ~(tap in ships.act) ship)
|
||
|
|
%screen [%b +.act]
|
||
|
|
==
|
||
|
|
--
|
||
|
|
--
|
||
|
|
|