Display remote actor name in remote message view

src/Vervis/Discussion.hs

@@ -42,7 +42,7 @@ import Vervis.Model
 
 data MessageTreeNodeAuthor
     = MessageTreeNodeLocal LocalMessageId Sharer
-    | MessageTreeNodeRemote Text LocalURI LocalURI
+    | MessageTreeNodeRemote Text LocalURI LocalURI (Maybe Text)
 
 data MessageTreeNode = MessageTreeNode
     { mtnMessageId :: MessageId
@@ -69,13 +69,14 @@ getMessages getdid = runDB $ do
             , i ^. InstanceHost
             , rm ^. RemoteMessageIdent
             , rs ^. RemoteActorIdent
+            , rs ^. RemoteActorName
             )
     return $ map mklocal l ++ map mkremote r
     where
     mklocal (Entity mid m, Value lmid, Entity _ s) =
         MessageTreeNode mid m $ MessageTreeNodeLocal lmid s
-    mkremote (Entity mid m, Value h, Value luMsg, Value luAuthor) =
-        MessageTreeNode mid m $ MessageTreeNodeRemote h luMsg luAuthor
+    mkremote (Entity mid m, Value h, Value luMsg, Value luAuthor, Value name) =
+        MessageTreeNode mid m $ MessageTreeNodeRemote h luMsg luAuthor name
 
 discussionTree :: [MessageTreeNode] -> Forest MessageTreeNode
 discussionTree mss =

src/Vervis/Handler/Discussion.hs

@@ -90,6 +90,7 @@ getNode getdid mid = do
                     (instanceHost i)
                     (remoteMessageIdent rm)
                     (remoteActorIdent rs)
+                    (remoteActorName rs)
     return $ MessageTreeNode mid m author
 
 {-

templates/discussion/widget/message.hamlet

@@ -18,7 +18,7 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
     $of MessageTreeNodeLocal lmid s
       <a href=@{MessageR (sharerIdent s) (encodeHid lmid)}>
         #{showTime $ messageCreated msg}
-    $of MessageTreeNodeRemote h luMsg _luAuthor
+    $of MessageTreeNodeRemote h luMsg _luAuthor _mname
       <a href="#{renderFedURI $ l2f h luMsg}"}>
         #{showTime $ messageCreated msg}
 <div>

templates/widget/actor-link.hamlet

@@ -21,8 +21,11 @@ $case actor
         #{shr2text $ sharerIdent s}
     <span>
       ./s/#{shr2text $ sharerIdent s}
-  $of MessageTreeNodeRemote h _luMsg luAuthor
+  $of MessageTreeNodeRemote h _luMsg luAuthor mname
     <a href="#{renderFedURI $ l2f h luAuthor}">
+      $maybe name <- mname
+        #{name}
+      $nothing
         (?)
     <span>
       #{shortURI h luAuthor}