mirror of
https://github.com/tadad/blog.git
synced 2024-09-11 12:55:07 +03:00
whoops
This commit is contained in:
parent
262b62a82e
commit
0c807c4533
@ -28,14 +28,7 @@
|
|||||||
card card:agent:gall
|
card card:agent:gall
|
||||||
++ on-init
|
++ on-init
|
||||||
^- (quip card _this)
|
^- (quip card _this)
|
||||||
:- ~
|
`this(themes (~(gas by themes) [%default default-theme:blog-lib]~))
|
||||||
%= this
|
|
||||||
themes
|
|
||||||
%- ~(gas by themes)
|
|
||||||
:~ [%default default-theme:blog-lib]
|
|
||||||
[%none '']
|
|
||||||
==
|
|
||||||
==
|
|
||||||
++ on-save !>(state)
|
++ on-save !>(state)
|
||||||
++ on-load
|
++ on-load
|
||||||
|= =vase
|
|= =vase
|
||||||
@ -54,10 +47,7 @@
|
|||||||
:^ %2
|
:^ %2
|
||||||
(~(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))
|
(~(gas by *(map @tas @t)) [%default default-theme:blog-lib]~)
|
||||||
:~ [%default default-theme:blog-lib]
|
|
||||||
[%none '']
|
|
||||||
==
|
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
%2 `this(state old)
|
%2 `this(state old)
|
||||||
@ -89,7 +79,7 @@
|
|||||||
=? url.request.req =('.html' (cut 3 [(sub url-len 5) 5] url.request.req))
|
=? url.request.req =('.html' (cut 3 [(sub url-len 5) 5] url.request.req))
|
||||||
(end [3 (sub url-len 5)] url.request.req)
|
(end [3 (sub url-len 5)] url.request.req)
|
||||||
=/ file (~(got by files) (rash url.request.req stap))
|
=/ file (~(got by files) (rash url.request.req stap))
|
||||||
=/ theme (~(got by themes) theme.file)
|
=/ theme ?~(got=(~(get by themes) theme.file) '' u.got)
|
||||||
=/ post-with-style
|
=/ post-with-style
|
||||||
(cat 3 html:file (add-style:blog-lib theme))
|
(cat 3 html:file (add-style:blog-lib theme))
|
||||||
:_ this
|
:_ this
|
||||||
@ -127,9 +117,9 @@
|
|||||||
++ on-peek
|
++ on-peek
|
||||||
|= =path
|
|= =path
|
||||||
^- (unit (unit cage))
|
^- (unit (unit cage))
|
||||||
?+ path ~
|
?+ path (on-peek:def path)
|
||||||
::
|
::
|
||||||
[%x %md ^] ``blog+!>(+<:(~(got by files) t.t.path))
|
[%x %md ^] ``blog+!>(+<:(~(got by files) t.t.path)) :: TODO bad practice
|
||||||
[%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))
|
||||||
|
Loading…
Reference in New Issue
Block a user