urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-22 10:21:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

graph-view: address review comments

Browse Source
This commit is contained in:
Liam Fitzgerald 2020-09-04 17:51:28 +10:00
parent fe17e48713
commit 881146e476
6 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkg/arvo/lib/graph-view.hoon
View File

@ -19,6 +19,7 @@
:~ create+create
delete+delete
join+join
leave+leave
::groupify+groupify
::invite+invite
==
@ -31,13 +32,18 @@
app+app
associated+associated
==
::
++ app
|= jon=json
^- app-name
?> ?=(%s -.jon)
~! app-name
%chat
::
++ leave
%- ot
:~ resource+dejs:resource
==
::
++ delete
%- ot
:~ resource+dejs:resource
@ -51,12 +57,12 @@
::
++ groupify !!
++ invite !!
::
++ associated
%- of
:~ group+dejs:resource
policy+policy:dejs:group-store
==
--
--
--

1
pkg/arvo/sur/graph-view.hoon
View File

@ -38,6 +38,7 @@
=associated
==
[%delete rid=resource]
[%leave rid=resource]
[%join rid=resource =ship]
::[%invite rid=resource ships=(set ship)]
:: [%groupify rid=resource title=@t description=@t]

3
pkg/arvo/ted/graph/create.hoon
View File

@ -5,6 +5,7 @@
++ strand strand:spider
++ poke poke:strandio
++ poke-our poke-our:strandio
::
++ handle-group
|= [rid=resource =associated:graph-view]
=/ m (strand ,resource)
@ -17,6 +18,7 @@
(poke-our %group-push-hook %push-hook-action !>([%add rid]))
(pure:m rid)
--
::
=, strand=strand:spider
^- thread:spider
|= arg=vase
@ -54,4 +56,3 @@
;< ~ bind:m
(poke-our %metadata-hook %metadata-hook-action !>([%add-owned group-path]))
(pure:m !>(~))

7
pkg/arvo/ted/graph/delete.hoon
View File

@ -5,6 +5,7 @@
++ strand strand:spider
++ poke poke:strandio
++ poke-our poke-our:strandio
::
++ scry-metadata
|= rid=resource
=/ m (strand ,(unit resource))
@ -16,6 +17,7 @@
/noun
==
(pure:m (bind pax de-path:resource))
::
++ scry-group
|= rid=resource
=/ m (strand ,(unit resource))
@ -27,6 +29,7 @@
/noun
==
(pure:m (need ugroup))
::
++ delete-graph
|= rid=resource
=/ m (strand ,~)
@ -36,6 +39,7 @@
(poke-our %graph-store %graph-update [%archive-graph rid.action])
(pure:m ~)
--
::
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
@ -53,9 +57,8 @@
?. hidden.u.ugroup
(delete-graph rid.action)
;< ~ bind:m
(poke-our %group-push-hook %pull-hook-action [%remove rid.action])
(poke-our %group-push-hook %push-hook-action [%remove rid.action])
;< ~ bind:m
(poke-our %group-store %group-action !>([%remove-group rid.action])
;< ~ bind:m (delete-graph rid.action)
(pure:m !>(~))

6
pkg/arvo/ted/graph/join.hoon
View File

@ -5,14 +5,16 @@
++ strand strand:spider
++ poke poke:strandio
++ poke-our poke-our:strandio
::
++ check-live
|= who=ship
=/ m (strand ,~)
^- form:m
%+ (set-timeout:strandio ,~) ~s10
%+ (set-timeout:strandio ,~) ~s20
;< ~ bind:m
(poke [who %hood] %helm-hi !>(~))
(pure:m ~)
::
++ scry-metadata
|= rid=resource
=/ m (strand ,(unit resource))
@ -29,6 +31,7 @@
?~ u.pax ~
`(de-path:resource n.u.pax)
--
::
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
@ -63,4 +66,3 @@
%+ poke-our %graph-pull-hook
pull-hook-action+!>([%add ship.action rid.action]))
(pure:m !>(~))

5
pkg/arvo/ted/graph/leave.hoon
View File

@ -5,6 +5,7 @@
++ strand strand:spider
++ poke poke:strandio
++ poke-our poke-our:strandio
::
++ scry-metadata
|= rid=resource
=/ m (strand ,(unit resource))
@ -16,6 +17,7 @@
/noun
==
(pure:m (bind pax de-path:resource))
::
++ scry-group
|= rid=resource
=/ m (strand ,(unit resource))
@ -27,6 +29,7 @@
/noun
==
(pure:m (need ugroup))
::
++ delete-graph
|= rid=resource
=/ m (strand ,~)
@ -36,6 +39,7 @@
(poke-our %graph-store %graph-update [%archive-graph rid.action])
(pure:m ~)
--
::
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
@ -58,4 +62,3 @@
(poke-our %group-store %group-action !>([%remove-group rid.action])
;< ~ bind:m (delete-graph rid.action)
(pure:m !>(~))