[ERGO] target blank for urls in tabs.

src/Gargantext/Components/DocsTable.purs

@@ -29,7 +29,7 @@ import Gargantext.Components.Node (NodePoly(..))
 import Gargantext.Components.Table as T
 import Gargantext.Utils.DecodeMaybe ((.|))
 import React.DOM (a, br', button, div, i, input, p, text)
-import React.DOM.Props (_type, className, href, onClick, placeholder, style)
+import React.DOM.Props (_type, className, href, onClick, placeholder, style, target)
 import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState_, simpleSpec, hideState)
 ------------------------------------------------------------------------
 -- TODO: Pagination Details are not available from the BackEnd
@@ -281,9 +281,10 @@ renderPage loaderDispatch {totalRecords, dispatch} {currentPath: {nodeId, tabTyp
                       else
                         div [ ][text r.date]
                     , if (r.delete) then
-                        a [ href (toUrl Front Url_Document (Just r._id)), style {textDecoration : "line-through"} ] [ text r.title ]
+                        a [ href (toUrl Front Url_Document (Just r._id)), style {textDecoration : "line-through"}, target "blank"
+                        ] [ text r.title ]
                       else
-                        a [ href (toUrl Front Url_Document (Just r._id)) ] [ text r.title ]
+                        a [ href (toUrl Front Url_Document (Just r._id)), target "blank" ] [ text r.title ]
                     , if (r.delete) then
                         div [style {textDecoration : "line-through"}] [ text r.source]
                       else

src/Gargantext/Pages/Annuaire.purs

@@ -18,7 +18,7 @@ import Gargantext.Pages.Annuaire.User.Contacts.Types (Contact(..), HyperdataCont
 import React (ReactClass, ReactElement, Children)
 import React as React
 import React.DOM (a, br', div, input, p, text)
-import React.DOM.Props (className, href, style)
+import React.DOM.Props (className, href, style, target)
 import Thermite (Render, Spec, createClass, simpleSpec, defaultPerformAction)
 ------------------------------------------------------------------------------
 
@@ -151,7 +151,7 @@ renderContactCells :: Maybe Contact -> Array ReactElement
 renderContactCells Nothing = []
 renderContactCells (Just (Contact { id, hyperdata : (HyperdataContact contact@{who: who, ou:ou} ) })) =
   [ text ""
-  , a [ href (toUrl Front NodeContact (Just id)) ] [ text $ maybe "name" identity contact.title ]
+  , a [ href (toUrl Front NodeContact (Just id)), target "blank" ] [ text $ maybe "name" identity contact.title ]
   , text $ maybe "No ContactWhere" renderContactWhereOrg  (head $ ou)
   , text $ maybe "No ContactWhere" renderContactWhereDept (head $ ou)
   , div [className "nooverflow"] [text $ maybe "No ContactWhere" renderContactWhereRole (head $ ou)]