Start adding custom type

This commit is contained in:
ronreg-ribdev 2020-11-29 02:54:20 -08:00
parent bf38da3d4e
commit d9b9edc7e1
3 changed files with 30 additions and 1 deletions

View File

@ -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

View File

@ -0,0 +1,7 @@
/- browsermanager
|_ act=action:browsermanager
++ grab
|%
++ noun action:browsermanager
--
--

View File

@ -0,0 +1,6 @@
|%
+$ action
$? %ping
[%submit-url @t]
==
--