urbit/mar/collections/comment.hoon

41 lines
957 B
Plaintext
Raw Normal View History

2017-12-02 21:45:47 +03:00
:: /mar/collections/comment/hoon
::
|_ $= com
$: who/ship :: author
wed/@da :: editted
wat/wain :: content
== ::
::
++ grow
|%
++ mime
:- /text/x-collections-comment
%- as-octs:mimes:html
(of-wain:format txt)
++ txt
^- (list @t)
2017-12-14 06:09:00 +03:00
:- (crip <[by=who.com ed=wed.com]>)
2017-12-14 04:11:13 +03:00
wat.com
2017-12-02 21:45:47 +03:00
--
::
++ grab
|%
++ mime
|= {p/mite:eyre q/octs:eyre}
(txt (to-wain:format q.q))
++ txt
2017-12-14 04:11:13 +03:00
|= txs/(pole @t) ^+ com
?> ?=([inf=@t wat=*] txs)
=/ inf :: REVIEW this seems not v stable
%- %- hard
$: %cltr
[%ktts %by [%sand %p who=@p]]
[%ktts %ed [%sand %da wed=@da]]
~
==
(ream inf.txs)
2017-12-14 06:09:00 +03:00
[who.inf wed.inf wat.txs]
2017-12-02 21:45:47 +03:00
--
++ grad %txt
--