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

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