mirror of
https://github.com/urbit/shrub.git
synced 2024-12-25 13:04:17 +03:00
55 lines
1.3 KiB
Plaintext
55 lines
1.3 KiB
Plaintext
/- *publish
|
|
|_ com=comment
|
|
::
|
|
::
|
|
++ grow
|
|
|%
|
|
++ mime
|
|
:- /text/x-publish-comments
|
|
(as-octs:mimes:html (of-wain:format txt))
|
|
++ txt
|
|
^- wain
|
|
:* (cat 3 'author: ' (scot %p author.com))
|
|
(cat 3 'date-created: ' (scot %da date-created.com))
|
|
'-----'
|
|
(to-wain:format content.com)
|
|
==
|
|
--
|
|
++ grab
|
|
|%
|
|
++ mime
|
|
|= [mite:eyre p=octs:eyre]
|
|
|^ (rash q.p both-parser)
|
|
++ key-val
|
|
|* [key=rule val=rule]
|
|
;~(sfix ;~(pfix key val) gaq)
|
|
++ old-parser
|
|
;~ plug
|
|
(key-val (jest 'creator: ~') fed:ag)
|
|
(key-val (jest 'collection: ') sym)
|
|
(key-val (jest 'post: ') sym)
|
|
(key-val (jest 'date-created: ~') (cook year when:so))
|
|
(key-val (jest 'last-modified: ~') (cook year when:so))
|
|
;~(pfix (jest (cat 3 '-----' 10)) (cook crip (star next)))
|
|
==
|
|
++ new-parser
|
|
;~ plug
|
|
(key-val (jest 'author: ~') fed:ag)
|
|
(key-val (jest 'date-created: ~') (cook year when:so))
|
|
;~(pfix (jest (cat 3 '-----' 10)) (cook crip (star next)))
|
|
==
|
|
++ both-parser
|
|
;~ pose
|
|
new-parser
|
|
%+ cook
|
|
|= [author=@ @ @ date-created=@da @ content=@t]
|
|
^- comment
|
|
[author date-created content]
|
|
old-parser
|
|
==
|
|
--
|
|
++ noun comment
|
|
--
|
|
++ grad %mime
|
|
--
|