urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-02 08:55:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

151ified apps

Browse Source
This commit is contained in:
Anton Dyudin 2016-02-17 14:57:46 -08:00
parent 527b7b9920
commit 7675107acf
5 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/ask.hoon
View File

@ -1,7 +1,7 @@
::
:::: /hoon/ask/app
::
/? 314
/? 310
/+ sole
[. sole]
|%
@ -15,7 +15,7 @@
|= path
^- (quip {bone card} +>)
~| [%not-in-whitelist src.bow]
?> (~(has in (sa (limo ~zod our.bow ~talsur-todres ~))) src.bow)
?> (~(has in (sy ~zod our.bow ~talsur-todres ~)) src.bow)
:_ +>.$(sos (~(put by sos) ost.bow *sole-share))
=- [(effect %mor pro+[& %$ "<listening>"] -)]~
=+ all=adrs

17
app/curl.hoon
View File

@ -1,11 +1,12 @@
!:
::
:::: /hoon/curl/app
::
/? 314
|_ [[^ ^ ost=@ ^] ~]
++ poke |*(a=[mark *] :_(+> [ost %hiss / %wain a]~))
::++ poke-purl |=(a=purl :_(+> [ost %hiss / %wain %purl a]~))
++ poke-noun |=(a=tape (poke %purl (scan a auri:epur)))
++ sigh-wain |=([* a=wain] ~&(a `+>))
++ sigh-tang |=([* a=tang] (mean a))
/? 310
!:
|_ {{^ ^ ost/@ ^} $~}
++ poke |*(a/{mark *} :_(+> [ost %hiss / %wain a]~))
::++ poke-purl |=(a/purl :_(+> [ost %hiss / %wain %purl a]~))
++ poke-noun |=(a/tape (poke %purl (scan a auri:epur)))
++ sigh-wain |=({* a/wain} ~&(a `+>))
++ sigh-tang |=({* a/tang} (mean a))
--

2
app/dojo.hoon
View File

@ -1,7 +1,7 @@
:: :: ::
:::: /hoon/dojo/app :: ::::
:: :: ::
/? 314 :: arvo kelvin
/? 310 :: arvo kelvin
/- sole :: console structures
/+ sole :: console library
[. sole]

2
app/hood.hoon
View File

@ -1,7 +1,7 @@
:: :: ::
:::: /hoon/hood/app :: ::
:: :: ::
/? 314 :: zuse version
/? 310 :: zuse version
/+ sole, talk, helm, kiln, drum, write :: libraries
[. helm kiln drum]
:: :: ::

2
app/talk.hoon
View File

@ -1,7 +1,7 @@
:: :: ::
:::: /hoon/talk/app :: ::
:: :: ::
/? 314
/? 310
/- talk, sole
/+ talk, sole
/= seed /~ !>(.)