mirror of
https://github.com/tadad/blog.git
synced 2024-08-17 08:40:20 +03:00
413 upgrade
This commit is contained in:
parent
45e8f6360c
commit
0ac5d47e53
@ -19,13 +19,13 @@
|
||||
drafts=(map path md=@t)
|
||||
themes=(map @tas css=@t)
|
||||
==
|
||||
+$ card $+(card card:agent:gall)
|
||||
--
|
||||
=| state-2
|
||||
=* state -
|
||||
|_ =bowl:gall
|
||||
+* this .
|
||||
def ~(. (default-agent this %.n) bowl)
|
||||
card card:agent:gall
|
||||
++ on-init
|
||||
^- (quip card _this)
|
||||
`this(themes (~(gas by themes) [%default default-theme:blog-lib]~))
|
||||
@ -50,44 +50,35 @@
|
||||
(~(gas by *(map @tas @t)) [%default default-theme:blog-lib]~)
|
||||
==
|
||||
::
|
||||
%2 `this(state old)
|
||||
%2
|
||||
:_ this(state old)
|
||||
%- zing
|
||||
%+ turn ~(tap by files.old)
|
||||
|= [=path html=@t md=@t theme=@tas]
|
||||
:~ [%pass /bind %arvo %e %disconnect `path]
|
||||
:* %pass /bind %arvo %e
|
||||
%set-response (spat path)
|
||||
~ %.n %payload
|
||||
[200 ['Content-Type' 'text/html; charset=utf-8']~]
|
||||
=/ tem=@t (~(gut by themes.old) theme '')
|
||||
`(as-octs:mimes:^html (cat 3 html (add-style:blog-lib tem)))
|
||||
==
|
||||
:* %pass /bind %arvo %e
|
||||
%set-response (cat 3 (spat path) '.md')
|
||||
~ %.n %payload
|
||||
[200 ['Content-Type' 'text/plain; charset=utf-8']~]
|
||||
`(as-octs:mimes:^html md)
|
||||
== ==
|
||||
==
|
||||
::
|
||||
++ on-poke
|
||||
|= [=mark =vase]
|
||||
|^
|
||||
?+ mark (on-poke:def mark vase)
|
||||
%handle-http-request
|
||||
(handle-http-request bowl !<([@tas inbound-request:eyre] vase))
|
||||
::
|
||||
%blog-action
|
||||
(handle-action bowl !<(act=action:blog vase))
|
||||
==
|
||||
::
|
||||
++ handle-http-request
|
||||
|= [=bowl:gall rid=@tas req=inbound-request:eyre]
|
||||
^- (quip card _this)
|
||||
=/ url-len (met 3 url.request.req)
|
||||
?: =('.md' (cut 3 [(sub url-len 3) 3] url.request.req)) :: get MARKDOWN
|
||||
=/ file (rash (end [3 (sub url-len 3)] url.request.req) stap)
|
||||
:_ this
|
||||
%^ http-response-cards:blog-lib
|
||||
rid
|
||||
[200 ['Content-Type' 'text/plain; charset=utf-8']~]
|
||||
`(as-octs:mimes:html md:(~(got by files) file))
|
||||
::
|
||||
=? url.request.req =('.html' (cut 3 [(sub url-len 5) 5] url.request.req))
|
||||
(end [3 (sub url-len 5)] url.request.req)
|
||||
=/ file (~(got by files) (rash url.request.req stap))
|
||||
=/ theme ?~(got=(~(get by themes) theme.file) '' u.got)
|
||||
=/ post-with-style
|
||||
(cat 3 html:file (add-style:blog-lib theme))
|
||||
:_ this
|
||||
%^ http-response-cards:blog-lib
|
||||
rid
|
||||
[200 ['Content-Type' 'text/html; charset=utf-8']~]
|
||||
`(as-octs:mimes:html post-with-style)
|
||||
::
|
||||
++ handle-action
|
||||
|= [=bowl:gall act=action:blog]
|
||||
^- (quip card _this)
|
||||
@ -95,11 +86,26 @@
|
||||
?- -.act
|
||||
%publish
|
||||
:_ this(files (~(put by files) [path html md theme]:act))
|
||||
[%pass /bind %arvo %e %connect `path.act dap.bowl]~
|
||||
:~ :* %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 %disconnect `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
|
||||
@ -181,15 +187,15 @@
|
||||
|= [=binding:eyre * =action:eyre]
|
||||
^- [@t json]
|
||||
:- (spat path.binding)
|
||||
?+ -.action [%s 'unknown']
|
||||
?- -.action
|
||||
%gen [%s (crip "desk: {<desk.generator.action>}")]
|
||||
%app [%s (crip "app: {<app.action>}")]
|
||||
%authentication [%s '%authentication']
|
||||
%logout [%s '%logout']
|
||||
%channel [%s '%channel']
|
||||
%scry [%s '%scry']
|
||||
:: %name [%s '%name'] :: TODO next release
|
||||
:: %four-oh-four [%s '%four-oh-four']
|
||||
%name [%s '%name']
|
||||
%four-oh-four [%s '%four-oh-four']
|
||||
==
|
||||
==
|
||||
::
|
||||
|
1
mar/kelvin.hoon
Symbolic link
1
mar/kelvin.hoon
Symbolic link
@ -0,0 +1 @@
|
||||
../../base-dev/mar/kelvin.hoon
|
@ -1,3 +1 @@
|
||||
[%zuse 415]
|
||||
[%zuse 414]
|
||||
[%zuse 413]
|
Loading…
Reference in New Issue
Block a user