module GHCJS.DOM.JSFFI.Generated.BatteryManager
(js_getCharging, getCharging, js_getChargingTime, getChargingTime,
js_getDischargingTime, getDischargingTime, js_getLevel, getLevel,
chargingChange, chargingTimeChange, dischargingTimeChange,
levelChange, BatteryManager(..), gTypeBatteryManager)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "($1[\"charging\"] ? 1 : 0)"
js_getCharging :: BatteryManager -> IO Bool
getCharging :: (MonadIO m) => BatteryManager -> m Bool
getCharging self = liftIO (js_getCharging (self))
foreign import javascript unsafe "$1[\"chargingTime\"]"
js_getChargingTime :: BatteryManager -> IO Double
getChargingTime :: (MonadIO m) => BatteryManager -> m Double
getChargingTime self = liftIO (js_getChargingTime (self))
foreign import javascript unsafe "$1[\"dischargingTime\"]"
js_getDischargingTime :: BatteryManager -> IO Double
getDischargingTime :: (MonadIO m) => BatteryManager -> m Double
getDischargingTime self = liftIO (js_getDischargingTime (self))
foreign import javascript unsafe "$1[\"level\"]" js_getLevel ::
BatteryManager -> IO Double
getLevel :: (MonadIO m) => BatteryManager -> m Double
getLevel self = liftIO (js_getLevel (self))
chargingChange :: EventName BatteryManager Event
chargingChange = unsafeEventName (toJSString "chargingchange")
chargingTimeChange :: EventName BatteryManager Event
chargingTimeChange
= unsafeEventName (toJSString "chargingtimechange")
dischargingTimeChange :: EventName BatteryManager Event
dischargingTimeChange
= unsafeEventName (toJSString "dischargingtimechange")
levelChange :: EventName BatteryManager Event
levelChange = unsafeEventName (toJSString "levelchange")