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: more changes

Browse Source
This commit is contained in:
morelazers 2023-04-26 18:07:39 +02:00
parent 594c66cc83
commit a0ed6e178d
2 changed files with 24 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/blog.hoon
View File

@ -214,7 +214,6 @@
^- (quip card _this)
?+ wire (on-arvo:def wire sign-arvo)
[%bind ~] ?>(?=([%eyre %bound %.y *] sign-arvo) `this)
[%result ~] `this
==
++ on-leave on-leave:def
++ on-fail on-fail:def

57
ted/import.hoon
View File

@ -25,19 +25,20 @@
(~(urn by dir.arch) |=([name=@ta ~] ^$(files-path (snoc files-path name))))
:- fil.arch
(~(urn by dir.arch) |=([name=@ta ~] ^$(files-path (snoc files-path name))))
=/ all-files ~(tap of files)
=/ imp :+
pub=*(map path [html=@t md=@t theme=@tas])
dra=*(map path md=@t)
thm=*(map @tas css=@t)
::
=| $= imp
$: pub=(map path [html=@t md=@t theme=@tas])
dra=(map path md=@t)
thm=(map @tas css=@t)
==
=. imp
=/ all-files ~(tap of files)
|-
?: =(all-files ~) imp
%. (rear all-files)
?~ all-files imp
%. i.all-files
|= [=path content=*]
%= ^$
all-files (snip all-files)
all-files t.all-files
imp
?+ (rear path) imp
%md
@ -61,32 +62,22 @@
imp(pub (~(put by pub.imp) file-name file(html (@t (@tas content)))))
==
==
=| cards=(list card:agent:gall)
=/ thm-map ;; (map path @tas)
.^(noun %cx /(scot %p our)/blog/(scot %da now)/import/published/meta/noun)
=/ act
:~ %pass
/poke
%agent
[our %blog]
%poke
%blog-action
==
=. cards
;: welp
cards
%+ turn ~(tap by pub.imp)
|= [=path html=@t md=@t theme=@tas]
(welp act !>([%publish path html md (~(gut by thm-map) path %default)]))
%+ turn ~(tap by dra.imp)
|= [=path md=@t]
(welp act !>([%save-draft path md]))
%+ turn ~(tap by thm.imp)
|= [theme=@tas css=@t]
(welp act !>([%save-theme theme css]))
=/ act |=(=vase [%pass /poke %agent [our %blog] %poke %blog-action vase])
=/ cards=(list card:agent:gall)
%- zing
:~ %+ turn ~(tap by pub.imp)
|= [=path html=@t md=@t theme=@tas]
(act !>([%publish path html md (~(gut by thm-map) path %default)]))
::
%+ turn ~(tap by dra.imp)
|= [=path md=@t]
(act !>([%save-draft path md]))
::
%+ turn ~(tap by thm.imp)
|= [theme=@tas css=@t]
(act !>([%save-theme theme css]))
==
;< ~ bind:m (send-raw-cards cards)
(pure:m !>(~))