mirror of
https://github.com/tadad/blog.git
synced 2024-10-26 21:09:27 +03:00
working
This commit is contained in:
parent
0ac5d47e53
commit
43b4c1bc8f
@ -73,15 +73,10 @@
|
||||
::
|
||||
++ on-poke
|
||||
|= [=mark =vase]
|
||||
|^
|
||||
?+ mark (on-poke:def mark vase)
|
||||
%blog-action
|
||||
(handle-action bowl !<(act=action:blog vase))
|
||||
==
|
||||
::
|
||||
++ handle-action
|
||||
|= [=bowl:gall act=action:blog]
|
||||
^- (quip card _this)
|
||||
~| "unexpected poke to {<dap.bowl>} with mark {<mark>}"
|
||||
?> =(%blog-action mark)
|
||||
=+ !<(act=action:blog vase)
|
||||
?> =(src.bowl our.bowl)
|
||||
?- -.act
|
||||
%publish
|
||||
@ -142,7 +137,6 @@
|
||||
%save-theme `this(themes (~(put by themes) [theme css]:act))
|
||||
%delete-theme `this(themes (~(del by themes) theme.act))
|
||||
==
|
||||
--
|
||||
::
|
||||
++ on-agent on-agent:def
|
||||
++ on-watch
|
||||
|
Loading…
Reference in New Issue
Block a user