tadad/blog
1
1
Fork 0
mirror of https://github.com/tadad/blog.git synced 2024-08-17 08:40:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix: comments

Browse Source
This commit is contained in:
morelazers 2023-04-04 21:52:41 +02:00
parent 71da390a47
commit 4fbe2e5f1e
2 changed files with 20 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
app/blog.hoon
View File

@ -101,19 +101,29 @@
[%pass /bind %arvo %e %disconnect `path.act]~
::
%export
=/ soba-html
=/ soba-html=soba:clay
%- zing
%+ turn ~(tap by files)
|= [=path html=@t md=@t theme=@tas]
=/ t ?~(got=(~(get by themes) theme) '' u.got)
[[%export %published (snoc path %html)] %ins %html !>((cat 3 html (add-style:blog-lib t)))]
=/ soba-md
|= [=path html=@t md=@t theme=@tas]
^- soba:clay
=/ t ?~(got=(~(get by themes) theme) '' u.got)
:~ :^ [%export %published %html (snoc path %html)]
%ins %html
!>((cat 3 html (add-style:blog-lib t)))
:^ [%export %published %md (snoc path %md)]
%ins %md
!>([md ~])
==
=/ soba-md=soba:clay
%+ turn ~(tap by drafts)
|= [=path md=@t]
[[%export %drafts (snoc path %md)] %ins %md !>([md ~])]
=/ soba-css
|= [=path md=@t]
^- (pair ^path miso:clay)
[[%export %drafts (snoc path %md)] %ins %md !>([md ~])]
=/ soba-css=soba:clay
%+ turn ~(tap by themes)
|= [theme=@tas css=@t]
[[%export %themes (snoc [theme]~ %css)] %ins %css !>(css)]
|= [theme=@tas css=@t]
^- (pair path miso:clay)
[[%export %themes (snoc [theme]~ %css)] %ins %css !>(css)]
:_ this
:~ [%pass /info %arvo %c %info %blog %& soba-html]
[%pass /info %arvo %c %info %blog %& soba-md]
@ -160,38 +170,6 @@
=; theme ``json+!>(s+theme)
theme:(~(got by files) t.t.path)
::
[%x %export ~]
=; export ``json+!>(export)
%- pairs:enjs:format
:~
:- 'published'
:- %a
%+ turn ~(tap by files)
|= [=^path html=@t md=@t theme=@tas]
:- %a
:~ (path:enjs:format path)
(tape:enjs:format [html ~])
(tape:enjs:format [md ~])
s+theme
==
:- 'drafts'
:- %a
%+ turn ~(tap by drafts)
|= [=^path md=@t]
:- %a
:~ (path:enjs:format path)
(tape:enjs:format [md ~])
==
:- 'themes'
:- %a
%+ turn ~(tap by themes)
|= [theme=@tas css=@t]
:- %a
:~ (path:enjs:format [theme ~])
(tape:enjs:format [css ~])
==
==
::
[%x %all-bindings ~]
=; the-thing ``json+!>(the-thing)
%- pairs:enjs:format

4
gen/blog-export.hoon
View File

@ -1,4 +0,0 @@
:- %say
|= [[now=@da @ our=@p ^] *]
:- %json
.^(json %gx /(scot %p our)/blog/(scot %da now)/export/json)