sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:54:52 +09:00
Code Issues Activity

In inbox display, show summary when available, otherwise show highlighted JSON

Browse source
This commit is contained in:
fr33domlover 2019-06-29 23:16:52 +00:00
parent f7b7a417eb
commit d73c3928a0
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Vervis/Handler/Inbox.hs
View file

@ -236,6 +236,10 @@ getInbox here getInboxId = do
error $ "InboxItem #" ++ show ibid ++ " both local and remote" error $ "InboxItem #" ++ show ibid ++ " both local and remote"
(Just act, Nothing) -> persistJSONObject act (Just act, Nothing) -> persistJSONObject act
(Nothing, Just obj) -> persistJSONObject obj (Nothing, Just obj) -> persistJSONObject obj
objectSummary o =
case M.lookup "summary" o of
Just (String t) | not (T.null t) -> Just t
_ -> Nothing
getSharerInboxR :: ShrIdent -> Handler TypedContent getSharerInboxR :: ShrIdent -> Handler TypedContent
getSharerInboxR shr = getInbox here getInboxId getSharerInboxR shr = getInbox here getInboxId

7
templates/person/inbox.hamlet
View file

@ -21,7 +21,10 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
<div> <div>
$forall obj <- items $forall obj <- items
<div><pre> $maybe summary <- objectSummary obj
#{TLB.toLazyText $ encodePrettyToTextBuilder obj} <div>
^{preEscapedToHtml summary}
$nothing
^{renderPrettyJSONSkylighting obj}
^{pageNav} ^{pageNav}