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

feat: export via clay

Browse Source
This commit is contained in:
morelazers 2023-04-03 21:23:00 +02:00
parent d6e4299ec9
commit 3e60349ad6
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
app/blog.hoon
View File

@ -99,6 +99,26 @@
%unpublish
:_ this(files (~(del by files) path.act))
[%pass /bind %arvo %e %disconnect `path.act]~
::
%export
=/ soba-html
%+ 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
%+ turn ~(tap by drafts)
|= [=path md=@t]
[[%export %drafts (snoc path %md)] %ins %md !>([md ~])]
=/ soba-css
%+ turn ~(tap by themes)
|= [theme=@tas css=@t]
[[%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]
[%pass /info %arvo %c %info %blog %& soba-css]
==
::
%save-draft `this(drafts (~(put by drafts) [path md]:act))
%delete-draft `this(drafts (~(del by drafts) path.act))