22 lines
452 B
Plaintext
22 lines
452 B
Plaintext
|
::
|
||
|
|
:: XX remove this file in transition to %4
|
||
|
|
::
|
||
|
|
|%
|
||
|
|
++ 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)
|
||
|
|
==
|
||
|
|
--
|