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

templates/person/inbox.hamlet

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