ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-23 00:21:46 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix ++neis off-by-one, generators, actually use app/gmail

Browse Source
This commit is contained in:
Anton Dyudin 2016-04-14 18:38:31 -07:00
parent 0c4846c7c5
commit 79558a8466
4 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gen/hood/claim.hoon
View File

@ -7,7 +7,7 @@
!:
:- %say
|= $: {now/@da eny/@uvI bec/beak}
{{aut/@uvH her/@p $~} $~}
{{pas/@pG her/@p $~} $~}
==
:- %womb-claim
[aut her]
[pas her]

5
gen/hood/invite.hoon
View File

@ -5,9 +5,10 @@
::
::::
!:
=+ mail=@ta
:- %say
|= $: {now/@da eny/@uvI bec/beak}
{{who/@ta $~} $~}
{{who/@ta $~} ref/(each ship mail) sta/@}
==
:- %womb-invite
[~ who 10 0 "You have been invited to Urbit" "This is an invite of 10 planets"]
[ref who 10 sta "You have been invited to Urbit" "This is an invite of 10 planets"]

4
gen/hood/reinvite.hoon
View File

@ -7,7 +7,7 @@
!:
:- %say
|= $: {now/@da eny/@uvI bec/beak}
{{aut/@uvH who/@ta $~} $~}
{{pas/@pG who/@ta $~} $~}
==
:- %womb-reinvite
[aut who 3 0 "You have been inivted to Urbit" "This is a re-invite of 3 planets"]
[pas who 3 0 "You have been inivted to Urbit" "This is a re-invite of 3 planets"]

6
lib/womb.hoon
View File

@ -150,7 +150,7 @@
|*(d/{@u *} [(rep a b -.d ~) +.d])
::
++ cursor (pair (unit ship) @u)
++ neis |=(a/ship ^-(@u (rsh (dec (xeb (xeb a))) 1 a))) :: postfix
++ neis |=(a/ship ^-(@u (rsh (dec (xeb (dec (xeb a)))) 1 a))) :: postfix
::
:: Create new foil of size
++ fo-init
@ -462,8 +462,8 @@
::
++ email
|= {wir/wire adr/mail msg/tape} ^+ +>
:: (emit %poke [%mail wir] [our %gmail] %email adr msg)
~&([%email-stub wir adr msg] +>)
(emit %poke [%mail wir] [our %gmail] %email adr msg)
::~&([%email-stub adr msg] +>)
::
++ poke-invite :: create invitation
|= {ref/reference inv/invite}