Start adding custom type
This commit is contained in:
parent
bf38da3d4e
commit
d9b9edc7e1
@ -1,3 +1,4 @@
|
|||||||
|
/- browsermanager
|
||||||
/+ *server, default-agent
|
/+ *server, default-agent
|
||||||
::
|
::
|
||||||
|%
|
|%
|
||||||
@ -37,7 +38,22 @@
|
|||||||
(on-arvo:def wire sign-arvo)
|
(on-arvo:def wire sign-arvo)
|
||||||
[~ this]
|
[~ this]
|
||||||
::
|
::
|
||||||
++ on-poke on-poke:def
|
::
|
||||||
|
++ on-poke
|
||||||
|
|= [=mark =vase]
|
||||||
|
^- (quip card _this)
|
||||||
|
?+ mark
|
||||||
|
(on-poke:def mark vase)
|
||||||
|
%noun ~& 'Browser Manager'
|
||||||
|
~& mark
|
||||||
|
~& vase
|
||||||
|
`this
|
||||||
|
%browsermanager-action
|
||||||
|
=/ action !<(action:browsermanager vase)
|
||||||
|
~& 'Browser Manager action'
|
||||||
|
~& >>> action
|
||||||
|
`this
|
||||||
|
==
|
||||||
++ on-save on-save:def
|
++ on-save on-save:def
|
||||||
++ on-load on-load:def
|
++ on-load on-load:def
|
||||||
++ on-leave on-leave:def
|
++ on-leave on-leave:def
|
||||||
|
7
gall-app/urbit/mar/browsermanager/action.hoon
Normal file
7
gall-app/urbit/mar/browsermanager/action.hoon
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
/- browsermanager
|
||||||
|
|_ act=action:browsermanager
|
||||||
|
++ grab
|
||||||
|
|%
|
||||||
|
++ noun action:browsermanager
|
||||||
|
--
|
||||||
|
--
|
6
gall-app/urbit/sur/browsermanager.hoon
Normal file
6
gall-app/urbit/sur/browsermanager.hoon
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
|%
|
||||||
|
+$ action
|
||||||
|
$? %ping
|
||||||
|
[%submit-url @t]
|
||||||
|
==
|
||||||
|
--
|
Loading…
Reference in New Issue
Block a user