Skip to content

P
purescript-gargantext
Commit 34f33b74 authored by arturo's avatar arturo
Browse files
Options

[frame] CSS debug 

* #401
parent 23b46f92
Pipeline #2866 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 83 additions and 156 deletions
    src/Gargantext/Components/Frame/Layout.purs
    View file @ 34f33b74
    ......@@ -145,7 +145,7 @@ nodeFrameVisioCpt = here.component "nodeFrameVisio" cpt where
    --------------------------------------------------------------
    hframeUrl :: NodeType -> Base -> FrameId -> String
    hframeUrl NodeFrameNotebook _ frame_id = frame_id -- Temp fix : frame_id is currently the whole url created
    hframeUrl NodeFrameCalc base frame_id = base <> "/" <> frame_id
    hframeUrl NodeFrameVisio base frame_id = base <> "/" <> frame_id
    hframeUrl _ base frame_id = base <> "/" <> frame_id <> "?view" -- "?both"
    hframeUrl NodeFrameNotebook base frame_id = base <> "/" <> frame_id -- Temp fix : frame_id is currently the whole url created
    hframeUrl NodeFrameCalc base frame_id = base <> "/" <> frame_id
    hframeUrl NodeFrameVisio base frame_id = base <> "/" <> frame_id
    hframeUrl _ base frame_id = base <> "/" <> frame_id <> "?view" -- "?both"
    src/Gargantext/Components/Nodes/Frame.purs
    View file @ 34f33b74
    module Gargantext.Components.Nodes.Frame where
    module Gargantext.Components.Nodes.Frame
    ( node
    ) where
    import Gargantext.Prelude
    import DOM.Simple as DOM
    import Data.Eq.Generic (genericEq)
    import Data.Generic.Rep (class Generic)
    import Data.Maybe (Maybe(..))
    import Data.Newtype (class Newtype)
    import Data.Nullable (Nullable, null, toMaybe)
    import Data.Show.Generic (genericShow)
    import Gargantext.Components.FolderView as FV
    import Gargantext.Components.Node (NodePoly(..))
    import Data.Maybe (Maybe(..), isJust)
    import Data.Tuple.Nested ((/\))
    import Gargantext.Components.Bootstrap as B
    import Gargantext.Components.Frame.Layout (layout)
    import Gargantext.Components.Frame.Types (Hyperdata)
    import Gargantext.Components.Node (NodePoly)
    import Gargantext.Config.REST (AffRESTError, logRESTError)
    import Gargantext.Hooks.Loader (useLoader)
    import Gargantext.Hooks.Loader (useLoaderEffect)
    import Gargantext.Hooks.Session (useSession)
    import Gargantext.Routes (SessionRoute(NodeAPI))
    import Gargantext.Sessions (Session, get, sessionId)
    import Gargantext.Sessions (Session, get)
    import Gargantext.Types (NodeType(..))
    import Gargantext.Utils.JitsiMeet as JM
    import Gargantext.Utils.Reactix as R2
    import Gargantext.Utils.Toestand as T2
    import Reactix as R
    import Reactix.DOM.HTML as H
    import Simple.JSON as JSON
    import Toestand as T
    import Web.URL as WURL
    here :: R2.Here
    here = R2.here "Gargantext.Components.Nodes.Frame"
    newtype Hyperdata = Hyperdata { base :: String, frame_id :: String }
    derive instance Generic Hyperdata _
    derive instance Newtype Hyperdata _
    instance Eq Hyperdata where eq = genericEq
    instance Show Hyperdata where show = genericShow
    derive newtype instance JSON.ReadForeign Hyperdata
    derive newtype instance JSON.WriteForeign Hyperdata
    type Props =
    ( nodeId :: Int
    , nodeType :: NodeType
    , session :: Session
    )
    type KeyProps =
    ( key :: String
    | Props
    )
    here :: R2.Here
    here = R2.here "Gargantext.Components.Nodes.Frame"
    frameLayout :: R2.Leaf Props
    frameLayout = R2.leafComponent frameLayoutCpt
    frameLayoutCpt :: R.Component Props
    frameLayoutCpt = here.component "frameLayout" cpt where
    cpt { nodeId, nodeType, session } _ = do
    pure $ frameLayoutWithKey { key, nodeId, nodeType, session }
    where
    key = show (sessionId session) <> "-" <> show nodeId
    frameLayoutWithKey :: R2.Leaf KeyProps
    frameLayoutWithKey = R2.leafComponent frameLayoutWithKeyCpt
    frameLayoutWithKeyCpt :: R.Component KeyProps
    frameLayoutWithKeyCpt = here.component "frameLayoutWithKey" cpt where
    cpt { nodeId, session, nodeType} _ = do
    reload <- T.useBox T2.newReload
    reload' <- T.useLive T.unequal reload
    useLoader { errorHandler
    , loader: loadframeWithReload
    , path: {nodeId, reload: reload', session}
    , render: \frame -> frameLayoutView {frame, nodeId, reload, session, nodeType} }
    where
    errorHandler = logRESTError here "[frameLayoutWithKey]"
    type ViewProps =
    ( frame :: NodePoly Hyperdata
    , reload :: T2.ReloadS
    , nodeId :: Int
    , nodeType :: NodeType
    , session :: Session
    node :: R2.Leaf ( key :: String | Props )
    node = R2.leaf nodeCpt
    nodeCpt :: R.Component ( key :: String | Props )
    nodeCpt = here.component "node" cpt where
    cpt { nodeId
    , nodeType
    } _ = do
    -- | States
    -- |
    session <- useSession
    state' /\ state <- R2.useBox' Nothing
    reload' /\ reload <- R2.useBox' T2.newReload
    -- | Hooks
    -- |
    useLoaderEffect
    { errorHandler: logRESTError here "[frameLayout]"
    , loader: loadframeWithReload
    , path:
    { nodeId
    , reload: reload'
    , session
    }
    , state
    }
    -- | Render
    -- |
    pure $
    B.cloak
    { isDisplayed: isJust state'
    , idlingPhaseDuration: Just 150
    , cloakSlot:
    B.preloader
    {}
    , defaultSlot:
    R2.fromMaybe state' \frame ->
    layout
    { frame
    , nodeId
    , reload
    , nodeType
    }
    }
    -----------------------------------------------------------
    type LoadProps =
    ( nodeId :: Int
    , session :: Session
    )
    type Base = String
    type FrameId = String
    hframeUrl :: NodeType -> Base -> FrameId -> String
    hframeUrl NodeFrameNotebook base frame_id = base <> "/" <> frame_id -- Temp fix : frame_id is currently the whole url created
    hframeUrl NodeFrameCalc base frame_id = base <> "/" <> frame_id
    hframeUrl NodeFrameVisio base frame_id = base <> "/" <> frame_id
    hframeUrl _ base frame_id = base <> "/" <> frame_id <> "?view" -- "?both"
    frameLayoutView :: R2.Leaf ViewProps
    frameLayoutView = R2.leafComponent frameLayoutViewCpt
    frameLayoutViewCpt :: R.Component ViewProps
    frameLayoutViewCpt = here.component "frameLayoutView" cpt
    where
    cpt { frame: NodePoly { hyperdata: h@(Hyperdata { base, frame_id }) }
    , nodeId
    , nodeType
    , reload
    , session } _ = do
    case nodeType of
    NodeFrameVisio ->
    case WURL.fromAbsolute base of
    Nothing -> pure $ H.div {} [ H.text $ "Wrong base url: " <> base ]
    Just url -> pure $ H.div {} [ H.h1 {} [ H.text "Visio Room"]
    , H.a { className : "fa fa-video-camera fa-5x"
    , href : hframeUrl nodeType base frame_id
    , target: "_blank"
    }
    []
    , H.p {} [H.text "Click on the Camera logo to access to your room"]
    , H.p {} [H.text "This a unique room dedicated to your team"]
    , H.p {} [H.text "Works with Chromium/Chrome only for now."]
    ]
    -- pure $ nodeFrameVisio' { frame_id, reload, url }
    _ ->
    pure $ H.div{}
    [ FV.backButton {} []
    , H.div { className : "frame"
    , rows: "100%,*" }
    [ -- H.script { src: "https://visio.gargantext.org/external_api.js"} [],
    H.iframe { src: hframeUrl nodeType base frame_id
    , width: "100%"
    , height: "100%"
    } []
    ]
    ]
    type NodeFrameVisioProps =
    ( frame_id :: String
    , reload :: T2.ReloadS
    , url :: WURL.URL
    type ReloadProps =
    ( reload :: T2.Reload
    | LoadProps
    )
    nodeFrameVisio :: R2.Leaf NodeFrameVisioProps
    nodeFrameVisio = R2.leafComponent nodeFrameVisioCpt
    nodeFrameVisioCpt :: R.Component NodeFrameVisioProps
    nodeFrameVisioCpt = here.component "nodeFrameVisio" cpt
    where
    cpt { frame_id
    , url } _ = do
    ref <- R.useRef (null :: Nullable DOM.Element)
    R.useEffect' $ do
    here.log2 "[nodeFrameVisio] ref" $ R.readRef ref
    here.log2 "[nodeFrameVisio] JM.api" JM._api
    case toMaybe (R.readRef ref) of
    Nothing -> pure unit
    Just r -> do
    api <- JM.jitsiMeetAPI (WURL.host url) { parentNode: r
    , roomName: frame_id
    , width: "100%"
    , height: "100%" }
    here.log2 "[nodeFrameVisio] api" api
    pure $ H.div { ref, className: "jitsi-iframe" } [ ]
    type LoadProps = ( nodeId :: Int
    , session :: Session )
    type ReloadProps = ( nodeId :: Int
    , reload :: T2.Reload
    , session :: Session )
    loadframe' :: Record LoadProps -> AffRESTError (NodePoly Hyperdata)
    loadframe' { nodeId, session } = get session $ NodeAPI Node (Just nodeId) ""
    -- Just to make reloading effective
    loadframeWithReload :: Record ReloadProps -> AffRESTError (NodePoly Hyperdata)
    loadframeWithReload { nodeId, session } = loadframe' { nodeId, session }
    loadframeWithReload { nodeId, session } = loadframe { nodeId, session }
    loadframe :: Record LoadProps -> AffRESTError (NodePoly Hyperdata)
    loadframe { nodeId, session } = get session $ NodeAPI Node (Just nodeId) ""
    src/Gargantext/Components/Router.purs
    View file @ 34f33b74
    ......@@ -604,10 +604,10 @@ routeFrameCpt = here.component "routeFrame" cpt where
    Record.merge
    { content:
    \session ->
    Frame.frameLayout
    Frame.node
    { nodeId
    , nodeType
    , session
    , key: show (sessionId session) <> "-" <> show nodeId
    }
    }
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment