mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-10 10:05:09 +03:00
link: %add -> %save
This commit is contained in:
parent
626f6abfce
commit
8a0baed192
@ -101,7 +101,7 @@
|
||||
++ do-add
|
||||
|= [=path title=@t =url]
|
||||
^- card
|
||||
(do-action %add path title url)
|
||||
(do-action %save path title url)
|
||||
::
|
||||
++ handle-http-request
|
||||
|= [eyre-id=@ta =inbound-request:eyre]
|
||||
|
@ -107,12 +107,12 @@
|
||||
|= =action
|
||||
^- (quip card _state)
|
||||
?- -.action
|
||||
%add (add-page +.action)
|
||||
%save (save-page +.action)
|
||||
%hear (hear-submission +.action)
|
||||
==
|
||||
:: +add-page: save a page ourselves
|
||||
:: +save-page: save a page ourselves
|
||||
::
|
||||
++ add-page
|
||||
++ save-page
|
||||
|= [=path title=@t =url]
|
||||
^- (quip card _state)
|
||||
?< =(~ path)
|
||||
|
@ -48,8 +48,8 @@
|
||||
++ action
|
||||
|= =json
|
||||
^- ^action
|
||||
?> ?=([%o [%add *] ~ ~] json)
|
||||
:- %add ::TODO +of doesn't please type system?
|
||||
?> ?=([%o [%save *] ~ ~] json)
|
||||
:- %save ::TODO +of doesn't please type system?
|
||||
%. q.n.p.json
|
||||
(ot 'path'^pa 'title'^so 'url'^so ~)
|
||||
--
|
||||
|
@ -30,7 +30,7 @@
|
||||
:: +action: local actions
|
||||
::
|
||||
+$ action
|
||||
$% [%add =path title=@t =url]
|
||||
$% [%save =path title=@t =url]
|
||||
[%hear =path from=ship =page] ::TODO just =submission?
|
||||
==
|
||||
:: +update: local updates
|
||||
|
Loading…
Reference in New Issue
Block a user