ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix /+ womb references

Browse Source
This commit is contained in:
Anton Dyudin 2017-11-29 13:28:33 -08:00
parent 2f91190a96
commit 3f06652142
13 changed files with 37 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/ask.hoon
View File

@ -2,12 +2,12 @@
:::: /hoon/ask/app
::
/? 310
/+ sole, womb, prey
/+ sole, hood-womb, prey
[. sole]
|%
++ card
$% {$diff $sole-effect sole-effect}
{$poke wire {ship $hood} $womb-invite {cord:womb invite:womb}}
{$poke wire {ship $hood} $womb-invite {cord:hood-womb invite:hood-womb}}
==
++ invited ?($new $sent $ignored)
++ email @t
@ -154,7 +154,7 @@
^- card
:^ %poke /invite/(scot %t ask) [(need wom) %hood]
:- %womb-invite
^- [cord:womb invite:womb]
^- [cord:hood-womb invite:hood-womb]
=+ inv=(scot %uv (end 7 1 eny.bow))
[inv [ask 1 0 "You have been invited to Urbit: {(trip inv)}" ""]]
--

8
gen/hood/invite.hoon
View File

@ -6,12 +6,12 @@
::
::::
::
/+ womb
=* invite invite:womb
=* reference reference:womb
/+ hood-womb
=* invite invite:hood-womb
=* reference reference:hood-womb
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
{{who/@t $~} ref/(unit (each ship mail:womb)) sta/@}
{{who/@t $~} ref/(unit (each ship mail:hood-womb)) sta/@}
==
:- %womb-invite
^- {cord reference invite}

6
gen/hood/load.hoon
View File

@ -3,7 +3,7 @@
:::: /hoon/load/hood/gen
::
/? 310
/+ womb, old-zuse
/+ hood-womb, old-zuse
=, old-zuse
::
::::
@ -12,9 +12,9 @@
|= $: {now/@da eny/@uvJ byk/beak}
{{dap/term pas/@uw $~} $~}
==
^- {$hood-load ?(part:womb)}
^- {$hood-load ?(part:hood-womb)}
?+ dap ~|(unknown-backup+dap !!)
$womb
=+ dat=.^(@ %cx (tope byk /jam-crub/womb-part/bak/hood/app))
[%hood-load ;;(part:womb (cue (dy:crub pas dat)))]
[%hood-load ;;(part:hood-womb (cue (dy:crub pas dat)))]
==

4
gen/hood/replay-womb-log.hoon
View File

@ -3,12 +3,12 @@
:::: /hoon/replay-womb-log/hood/gen
::
/? 310
/+ womb
/+ hood-womb
::
::::
::
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
{log/(list {@uvJ transaction:womb}) $~}
{log/(list {@uvJ transaction:hood-womb}) $~}
==
[%womb-replay-log log]

4
gen/hood/transfer.hoon
View File

@ -3,7 +3,7 @@
:::: /hoon/transfer/hood/gen
::
/? 310
/+ womb
/+ hood-womb
::
::::
::
@ -13,5 +13,5 @@
==
:- %womb-reinvite
=+ [him=(scot %p p.bec) cas=(scot %da now) key=(scot %p pas)]
=+ [pla=planets sta=stars]:.^(balance:womb %gx /[him]/hood/[cas]/womb/balance/[key])
=+ [pla=planets sta=stars]:.^(balance:hood-womb %gx /[him]/hood/[cas]/womb/balance/[key])
[pas who pla sta "Email updated, new passcode" "Email correction"]

4
gen/womb/balance.hoon
View File

@ -3,11 +3,11 @@
:::: /hoon/balance/womb/gen
::
/? 310
/+ womb
/+ hood-womb
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
{pas/@uvG $~}
who/(unit @p)
==
=- [%womb-balance .^(balance:womb %gx /[him]/hood/[cas]/womb/balance/[key]/womb-balance)]
=- [%womb-balance .^(balance:hood-womb %gx /[him]/hood/[cas]/womb/balance/[key]/womb-balance)]
[him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now) key=(scot %uv pas)]

4
gen/womb/balances.hoon
View File

@ -3,7 +3,7 @@
:::: /hoon/balance/womb/gen
::
/? 310
/+ womb
/+ hood-womb
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
$~
@ -11,5 +11,5 @@
==
:- %womb-balance-all
=+ [him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now)]
=/ balances =>(womb ,(set [passhash mail]))
=/ balances =>(hood-womb ,(set [passhash mail]))
.^(balances %gx /[him]/hood/[cas]/womb/balance/womb-balance-all)

4
gen/womb/stats.hoon
View File

@ -2,7 +2,7 @@
:::: /hoon/stats/womb/gen
::
/? 310
/+ womb
/+ hood-womb
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
$~
@ -10,4 +10,4 @@
==
:- %womb-stat-all
=+ [him=(scot %p ?^(who u.who p.bec)) cas=(scot %da now)]
.^((map ship stat:womb) %gx /[him]/hood/[cas]/womb/stats/womb-stat-all)
.^((map ship stat:hood-womb) %gx /[him]/hood/[cas]/womb/stats/womb-stat-all)

6
mar/womb/balance.hoon
View File

@ -2,16 +2,16 @@
:::: /hoon/stat-all/womb/mar
::
/? 310
/+ womb, old-zuse
/+ hood-womb, old-zuse
::
:::: ~fyr
::
=, old-zuse
|_ balance:womb
|_ balance:hood-womb
::
++ grab :: convert from
|%
++ noun balance:womb :: clam from %noun
++ noun balance:hood-womb :: clam from %noun
--
++ grow
|%

6
mar/womb/invite.hoon
View File

@ -2,12 +2,12 @@
:::: /hoon/stat-all/womb/mar
::
/? 310
/+ womb, old-zuse
/+ hood-womb, old-zuse
::
:::: ~fyr
::
=* invite invite:womb
=* reference reference:womb
=* invite invite:hood-womb
=* reference reference:hood-womb
=, old-zuse
|_ {cord reference invite}
::

6
mar/womb/part.hoon
View File

@ -2,11 +2,11 @@
:::: /hoon/part/womb/mar
::
/? 310
/+ womb
|_ all/part:womb
/+ hood-womb
|_ all/part:hood-womb
++ grad %jam
++ grow |% ++ jam (^jam all)
--
++ grab |% ++ jam |=(a/@ (noun (cue a)))
++ noun part:womb
++ noun part:hood-womb
-- --

6
mar/womb/replay-log.hoon
View File

@ -2,9 +2,9 @@
:::: /hoon/replay-log/womb/mar
::
/? 310
/+ womb
|_ log/(list {@uvJ transaction:womb})
/+ hood-womb
|_ log/(list {@uvJ transaction:hood-womb})
++ grab |%
++ noun (list {@uvJ transaction:womb})
++ noun (list {@uvJ transaction:hood-womb})
--
--

10
mar/womb/stat-all.hoon
View File

@ -2,28 +2,28 @@
:::: /hoon/stat-all/womb/mar
::
/? 310
/+ womb, old-zuse
/+ hood-womb, old-zuse
::
:::: ~fyr
::
=, old-zuse
|_ all/(map ship stat:womb)
|_ all/(map ship stat:hood-womb)
::
++ grab :: convert from
|%
++ noun (map ship stat:womb) :: clam from %noun
++ noun (map ship stat:hood-womb) :: clam from %noun
--
++ grow
|%
++ json
%- jobe
%+ turn ~(tap by all)
|= {a/ship b/stat:womb} ^- {cord ^json}
|= {a/ship b/stat:hood-womb} ^- {cord ^json}
:- (crip +:<a>)
(jobe live+[%s p.b] dist+(json-dist q.b) ~)
::
++ json-dist
|= a/dist:womb
|= a/dist:hood-womb
%+ joba -.a
?- -.a
$free b+&