mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
49 lines
1015 B
Plaintext
49 lines
1015 B
Plaintext
:: /mar/collections/topic/hoon
|
|
::
|
|
/- *collections
|
|
|_ top=topic
|
|
::
|
|
++ 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
|
|
::
|
|
++ elem :: web display
|
|
;div
|
|
;pre: {(trip (of-wain:format txt))}
|
|
;hr;
|
|
;kids; :: show comments
|
|
==
|
|
++ front (my title+tit.top ~) :: title in lists
|
|
--
|
|
::
|
|
++ 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
|
|
--
|