tadad/blog
1
1
Fork 0
mirror of https://github.com/tadad/blog.git synced 2024-10-26 21:09:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

working

Browse Source
This commit is contained in:
dachus 2023-05-16 14:42:55 -03:00
parent 0ac5d47e53
commit 43b4c1bc8f
1 changed files with 62 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

130
app/blog.hoon
View File

@ -73,76 +73,70 @@
:: ::
++ on-poke ++ on-poke
|= [=mark =vase] |= [=mark =vase]
|^ ^- (quip card _this)
?+ mark (on-poke:def mark vase) ~| "unexpected poke to {<dap.bowl>} with mark {<mark>}"
%blog-action ?> =(%blog-action mark)
(handle-action bowl !<(act=action:blog vase)) =+ !<(act=action:blog vase)
== ?> =(src.bowl our.bowl)
:: ?- -.act
++ handle-action %publish
|= [=bowl:gall act=action:blog] :_ this(files (~(put by files) [path html md theme]:act))
^- (quip card _this) :~ :* %pass /bind %arvo %e
?> =(src.bowl our.bowl) %set-response (cat 3 (spat path.act) '.md')
?- -.act ~ %.n %payload
%publish [200 ['Content-Type' 'text/plain; charset=utf-8']~]
:_ this(files (~(put by files) [path html md theme]:act)) `(as-octs:mimes:html md.act)
:~ :* %pass /bind %arvo %e
%set-response (cat 3 (spat path.act) '.md')
~ %.n %payload
[200 ['Content-Type' 'text/plain; charset=utf-8']~]
`(as-octs:mimes:html md.act)
==
:* %pass /bind %arvo %e
%set-response (spat path.act)
~ %.n %payload
[200 ['Content-Type' 'text/html; charset=utf-8']~]
=/ tem=@t (~(gut by themes) theme.act '')
`(as-octs:mimes:html (cat 3 html.act (add-style:blog-lib tem)))
== ==
::
%unpublish
:_ this(files (~(del by files) path.act))
:~ [%pass /bind %arvo %e %set-response `@t`(cat 3 (spat path.act) '.md') ~]
[%pass /bind %arvo %e %set-response (spat path.act) ~]
==
::
%export
=/ soba-html=soba:clay
%- zing
%+ turn ~(tap by files)
|= [=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) :* %pass /bind %arvo %e
|= [=path md=@t] %set-response (spat path.act)
^- (pair ^path miso:clay) ~ %.n %payload
[[%export %drafts (snoc path %md)] %ins %md !>([md ~])] [200 ['Content-Type' 'text/html; charset=utf-8']~]
=/ soba-css=soba:clay =/ tem=@t (~(gut by themes) theme.act '')
%+ turn ~(tap by themes) `(as-octs:mimes:html (cat 3 html.act (add-style:blog-lib tem)))
|= [theme=@tas css=@t] == ==
^- (pair path miso:clay) ::
[[%export %themes (snoc [theme]~ %css)] %ins %css !>(css)] %unpublish
:_ this :_ this(files (~(del by files) path.act))
:~ [%pass /info %arvo %c %info %blog %& soba-html] :~ [%pass /bind %arvo %e %set-response `@t`(cat 3 (spat path.act) '.md') ~]
[%pass /info %arvo %c %info %blog %& soba-md] [%pass /bind %arvo %e %set-response (spat path.act) ~]
[%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))
%save-theme `this(themes (~(put by themes) [theme css]:act))
%delete-theme `this(themes (~(del by themes) theme.act))
== ==
-- ::
%export
=/ soba-html=soba:clay
%- zing
%+ turn ~(tap by files)
|= [=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]
^- (pair ^path miso:clay)
[[%export %drafts (snoc path %md)] %ins %md !>([md ~])]
=/ soba-css=soba:clay
%+ turn ~(tap by themes)
|= [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]
[%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))
%save-theme `this(themes (~(put by themes) [theme css]:act))
%delete-theme `this(themes (~(del by themes) theme.act))
==
:: ::
++ on-agent on-agent:def ++ on-agent on-agent:def
++ on-watch ++ on-watch