mirror of
https://github.com/tadad/blog.git
synced 2024-10-26 21:09:27 +03:00
fix: blog sub sss path
This commit is contained in:
parent
f9d963b0c1
commit
9047d54af5
@ -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
|
||||||
--
|
--
|
||||||
|
Loading…
Reference in New Issue
Block a user