mirror of
https://github.com/worpet-bildet/blog.git
synced 2024-08-17 12:10:36 +03:00
fix: move uri out of state
This commit is contained in:
parent
28327fbc2b
commit
6d34abf090
@ -25,7 +25,6 @@
|
|||||||
files=(map path [html=@t md=@t theme=@tas])
|
files=(map path [html=@t md=@t theme=@tas])
|
||||||
drafts=(map path md=@t)
|
drafts=(map path md=@t)
|
||||||
themes=(map @tas css=@t)
|
themes=(map @tas css=@t)
|
||||||
uri=@t
|
|
||||||
pub-paths=_(mk-pubs blog-paths ,[%paths ~])
|
pub-paths=_(mk-pubs blog-paths ,[%paths ~])
|
||||||
==
|
==
|
||||||
+$ card $+(card card:agent:gall)
|
+$ card $+(card card:agent:gall)
|
||||||
@ -59,13 +58,12 @@
|
|||||||
(~(urn by files.old) |=([=path html=@t md=@t] [html md %none]))
|
(~(urn by files.old) |=([=path html=@t md=@t] [html md %none]))
|
||||||
drafts.old
|
drafts.old
|
||||||
(~(gas by *(map @tas @t)) [%default default-theme:blog-lib]~)
|
(~(gas by *(map @tas @t)) [%default default-theme:blog-lib]~)
|
||||||
uri=*@t
|
|
||||||
pub-paths
|
pub-paths
|
||||||
==
|
==
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
%2
|
%2
|
||||||
=. state [%3 files.old drafts.old themes.old uri=*@t pub-paths]
|
=. state [%3 files.old drafts.old themes.old pub-paths]
|
||||||
=^ cards pub-paths (give:du-paths [%paths ~] [%init ~(key by files)])
|
=^ cards pub-paths (give:du-paths [%paths ~] [%init ~(key by files)])
|
||||||
:_ this
|
:_ this
|
||||||
%+ welp cards
|
%+ welp cards
|
||||||
@ -179,7 +177,7 @@
|
|||||||
::
|
::
|
||||||
%update-uri
|
%update-uri
|
||||||
=^ cards pub-paths (give:du-paths [%paths ~] [%uri uri.act])
|
=^ cards pub-paths (give:du-paths [%paths ~] [%uri uri.act])
|
||||||
:_ this(uri uri.act) cards
|
[cards this]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
%sss-to-pub
|
%sss-to-pub
|
||||||
@ -197,7 +195,7 @@
|
|||||||
[%x %html ^] ``blog+!>(-:(~(got by files) t.t.path))
|
[%x %html ^] ``blog+!>(-:(~(got by files) t.t.path))
|
||||||
[%x %draft ^] ``blog+!>((~(got by drafts) t.t.path))
|
[%x %draft ^] ``blog+!>((~(got by drafts) t.t.path))
|
||||||
[%x %theme @ ~] ``blog+!>((~(got by themes) i.t.t.path))
|
[%x %theme @ ~] ``blog+!>((~(got by themes) i.t.t.path))
|
||||||
[%x %uri ~] ``blog+!>(uri)
|
[%x %uri ~] ``blog+!>(uri:rock:(~(got by read:du-paths) [%paths ~]))
|
||||||
::
|
::
|
||||||
[%x %pages ~]
|
[%x %pages ~]
|
||||||
=; pages ``json+!>([%a pages])
|
=; pages ``json+!>([%a pages])
|
||||||
|
Loading…
Reference in New Issue
Block a user