mirror of
https://github.com/tadad/blog.git
synced 2024-09-11 12:55:07 +03:00
feat: allow saving base uri
This commit is contained in:
parent
08eeb8d28c
commit
adbd7f792a
@ -26,6 +26,7 @@
|
||||
files=(map path [html=@t md=@t theme=@tas])
|
||||
drafts=(map path md=@t)
|
||||
themes=(map @tas css=@t)
|
||||
uri=@t
|
||||
=_pub-paths
|
||||
==
|
||||
+$ card $+(card card:agent:gall)
|
||||
@ -59,12 +60,13 @@
|
||||
(~(urn by files.old) |=([=path html=@t md=@t] [html md %none]))
|
||||
drafts.old
|
||||
(~(gas by *(map @tas @t)) [%default default-theme:blog-lib]~)
|
||||
uri=*@t
|
||||
pub-paths
|
||||
==
|
||||
==
|
||||
::
|
||||
%2
|
||||
=. state [%3 files.old drafts.old themes.old pub-paths]
|
||||
=. state [%3 files.old drafts.old themes.old uri=*@t pub-paths]
|
||||
=^ cards pub-paths (give:du-paths [%paths ~] [%init ~(key by files)])
|
||||
:_ this
|
||||
%+ welp cards
|
||||
@ -176,6 +178,7 @@
|
||||
%delete-draft `this(drafts (~(del by drafts) path.act))
|
||||
%save-theme `this(themes (~(put by themes) [theme css]:act))
|
||||
%delete-theme `this(themes (~(del by themes) theme.act))
|
||||
%update-uri `this(uri uri.act)
|
||||
==
|
||||
::
|
||||
%sss-to-pub
|
||||
@ -193,6 +196,7 @@
|
||||
[%x %html ^] ``blog+!>(-:(~(got by files) t.t.path))
|
||||
[%x %draft ^] ``blog+!>((~(got by drafts) t.t.path))
|
||||
[%x %theme @ ~] ``blog+!>((~(got by themes) i.t.t.path))
|
||||
[%x %uri ~] ``blog+!>(uri)
|
||||
::
|
||||
[%x %pages ~]
|
||||
=; pages ``json+!>([%a pages])
|
||||
|
@ -13,6 +13,7 @@
|
||||
[%delete-draft (ot ~[path+pa])]
|
||||
[%save-theme (ot ~[theme+so css+so])]
|
||||
[%delete-theme (ot ~[theme+so])]
|
||||
[%update-uri (ot ~[uri+so])]
|
||||
==
|
||||
--
|
||||
::
|
||||
|
@ -7,6 +7,7 @@
|
||||
[%delete-draft =path]
|
||||
[%save-theme theme=@tas css=@t]
|
||||
[%delete-theme theme=@tas]
|
||||
[%update-uri uri=@t]
|
||||
==
|
||||
+$ sub [%sub =ship]
|
||||
--
|
Loading…
Reference in New Issue
Block a user