mirror of
https://github.com/tadad/blog.git
synced 2024-09-11 12:55:07 +03:00
WIP
This commit is contained in:
parent
5388c9fd06
commit
643fd11bea
@ -15,7 +15,7 @@
|
||||
def ~(. (default-agent this %.n) bowl)
|
||||
hc ~(. +> bowl)
|
||||
card card:agent:gall
|
||||
++ on-init `this
|
||||
++ on-init on-init:def
|
||||
++ on-save on-save:def
|
||||
++ on-load on-load:def
|
||||
++ on-poke
|
||||
@ -23,14 +23,7 @@
|
||||
?> =(%blog-action mark)
|
||||
=+ !<(act=action:blog vase)
|
||||
?- -.act
|
||||
%unbind-post :: TODO probably dont' need this
|
||||
:_ this
|
||||
[%pass /bind %arvo %e %disconnect `bind.act]~
|
||||
::
|
||||
%save-file
|
||||
~& > text.act
|
||||
~& > file.act
|
||||
:: /=blog=/blogs/...
|
||||
=* file [%posts file.act]
|
||||
=* nor `nori:clay`[%& [file %ins %html !>(text.act)]~]
|
||||
:_ this
|
||||
@ -38,15 +31,15 @@
|
||||
[%pass /serve %arvo %e %serve `file.act dap.bowl /gen/blog/hoon ~]
|
||||
==
|
||||
::
|
||||
%delete-file :: TODO unbind here as well
|
||||
%delete-file
|
||||
=* nor `nori:clay`[%& [file.act %del ~]~]
|
||||
[%pass / %arvo %c %info %blog nor]~^this
|
||||
:_ this
|
||||
:~ [%pass / %arvo %c %info %blog nor]
|
||||
[%pass /serve %arvo %e %disconnect `file.act]
|
||||
==
|
||||
==
|
||||
++ on-agent on-agent:def
|
||||
++ on-watch
|
||||
|= =path
|
||||
^- (quip card _this)
|
||||
?>(?=([%http-response *] path) `this)
|
||||
++ on-watch on-watch:def
|
||||
++ on-peek
|
||||
|= =path
|
||||
^- (unit (unit cage))
|
||||
@ -57,20 +50,10 @@
|
||||
:^ ~ ~ %bindings !>
|
||||
.^((list [binding:eyre duct action:eyre]) %e pax)
|
||||
::
|
||||
[%x %posts ~]
|
||||
=* pax /(scot %p our.bowl)/blog/(scot %da now.bowl)/blogs
|
||||
``arch+!>((turn ~(tap by dir:.^(arch %cy pax)) head))
|
||||
::
|
||||
[%x %content ^]
|
||||
:^ ~ ~ %html
|
||||
!> ^- cord
|
||||
%- of-wain:format
|
||||
.^ wain
|
||||
%cx
|
||||
%+ weld
|
||||
/(scot %p our.bowl)/blog/(scot %da now.bowl)/blog
|
||||
t.t.path
|
||||
==
|
||||
[%x %md *]
|
||||
:: TODO need to put/scry out actual md files
|
||||
:^ ~ ~ %md
|
||||
!>(['# %studio test file' ~])
|
||||
::
|
||||
==
|
||||
::
|
||||
|
@ -7,9 +7,8 @@
|
||||
++ json
|
||||
=, dejs:format
|
||||
%- of
|
||||
:~ [%unbind-post pa]
|
||||
[%save-file (ot ~[file+pa text+so])]
|
||||
[%delete-file pa]
|
||||
:~ [%save-file (ot ~[file+pa text+so])]
|
||||
[%delete-file (ot ~[file+pa])]
|
||||
==
|
||||
--
|
||||
::
|
||||
|
@ -1,7 +1,6 @@
|
||||
|%
|
||||
+$ action
|
||||
$% [%unbind-post bind=path]
|
||||
[%save-file file=path text=@t]
|
||||
$% [%save-file file=path text=@t]
|
||||
[%delete-file file=path]
|
||||
==
|
||||
--
|
Loading…
Reference in New Issue
Block a user