UI: Actor outbox view: Render URI from route instead of parsing JSON for @id

src/Vervis/Handler/Deck.hs

@@ -206,7 +206,7 @@ postDeckInboxR recipDeckHash =
             _ -> return ("Unsupported activity type for decks", Nothing)
 
 getDeckOutboxR :: KeyHashid Deck -> Handler TypedContent
-getDeckOutboxR = getOutbox DeckOutboxR deckActor
+getDeckOutboxR = getOutbox DeckOutboxR DeckOutboxItemR deckActor
 
 getDeckOutboxItemR
     :: KeyHashid Deck -> KeyHashid OutboxItem -> Handler TypedContent

src/Vervis/Handler/Group.hs

@@ -120,7 +120,7 @@ postGroupInboxR recipGroupHash =
             _ -> return ("Unsupported activity type for groups", Nothing)
 
 getGroupOutboxR :: KeyHashid Group -> Handler TypedContent
-getGroupOutboxR = getOutbox GroupOutboxR groupActor
+getGroupOutboxR = getOutbox GroupOutboxR GroupOutboxItemR groupActor
 
 getGroupOutboxItemR
     :: KeyHashid Group -> KeyHashid OutboxItem -> Handler TypedContent

src/Vervis/Handler/Loom.hs

@@ -154,7 +154,7 @@ postLoomInboxR recipLoomHash =
             _ -> return ("Unsupported activity type for looms", Nothing)
 
 getLoomOutboxR :: KeyHashid Loom -> Handler TypedContent
-getLoomOutboxR = getOutbox LoomOutboxR loomActor
+getLoomOutboxR = getOutbox LoomOutboxR LoomOutboxItemR loomActor
 
 getLoomOutboxItemR
     :: KeyHashid Loom -> KeyHashid OutboxItem -> Handler TypedContent

src/Vervis/Handler/Person.hs

@@ -230,7 +230,7 @@ postPersonInboxR recipPersonHash = postInbox handle
             _ -> return ("Unsupported activity type for Person", Nothing)
 
 getPersonOutboxR :: KeyHashid Person -> Handler TypedContent
-getPersonOutboxR = getOutbox PersonOutboxR personActor
+getPersonOutboxR = getOutbox PersonOutboxR PersonOutboxItemR personActor
 
 postPersonOutboxR :: KeyHashid Person -> Handler TypedContent
 postPersonOutboxR personHash = do

src/Vervis/Handler/Repo.hs

@@ -277,7 +277,7 @@ postRepoInboxR recipRepoHash =
             _ -> return ("Unsupported activity type for repos", Nothing)
 
 getRepoOutboxR :: KeyHashid Repo -> Handler TypedContent
-getRepoOutboxR = getOutbox RepoOutboxR repoActor
+getRepoOutboxR = getOutbox RepoOutboxR RepoOutboxItemR repoActor
 
 getRepoOutboxItemR
     :: KeyHashid Repo -> KeyHashid OutboxItem -> Handler TypedContent

src/Vervis/Web/Actor.hs

@@ -276,11 +276,11 @@ postInbox handler = do
                         then V.init vec'
                         else vec'
 
-getOutbox here actor hash = do
+getOutbox here itemRoute grabActorID hash = do
     key <- decodeKeyHashid404 hash
     (total, pages, mpage) <- runDB $ do
         outboxID <- do
-            actorID <- actor <$> get404 key
+            actorID <- grabActorID <$> get404 key
             actorOutbox <$> getJust actorID
         let countAllItems = count [OutboxItemOutbox ==. outboxID]
             selectItems off lim = selectList [OutboxItemOutbox ==. outboxID] [Desc OutboxItemId, OffsetBy off, LimitTo lim]
@@ -328,6 +328,7 @@ getOutbox here actor hash = do
                 provideRep $ do
                     let pageNav = navWidget navModel
                     showTime <- getShowTime
+                    hashItem <- getEncodeKeyHashid
                     defaultLayout $(widgetFile "person/outbox")
 
 getOutboxItem here actor topicHash itemHash = do

templates/person/outbox.hamlet

@@ -20,11 +20,11 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
 ^{pageNav}
 
 <div>
-  $forall Entity _ (OutboxItem _ doc published) <- items
+  $forall Entity itemID (OutboxItem _ doc published) <- items
     $with obj <- persistJSONObject doc
       <div>
         Published
-        <a href="#{objectId obj}">
+        <a href="@{itemRoute hash $ hashItem itemID}">
           #{showTime published}
 
       $maybe summary <- objectSummary obj