don't display ', ' prefix on authors in a document

src/Gargantext/Components/Document/Layout.purs

@@ -156,6 +156,10 @@ layoutWithContextNgramsCpt = here.component "layoutWithContextNgrams" cpt where
         -- here.log2 "[setTermList] calling reload" reload'
         -- T2.reload reload
 
+      authors' = fromMaybe "" $ do
+        authors <- doc.authors
+        String.stripPrefix (String.Pattern ", ") authors
+
       hasAbstract =  maybe false (not String.null) doc.abstract
 
       annotate text = AnnotatedField.annotatedField
@@ -296,7 +300,7 @@ layoutWithContextNgramsCpt = here.component "layoutWithContextNgrams" cpt where
           --   btnSeeMore "title"
           ]
         ,
-          R2.fromMaybe doc.authors \authors ->
+          R2.fromMaybe (Just authors') \authors ->
 
             H.div
             { className: "document-layout__authors justify-content-space-between" }