tadad/blog
1
1
Fork 0
mirror of https://github.com/tadad/blog.git synced 2024-08-17 08:40:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix: blog sub sss path

Browse Source
This commit is contained in:
morelazers 2023-05-29 15:06:50 +02:00
parent f9d963b0c1
commit 9047d54af5
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
app/blog-sub.hoon
View File

@ -11,7 +11,7 @@
|_ =bowl:gall
+* this .
default ~(. (default-agent this %.n) bowl)
da-paths =/ da (da blog-paths ,[%paths ~])
da-blog-paths =/ da (da blog-paths ,[%paths ~])
(da sub-paths bowl -:!>(*result:da) -:!>(*from:da) -:!>(*fail:da))
++ on-init
^- (quip card _this)
@ -30,15 +30,14 @@
?+ mark `this
%blog-sub
=/ sub !<([%sub =ship] vase)
=^ cards sub-paths (surf:da-paths ship.sub %blog [%paths ~])
=^ cards sub-paths (surf:da-blog-paths ship.sub %blog [%paths ~])
[cards this]
::
%sss-paths
=^ cards sub-paths (apply:da-paths !<(into:da-paths (fled vase)))
%sss-blog-paths
=^ cards sub-paths (apply:da-blog-paths !<(into:da-blog-paths (fled vase)))
[cards this]
::
%sss-on-rock
~& > "received!"
`this
==
++ on-watch on-watch:default
@ -52,18 +51,18 @@
%- (slog u.p.sign)
?+ wire `this
[~ %sss %on-rock @ @ @ %paths ~]
=. sub-paths (chit:da-paths |3:wire sign)
=. sub-paths (chit:da-blog-paths |3:wire sign)
`this
::
[~ %sss %scry-request @ @ @ %paths ~]
=^ cards sub-paths (tell:da-paths |3:wire sign)
=^ cards sub-paths (tell:da-blog-paths |3:wire sign)
[cards this]
==
++ on-arvo
|= [=wire sign=sign-arvo]
^- (quip card:agent:gall _this)
?+ wire `this
[~ %sss %behn @ @ @ %paths ~] [(behn:da-paths |3:wire) this]
[~ %sss %behn @ @ @ %paths ~] [(behn:da-blog-paths |3:wire) this]
==
++ on-fail on-fail:default
--