adding a function to open url in new window

src/Gargantext/Components/GraphExplorer/Sidebar/DocList.purs

@@ -174,7 +174,7 @@ docListCpt = here.component "main" cpt where
       , state
       }
     
-    { goToURL } <- useLinkHandler
+    { goToURL, goToURLInNewTab } <- useLinkHandler
 
     -- | Effects
     -- |
@@ -261,8 +261,8 @@ docListCpt = here.component "main" cpt where
               H.ul { className: "flex-row list-group justify-content-space-between align-items-center mb-1" } 
               [ H.li {} [ andOrButton { state: buttonState } ]
               , H.li {} [ H.p { className: "text-bold" } [ H.text "No related documents" ] ]
-              , H.li {} [ B.iconButton { name: "search", title: "Search the web", callback: \_ -> webSearch (A.fromFoldable selectedNgramsTerms') goToURL } ]
-              , H.li {} [ B.iconButton { name: "wikipedia-w", title: "Search Wikipedia", callback: \_ -> wikipediaSearch (A.fromFoldable selectedNgramsTerms') goToURL } ]
+              , H.li {} [ B.iconButton { name: "search", title: "Search the web", callback: \_ -> webSearch (A.fromFoldable selectedNgramsTerms') goToURLInNewTab } ]
+              , H.li {} [ B.iconButton { name: "wikipedia-w", title: "Search Wikipedia", callback: \_ -> wikipediaSearch (A.fromFoldable selectedNgramsTerms') goToURLInNewTab } ]
               ]
             , B.caveat
               {}
@@ -278,8 +278,8 @@ docListCpt = here.component "main" cpt where
               H.ul { className: "flex-row list-group justify-content-space-between align-items-center mb-1" } 
               [ H.li {} [ andOrButton { state: buttonState } ]
               , H.li {} [ H.p { className: "text-bold" } [ H.text $ show (Seq.length results) <> " related documents" ] ]
-              , H.li {} [ B.iconButton { name: "search", title: "Search the web", callback: \_ -> webSearch (A.fromFoldable selectedNgramsTerms') goToURL } ]
-              , H.li {} [ B.iconButton { name: "wikipedia-w", title: "Search Wikipedia", callback: \_ -> wikipediaSearch (A.fromFoldable selectedNgramsTerms') goToURL } ]
+              , H.li {} [ B.iconButton { name: "search", title: "Search the web", callback: \_ -> webSearch (A.fromFoldable selectedNgramsTerms') goToURLInNewTab } ]
+              , H.li {} [ B.iconButton { name: "wikipedia-w", title: "Search Wikipedia", callback: \_ -> wikipediaSearch (A.fromFoldable selectedNgramsTerms') goToURLInNewTab } ]
               ]
             , H.ul
               { className: intercalate " "

src/Gargantext/Components/PhyloExplorer/Sidebar/DocList.purs

@@ -164,7 +164,7 @@ docListCpt = here.component "main" cpt where
       , path: path'
       }
 
-    { goToURL } <- useLinkHandler
+    { goToURL, goToURLInNewTab } <- useLinkHandler
 
     -- | Effects
     -- |
@@ -248,8 +248,8 @@ docListCpt = here.component "main" cpt where
               H.ul { className: "flex-row list-group justify-content-space-between align-items-center mb-1" } 
               [ H.li {} [ andOrButton { state: buttonState } ]
               , H.li {} [ H.p { className: "text-bold" } [ H.text "No related documents" ] ]
-              , H.li {} [ B.iconButton { name: "search", title: "Search the web", callback: \_ -> webSearch q' goToURL} ]
-              , H.li {} [ B.iconButton { name: "wikipedia-w", title: "Search Wikipedia", callback: \_ -> wikipediaSearch q' goToURL} ]
+              , H.li {} [ B.iconButton { name: "search", title: "Search the web", callback: \_ -> webSearch q' goToURLInNewTab} ]
+              , H.li {} [ B.iconButton { name: "wikipedia-w", title: "Search Wikipedia", callback: \_ -> wikipediaSearch q' goToURLInNewTab} ]
               ]
             , B.caveat
               {}
@@ -264,8 +264,8 @@ docListCpt = here.component "main" cpt where
             H.ul { className: "flex-row list-group justify-content-space-between align-items-center mb-1" } 
               [ H.li {} [ andOrButton { state: buttonState } ]
               , H.li {} [ H.p { className: "text-bold" } [ H.text $ show (Seq.length results) <> " related documents" ] ]
-              , H.li {} [ B.iconButton { name: "search", title: "Search the web", callback: \_ -> webSearch q' goToURL} ]
-              , H.li {} [ B.iconButton { name: "wikipedia-w", title: "Search Wikipedia", callback: \_ -> wikipediaSearch q' goToURL} ]
+              , H.li {} [ B.iconButton { name: "search", title: "Search the web", callback: \_ -> webSearch q' goToURLInNewTab} ]
+              , H.li {} [ B.iconButton { name: "wikipedia-w", title: "Search Wikipedia", callback: \_ -> wikipediaSearch q' goToURLInNewTab} ]
               ]
             ,
             H.ul

src/Gargantext/Hooks/LinkHandler.purs

 module Gargantext.Hooks.LinkHandler
   ( Methods, useLinkHandler
-  , goToRoute, goToURL, goToPreviousPage
+  , goToRoute, goToPreviousPage, goToURL, goToURLInNewTab
   ) where
 
 import Gargantext.Prelude
@@ -18,12 +18,13 @@ import Type.Proxy (Proxy(..))
 import Web.HTML (window)
 import Web.HTML.History (back)
 import Web.HTML.Location (assign, setHref)
-import Web.HTML.Window (history, location)
+import Web.HTML.Window (history, location, open)
 
 type Methods =
   ( goToRoute        :: AppRoute -> Effect Unit
   , goToPreviousPage :: Unit -> Effect Unit
   , goToURL          :: String -> Effect Unit
+  , goToURLInNewTab  :: String -> Effect Unit
   )
 
 useLinkHandler :: R.Hooks (Record Methods)
@@ -41,6 +42,7 @@ useLinkHandler = do
           tile
     , goToPreviousPage  : const goToPreviousPage
     , goToURL           : goToURL
+    , goToURLInNewTab   : goToURLInNewTab
     }
 
 -- (?) Also exporting implementation methods, as it can be useful in an
@@ -55,6 +57,12 @@ goToPreviousPage = window >>= history >>= back
 goToURL :: String -> Effect Unit
 goToURL url = window >>= location >>= setHref url
 
+goToURLInNewTab :: String -> Effect Unit
+goToURLInNewTab url = do
+  _ <- window >>= open url "_blank" ""
+  -- _ <- window >>= \win -> win.open url "_blank" window
+  pure unit
+
 --------------------------------------
 
 changeTileRoute ::