list-posts ( -- posts )


Vocabulary
webapps.blogs

Inputs
None

Outputs
postsan object


Definition
USING: accessors db.tuples html.forms kernel sequences ;

IN: webapps.blogs

: list-posts ( -- posts )
f <post-state> "author" value >>author select-tuples
[ dup id>> f <comment> count-tuples >>comments ] map
reverse-chronological-order ;