2016-10-22 02:44:39 +03:00
|
|
|
:: Womb: allocate urbits to the holder of an email
|
2016-01-26 03:52:58 +03:00
|
|
|
::
|
2016-02-11 03:41:28 +03:00
|
|
|
:::: /hoon/invite/hood/gen
|
2016-01-26 03:52:58 +03:00
|
|
|
::
|
2016-02-17 04:40:32 +03:00
|
|
|
/? 310
|
2016-01-26 03:52:58 +03:00
|
|
|
::
|
|
|
|
|
::::
|
2016-04-30 00:40:44 +03:00
|
|
|
::
|
2017-11-30 00:28:33 +03:00
|
|
|
/+ hood-womb
|
|
|
|
|
=* invite invite:hood-womb
|
|
|
|
|
=* reference reference:hood-womb
|
2017-12-02 00:49:29 +03:00
|
|
|
|%
|
|
|
|
|
++ 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})
|
|
|
|
|
--
|
2016-01-26 03:52:58 +03:00
|
|
|
:- %say
|
2016-08-12 22:25:10 +03:00
|
|
|
|= $: {now/@da eny/@uvJ bec/beak}
|
2017-12-05 23:07:33 +03:00
|
|
|
{{who/@t etc/$@($~ {typ/type $~})} ref/(unit (each ship mail:hood-womb))}
|
2016-01-26 03:52:58 +03:00
|
|
|
==
|
2017-12-02 00:49:29 +03:00
|
|
|
?~ etc $(etc ~[planets+2])
|
2016-04-13 03:48:55 +03:00
|
|
|
:- %womb-invite
|
2017-10-26 23:59:49 +03:00
|
|
|
^- {cord reference invite}
|
2016-08-05 21:19:47 +03:00
|
|
|
=+ inv=(scot %uv (end 7 1 eny))
|
2017-12-02 00:49:29 +03:00
|
|
|
=; 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")]
|
|
|
|
|
==
|
