tadad/blog
1
1
Fork 0
mirror of https://github.com/tadad/blog.git synced 2024-10-26 21:09:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

working

Browse Source
This commit is contained in:
dachus 2023-05-16 14:42:55 -03:00
parent 0ac5d47e53
commit 43b4c1bc8f
1 changed files with 62 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/blog.hoon
View File

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