link: %add -> %save

This commit is contained in:
Fang 2019-12-20 15:58:32 +01:00
parent 626f6abfce
commit 8a0baed192
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
4 changed files with 7 additions and 7 deletions

View File

@ -101,7 +101,7 @@
++ do-add ++ do-add
|= [=path title=@t =url] |= [=path title=@t =url]
^- card ^- card
(do-action %add path title url) (do-action %save path title url)
:: ::
++ handle-http-request ++ handle-http-request
|= [eyre-id=@ta =inbound-request:eyre] |= [eyre-id=@ta =inbound-request:eyre]

View File

@ -107,12 +107,12 @@
|= =action |= =action
^- (quip card _state) ^- (quip card _state)
?- -.action ?- -.action
%add (add-page +.action) %save (save-page +.action)
%hear (hear-submission +.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] |= [=path title=@t =url]
^- (quip card _state) ^- (quip card _state)
?< =(~ path) ?< =(~ path)

View File

@ -48,8 +48,8 @@
++ action ++ action
|= =json |= =json
^- ^action ^- ^action
?> ?=([%o [%add *] ~ ~] json) ?> ?=([%o [%save *] ~ ~] json)
:- %add ::TODO +of doesn't please type system? :- %save ::TODO +of doesn't please type system?
%. q.n.p.json %. q.n.p.json
(ot 'path'^pa 'title'^so 'url'^so ~) (ot 'path'^pa 'title'^so 'url'^so ~)
-- --

View File

@ -30,7 +30,7 @@
:: +action: local actions :: +action: local actions
:: ::
+$ action +$ action
$% [%add =path title=@t =url] $% [%save =path title=@t =url]
[%hear =path from=ship =page] ::TODO just =submission? [%hear =path from=ship =page] ::TODO just =submission?
== ==
:: +update: local updates :: +update: local updates