tadad/blog
1
1
Fork 0
mirror of https://github.com/tadad/blog.git synced 2024-09-11 12:55:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

whoops

Browse Source
This commit is contained in:
dachus 2023-03-02 00:12:53 -06:00
parent 262b62a82e
commit 0c807c4533
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
app/blog.hoon
View File

@ -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))