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
|= [=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]

View File

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

View File

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

View File

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