mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-16 10:49:26 +03:00
44 lines
1.0 KiB
Plaintext
44 lines
1.0 KiB
Plaintext
:: /mar/collections/comment/hoon
|
|
::
|
|
|_ $= top
|
|
$: tit/cord :: title
|
|
who/ship :: author
|
|
wen/@da :: created
|
|
wed/@da :: editted
|
|
wat/wain :: content
|
|
== ::
|
|
::
|
|
++ grow
|
|
|%
|
|
++ mime
|
|
:- /text/x-collections-comment
|
|
%- as-octs:mimes:html
|
|
(of-wain:format txt)
|
|
++ txt
|
|
^- (list @t)
|
|
:* tit.top
|
|
(scot %p who.top)
|
|
(scot %da wen.top)
|
|
(scot %da wed.top)
|
|
wat
|
|
==
|
|
--
|
|
::
|
|
++ grab
|
|
|%
|
|
++ mime
|
|
|= {p/mite:eyre q/octs:eyre}
|
|
(txt (to-wain:format q.q))
|
|
++ txt
|
|
|= txs/(list @t)
|
|
?> (gte (lent txs) 4)
|
|
:* (snag 0 txs)
|
|
(slav %p (snag 1 txs))
|
|
(slav %da (snag 2 txs))
|
|
(slav %da (snag 3 txs))
|
|
(slag 4 txs)
|
|
==
|
|
--
|
|
++ grad %txt
|
|
--
|