Add node_id query param to hframeUrl

src/Gargantext/Components/Frame/Layout.purs

@@ -21,6 +21,7 @@ here = R2.here "Gargantext.Components.Frame.Layout"
 type Props =
   ( frame    :: NodePoly Hyperdata
   , nodeType :: NodeType
+  , nodeId   :: Int
   )
 
 layout :: R2.Leaf Props
@@ -29,6 +30,7 @@ layoutCpt :: R.Component Props
 layoutCpt = here.component "main" cpt where
   cpt { frame: NodePoly { hyperdata: Hyperdata { base, frame_id } }
       , nodeType
+      , nodeId
       } _ = case nodeType of
 
     -- Visio Node
@@ -58,7 +60,7 @@ layoutCpt = here.component "main" cpt where
             ,
               H.a
               { className : "fa fa-video-camera fa-5x"
-              , href : hframeUrl nodeType base frame_id
+              , href : hframeUrl nodeType base frame_id nodeId
               , target: "_blank"
               }
               []
@@ -92,7 +94,7 @@ layoutCpt = here.component "main" cpt where
         [
           -- H.script { src: "https://visio.gargantext.org/external_api.js"} [],
           H.iframe
-          { src: hframeUrl nodeType base frame_id
+          { src: hframeUrl nodeType base frame_id nodeId
           , width: "100%"
           , height: "100%"
           }
@@ -132,8 +134,8 @@ layoutCpt = here.component "main" cpt where
 
 --------------------------------------------------------------
 
-hframeUrl :: NodeType -> Base -> FrameId -> String
-hframeUrl NodeFrameNotebook base frame_id = base <> "/" <> frame_id  -- Temp fix : frame_id is currently the whole url created
-hframeUrl Calc  base frame_id    = base <> "/" <> frame_id
-hframeUrl NodeFrameVisio base frame_id    = base <> "/" <> frame_id
-hframeUrl _ base frame_id                 = base <> "/" <> frame_id <> "?view" -- "?both"
+hframeUrl :: NodeType -> Base -> FrameId -> Int -> String
+hframeUrl NodeFrameNotebook base frame_id _ = base <> "/" <> frame_id  -- Temp fix : frame_id is currently the whole url created
+hframeUrl Calc  base frame_id _  = base <> "/" <> frame_id
+hframeUrl NodeFrameVisio base frame_id _  = base <> "/" <> frame_id
+hframeUrl _ base frame_id node_id         = base <> "/" <> frame_id <> "?view&node_id=" <> show node_id -- "?both"

src/Gargantext/Components/Nodes/Frame.purs

@@ -70,6 +70,7 @@ nodeCpt = R2.hereComponent here "node" hCpt where
             layout
             { frame
             , nodeType
+            , nodeId
             }
       }