mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
74 lines
1.8 KiB
Plaintext
74 lines
1.8 KiB
Plaintext
/- spider, graph-view, graph=graph-store,
|
|
met=metadata-store, *group, *metadata-store
|
|
/+ strandio, resource
|
|
=>
|
|
|%
|
|
++ strand strand:spider
|
|
++ poke poke:strandio
|
|
++ poke-our poke-our:strandio
|
|
::
|
|
++ check-live
|
|
|= who=ship
|
|
=/ m (strand ,~)
|
|
^- form:m
|
|
%+ (set-timeout:strandio ,~) ~s20
|
|
;< ~ bind:m
|
|
(poke [who %hood] %helm-hi !>(~))
|
|
(pure:m ~)
|
|
::
|
|
++ scry-group
|
|
|= rid=resource
|
|
=/ m (strand ,group)
|
|
^- form:m
|
|
;< ugroup=(unit group) bind:m
|
|
%+ scry:strandio (unit group)
|
|
%+ weld /gx/group-store/groups
|
|
(snoc (en-path:resource rid) %noun)
|
|
?> ?=(^ ugroup)
|
|
(pure:m u.ugroup)
|
|
::
|
|
++ scry-metadatum
|
|
|= rid=resource
|
|
=/ m (strand ,metadatum:met)
|
|
^- form:m
|
|
=/ enc-path=@t (scot %t (spat (en-path:resource rid)))
|
|
;< umeta=(unit metadatum:met) bind:m
|
|
%+ scry:strandio (unit metadatum:met)
|
|
%+ weld /gx/metadata-store/metadata
|
|
/[enc-path]/graph/[enc-path]/noun
|
|
?> ?=(^ umeta)
|
|
(pure:m u.umeta)
|
|
--
|
|
::
|
|
^- thread:spider
|
|
|= arg=vase
|
|
=/ m (strand ,vase)
|
|
^- form:m
|
|
=+ !<([~ =action:graph-view] arg)
|
|
?> ?=(%groupify -.action)
|
|
;< =group bind:m (scry-group rid.action)
|
|
?. hidden.group
|
|
(strand-fail:strandio %bad-request ~)
|
|
;< =metadatum:met bind:m (scry-metadatum rid.action)
|
|
?~ to.action
|
|
;< ~ bind:m
|
|
%+ poke-our %contact-view
|
|
:- %contact-view-action
|
|
!>([%groupify rid.action title.metadatum description.metadatum])
|
|
(pure:m !>(~))
|
|
;< new=^group bind:m (scry-group u.to.action)
|
|
?< hidden.new
|
|
;< ~ bind:m
|
|
%+ poke-our %metadata-store
|
|
:- %metadata-action
|
|
!> ^- action:met
|
|
[%add u.to.action [%graph rid.action] metadatum]
|
|
;< ~ bind:m
|
|
%+ poke-our %metadata-store
|
|
:- %metadata-action
|
|
!> ^- action:met
|
|
[%remove rid.action [%graph rid.action]]
|
|
;< ~ bind:m
|
|
(poke-our %group-store %group-update-0 !>([%remove-group rid.action ~]))
|
|
(pure:m !>(~))
|