urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-01 14:42:02 +03:00
Code Issues Packages Projects Releases Wiki Activity

graph-view: accept %json mark and convert to graph-action

Browse Source
This commit is contained in:
Logan Allen 2020-06-23 14:09:31 -04:00
parent 2fb93c500b
commit 7443ba6bcb
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/app/graph-store.hoon
View File

@ -5,6 +5,7 @@
+$ versioned-state
$% state-0
==
::
+$ state-0 [%0 network:store]
++ orm orm:store
++ orm-log orm-log:store
@ -36,7 +37,6 @@
=^ cards state
?+ mark (on-poke:def mark vase)
%graph-action (graph-action !<(action:store vase))
%json (graph-action (action:dejs:store !<(json vase)))
==
[cards this]
::

9
pkg/arvo/app/graph-view.hoon
View File

@ -1,6 +1,7 @@
/+ view=graph-view, store=graph-store, sigs=signatures, default-agent, dbug
::
~% %graph-view-top ..is ~
|%
+$ card card:agent:gall
+$ versioned-state
$% state-0
==
@ -9,8 +10,6 @@
$: %0
connections=(map atom:store time)
==
::
+$ card card:agent:gall
--
::
=| state-0
@ -18,6 +17,7 @@
::
%- agent:dbug
^- agent:gall
~% %graph-view-agent ..card ~
|_ =bowl:gall
+* this .
def ~(. (default-agent this %|) bowl)
@ -28,6 +28,7 @@
[%pass /updates %agent [our.bowl %graph-store] %watch /updates]~
::
++ on-poke
~/ %graph-view-poke
|= [=mark =vase]
^- (quip card _this)
|^
@ -35,6 +36,7 @@
=^ cards state
?+ mark (on-poke:def mark vase)
%graph-action (action !<(action:store vase))
%json (action (action:dejs:store !<(json vase)))
%graph-view-action (view-action !<(action:view vase))
==
[cards this]
@ -188,6 +190,7 @@
--
::
++ on-watch
~/ %graph-view-watch
|= =path
^- (quip card _this)
?> (team:title our.bowl src.bowl)