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

contact-store: wrote out all the JSON conversions and store compiles

Browse Source
This commit is contained in:
Logan Allen 2021-01-11 13:39:36 -06:00
parent 1f7f86f682
commit 1eb99bfdcd
4 changed files with 78 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkg/arvo/app/contact-store.hoon
View File

@ -30,12 +30,8 @@
|= old-vase=vase
^- (quip card _this)
=/ old !<(versioned-state old-vase)
?- -.old
%4 [~ this(state old)]
%3 [~ this]
%2 [~ this]
%1 [~ this]
%0 [~ this]
?+ -.old [~ this]
%4 [~ this(state old)]
==
::
++ on-watch
@ -128,6 +124,7 @@
++ import
|= arc=*
^- (quip card _state)
:: note: we are purposefully wiping all state before state-4
[~ *state-4]
--
::

139
pkg/arvo/lib/contact-store.hoon
View File

@ -13,78 +13,71 @@
++ update
|= upd=^update
^- json
|^ (frond %contact-update (pairs ~[(encode upd)]))
::
++ encode
|= upd=update-0
^- [cord json]
?- -.upd
%initial
:: TODO: initial
:- %initial
*json
%add
:- %add
%- pairs
:~ [%path (path path.upd)]
[%ship (ship ship.upd)]
[%contact (contact-to-json path.upd ship.upd contact.upd)]
==
::
%remove
:- %remove
%- pairs
:~ [%path (path path.upd)]
[%ship (ship ship.upd)]
==
::
%edit
:- %edit
%- pairs
:~ [%path (path path.upd)]
[%ship (ship ship.upd)]
[%edit-field (edit-to-json edit-field.upd)]
==
==
--
::
++ rolodex-to-json
|= rol=rolodex:store
^- json
%- pairs:enjs:format
%+ turn ~(tap by rol)
|= [=ship =contact:store]
%+ frond %contact-update
%- pairs
:_ ~
^- [cord json]
[(crip (slag 1 (scow %p ship))) (contact-to-json contact)]
::
++ contact-to-json
|= con=contact:store
^- json
%- pairs:enjs:format
:~ [%nickname s+nickname.con]
[%email s+email.con]
[%phone s+phone.con]
[%website s+website.con]
[%color s+(scot %ux color.con)]
[%avatar ?~(avatar.edit ~ s+u.avatar.con)]
?- -.upd
%initial
:- %initial
(pairs [%rolodex (rolo rolodex.upd)]~)
::
%add
:- %add
%- pairs
:~ [%ship (ship ship.upd)]
[%contact (cont contact.upd)]
==
::
%remove
:- %remove
(pairs [%ship (ship ship.upd)]~)
::
%edit
:- %edit
%- pairs
:~ [%ship (ship ship.upd)]
[%edit-field (edit edit-field.upd)]
==
==
::
++ edit-to-json
|= edit=edit-field
++ rolo
|= =rolodex
^- json
%+ frond:enjs:format -.edit
?- -.edit
%nickname s+nickname.edit
%email s+email.edit
%phone s+phone.edit
%website s+website.edit
%color s+(scot %ux color.edit)
%avatar ?~(avatar.edit ~ s+u.avatar.edit)
%- pairs
%+ turn ~(tap by rolodex)
|= [=^ship =contact]
^- [cord json]
[(scot %p ship) (cont contact)]
::
++ cont
|= =contact
^- json
%- pairs
:~ [%nickname s+nickname.contact]
[%email s+email.contact]
[%phone s+phone.contact]
[%website s+website.contact]
[%color s+(scot %ux color.contact)]
[%avatar ?~(avatar.contact ~ s+u.avatar.contact)]
==
::
++ edit
|= field=edit-field
^- json
%+ frond -.field
?- -.field
%nickname s+nickname.field
%email s+email.field
%phone s+phone.field
%website s+website.field
%color s+(scot %ux color.field)
%avatar ?~(avatar.field ~ s+u.avatar.field)
==
--
::
++ dej
=, dejs:formats
=, dejs:format
|%
++ update
|= jon=json
@ -99,6 +92,22 @@
[%edit edit-contact]
==
::
++ initial (op ;~(pfix sig fed:ag) cont)
::
++ add-contact
%- ot
:~ [%ship (su ;~(pfix sig fed:ag))]
[%contact cont]
==
::
++ remove-contact (ot [%ship (su ;~(pfix sig fed:ag))]~)
::
++ edit-contact
%- ot
:~ [%ship (su ;~(pfix sig fed:ag))]
[%edit-field edit]
==
::
++ cont
%- ot
:~ [%nickname so]
@ -109,7 +118,7 @@
[%avatar (mu so)]
==
::
++ edit-fi
++ edit
%- of
:~ [%nickname so]
[%email so]

1
pkg/arvo/sur/contact-store.hoon
View File

@ -1,4 +1,3 @@
/- *identity
|%
+$ rolodex (map ship contact)
+$ contact

17
pkg/arvo/ted/group/on-leave.hoon
View File

@ -1,4 +1,4 @@
/- spider, grp=group-store, gra=graph-store, met=metadata-store, con=contact-store
/- spider, grp=group-store, gra=graph-store, met=metadata-store
/+ strandio, res=resource
::
=* strand strand:spider
@ -33,21 +33,6 @@
[our.bowl %group-pull-hook]
:- %pull-hook-action
!>([%remove resource.update])
:: stop serving or syncing contacts associated with group
::
;< ~ bind:m
%+ raw-poke
[our.bowl %contact-hook]
:- %contact-hook-action
!>([%remove (en-path:res resource.update)])
:: remove contact data associated with group
::
;< ~ bind:m
%+ raw-poke
[our.bowl %contact-store]
:- %contact-action
!> ^- contact-action:con
[%delete (en-path:res resource.update)]
:: stop serving or syncing metadata associated with group
::
;< ~ bind:m