mirror of
https://github.com/tadad/blog.git
synced 2024-08-17 08:40:20 +03:00
fix: rm blog-sub.hoon
This commit is contained in:
parent
2d9932ea99
commit
1477618aff
@ -1,63 +0,0 @@
|
||||
/- paths, *blog
|
||||
/+ default-agent, dbug, *sss
|
||||
=/ sub-paths (mk-subs paths ,[%paths ~])
|
||||
::
|
||||
|%
|
||||
+$ card card:agent:gall
|
||||
--
|
||||
%- agent:dbug
|
||||
^- agent:gall
|
||||
|_ =bowl:gall
|
||||
+* this .
|
||||
default ~(. (default-agent this %.n) bowl)
|
||||
da-paths =/ da (da paths ,[%paths ~])
|
||||
(da sub-paths bowl -:!>(*result:da) -:!>(*from:da) -:!>(*fail:da))
|
||||
++ on-init
|
||||
^- (quip card _this)
|
||||
`this
|
||||
::
|
||||
++ on-save !>(sub-paths)
|
||||
++ on-load
|
||||
|= =vase
|
||||
:- ~
|
||||
=/ old !<(=_sub-paths vase)
|
||||
this(sub-paths sub-paths.old)
|
||||
::
|
||||
++ on-poke
|
||||
|= [=mark =vase]
|
||||
^- (quip card _this)
|
||||
?+ mark `this
|
||||
%blog-sub
|
||||
=^ cards sub-paths (surf:da-paths !<(@p (slot 3 vase)) %blog [%paths ~])
|
||||
[cards this]
|
||||
::
|
||||
%sss-paths
|
||||
=^ cards sub-paths (apply:da-paths !<(into:da-paths (fled vase)))
|
||||
[cards this]
|
||||
==
|
||||
++ on-watch on-watch:default
|
||||
++ on-leave on-leave:default
|
||||
++ on-peek on-peek:default
|
||||
++ on-agent
|
||||
|= [=wire =sign:agent:gall]
|
||||
^- (quip card:agent:gall _this)
|
||||
?> ?=(%poke-ack -.sign)
|
||||
?~ p.sign `this
|
||||
%- (slog u.p.sign)
|
||||
?+ wire `this
|
||||
[~ %sss %on-rock @ @ @ %paths ~]
|
||||
=. sub-paths (chit:da-paths |3:wire sign)
|
||||
`this
|
||||
::
|
||||
[~ %sss %scry-request @ @ @ %paths ~]
|
||||
=^ cards sub-paths (tell:da-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]
|
||||
==
|
||||
++ on-fail on-fail:default
|
||||
--
|
Loading…
Reference in New Issue
Block a user