JitsiMeet.purs 617 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11
module Gargantext.Utils.JitsiMeet where

import Data.Function.Uncurried (Fn2, runFn2)
import DOM.Simple as DOM
import Effect (Effect)
import Effect.Uncurried (EffectFn2, runEffectFn2)

foreign import data JitsiMeet :: Type

type Jitsi =
  { parentNode :: DOM.Element
12 13 14
  , roomName :: String
  , width :: String
  , height :: String }
15 16 17 18 19 20 21 22 23

foreign import _api :: JitsiMeet
foreign import _jitsiMeetAPI :: EffectFn2 String Jitsi JitsiMeet

jitsiMeetAPI :: String -> Jitsi -> Effect JitsiMeet
jitsiMeetAPI = runEffectFn2 _jitsiMeetAPI

--jitsiMeetAPIFn :: String -> Jitsi -> JitsiMeet
--jitsiMeetAPIFn = runFn2 _jitsiMeetAPI