mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
59 lines
1.7 KiB
Plaintext
59 lines
1.7 KiB
Plaintext
:: There is no love that is not an echo
|
|
::
|
|
:::: /hoon/echo/ape
|
|
::
|
|
/? 314
|
|
/+ sole
|
|
[. sole]
|
|
|%
|
|
++ card
|
|
$% [%diff %sole-effect sole-effect]
|
|
==
|
|
--
|
|
!:
|
|
|_ [bow=bowl adr=(set cord) sos=(map bone sole-share)]
|
|
++ peer-sole
|
|
|= path
|
|
^- (quip ,[bone card] +>)
|
|
~| [%not-in-whitelist src.bow]
|
|
?> (~(has in (sa (limo ~zod our.bow ~talsur-todres ~))) src.bow)
|
|
:_ +>.$(sos (~(put by sos) ost.bow *sole-share))
|
|
=- [(effect %mor pro/[& %$ "<listening>"] -)]~
|
|
=+ all=adrs
|
|
[tan/(turn all message) (turn all put-mail)]
|
|
::
|
|
++ adrs (sort (~(tap by adr)) aor)
|
|
++ effect |=(fec=sole-effect [ost.bow %diff %sole-effect fec])
|
|
++ message |=(ask=@t leaf/"ask: {(trip ask)}")
|
|
++ put-mail |=(ask=@t =+(pax=(rash ask unix-path) [%sav pax '']))
|
|
++ unix-path :: split into path of "name" and "extension"
|
|
;~ (glue dot)
|
|
(cook crip (star ;~(less dot next)))
|
|
;~(plug (cook crip (star next)) (easy ~))
|
|
==
|
|
::
|
|
++ poke-ask-mail
|
|
|= ask=@t
|
|
^- (quip ,[bone card] +>)
|
|
~| have-mail/ask
|
|
?< (~(has in adr) ask)
|
|
:_ +>.$(adr (~(put in adr) ask))
|
|
=+ [mez=[(message ask)]~ sav=(put-mail ask)]
|
|
%+ turn (prey /sole bow)
|
|
|=([ost=bone ^] (effect(ost.bow ost) %mor tan/mez sav ~))
|
|
::
|
|
++ poke-sole-action
|
|
|= act=sole-action
|
|
^- (quip ,[bone card] +>)
|
|
?- -.act
|
|
%clr `+>.$
|
|
%ret [[(effect tan/(turn adrs message))]~ +>.$] :: re-print list
|
|
%det :: reject all input
|
|
=+ som=(~(got by sos) ost.bow) :: XX this code belongs in a library
|
|
=^ inv som (~(transceive sole som) +.act)
|
|
=^ det som (~(transmit sole som) inv)
|
|
=. sos (~(put by sos) ost.bow som)
|
|
[[(effect det/det)]~ +>.$]
|
|
==
|
|
--
|