mirror of
https://github.com/tadad/blog.git
synced 2024-08-17 00:30:26 +03:00
18 lines
401 B
Plaintext
18 lines
401 B
Plaintext
|%
|
|
++ name %blog-paths
|
|
+$ rock [uri=@t paths=(set path)]
|
|
+$ wave
|
|
$% [%init paths=(set path)]
|
|
[%post =path]
|
|
[%depost =path]
|
|
[%uri uri=@t]
|
|
==
|
|
++ wash
|
|
|= [=rock =wave]
|
|
?- -.wave
|
|
%init rock(paths paths.wave)
|
|
%post rock(paths (~(put in paths.rock) path.wave))
|
|
%depost rock(paths (~(del in paths.rock) path.wave))
|
|
%uri rock(uri uri.wave)
|
|
==
|
|
-- |