chat-view: limit initial scrollback to 25 msgs
Provided "load backlog on-scroll" actually works, you don't really need
all that much on initial load.
[[%give %fact ~ %json !>(*json)]~ this]
(on-watch:def path)
::
+ ++ message-limit 25
+ ::
++ truncated-inbox-scry
^- inbox
=/ =inbox .^(inbox %gx /=chat-store/(scot %da now.bol)/all/noun)
|= envelopes=(list envelope)
^- (list envelope)
=/ length (lent envelopes)
- ?: (lth length 100)
+ ?: (lth length message-limit)
envelopes
- (swag [(sub length 100) 100] envelopes)
+ (slag (sub length message-limit) envelopes)
--
::
++ on-agent
