urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 05:26:56 +03:00
Code Issues Packages Projects Releases Wiki Activity

|invite 'email' stars+n, |invite 'email' planets+m

Browse Source
This commit is contained in:
Anton Dyudin 2017-12-01 13:49:29 -08:00
parent f80695ed96
commit ae17d69ca3
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gen/hood/invite.hoon
View File

@ -9,11 +9,33 @@
/+ womb /+ womb
=* invite invite:womb =* invite invite:womb
=* reference reference:womb =* reference reference:womb
|%
++ plural
|= {a/@u b/tape} ^+ b
?: =(1 a) "one {b}"
=; n/tape "{n} {b}s"
~| plural-stub+a ::TODO expand
%- trip
%+ snag a ^~
%+ weld
/no/''/two/three/four/five/six/seven/eight/nine/ten/elven/twelve
/thirteen/fourteen/fifteen/sixteen/seventeen/eighteen/nineteen/twenty
::
++ type $%({$planets planets/@u} {$stars stars/@u})
--
:- %say :- %say
|= $: {now/@da eny/@uvJ bec/beak} |= $: {now/@da eny/@uvJ bec/beak}
{{who/@t $~} ref/(unit (each ship mail:womb)) sta/@} {{who/@t etc/$@($~ {typ/type $~})} ref/(unit (each ship mail:womb))}
== ==
?~ etc $(etc ~[planets+2])
:- %womb-invite :- %womb-invite
^- {cord reference invite} ^- {cord reference invite}
=+ inv=(scot %uv (end 7 1 eny)) =+ inv=(scot %uv (end 7 1 eny))
[inv ref [who 10 sta "You have been invited to Urbit: {(trip inv)}" "This is an invite of 10 planets"]] =; d/[planets=@u stars=@u inf=tape]
[inv ref [who planets.d stars.d "Your invite for {inf.d}: {(trip inv)}" ~]]
::
?: =(0 +.typ.etc) ~|(%empty-invite !!)
?- -.typ.etc
$stars [planets=0 stars.typ.etc (plural stars.typ.etc "star")]
$planets [planets.typ.etc stars=0 (plural planets.typ.etc "planet")]
==