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

src/Vervis/Handler/Inbox.hs

@@ -236,6 +236,10 @@ getInbox here getInboxId = do
                 error $ "InboxItem #" ++ show ibid ++ " both local and remote"
             (Just act, Nothing) -> persistJSONObject act
             (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 shr = getInbox here getInboxId