urbit/mar/collections/topic.hoon
2017-12-14 16:39:45 -08:00

45 lines
1.1 KiB
Plaintext

:: /mar/collections/topic/hoon
::
|_ $= top
$: tit/cord :: title
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)
:+ (cat 3 '> ' tit.top)
(crip <[by=who.top ed=wed.top]>)
wat.top
--
::
++ grab
|%
++ mime
|= {p/mite:eyre q/octs:eyre}
(txt (to-wain:format q.q))
++ txt
|= txs/(pole @t) ^+ top
?> ?=([des=@t inf=@t wat=*] txs)
=/ tit (rash des.txs ;~(pfix (jest '> ') (cook crip (star next))))
::
=/ inf :: REVIEW this seems not v stable
%- %- hard
$: %cltr
[%ktts %by [%sand %p who=@p]]
[%ktts %ed [%sand %da wed=@da]]
~
==
(ream inf.txs)
[tit who.inf wed.inf wat.txs]
--
++ grad %txt
--