{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Selection (js_collapse, collapse, js_collapseToEnd, collapseToEnd, js_collapseToStart, collapseToStart, js_deleteFromDocument, deleteFromDocument, js_containsNode, containsNode, js_selectAllChildren, selectAllChildren, js_extend, extend, js_getRangeAt, getRangeAt, js_removeAllRanges, removeAllRanges, js_addRange, addRange, js_toString, toString, js_modify, modify, js_setBaseAndExtent, setBaseAndExtent, js_setPosition, setPosition, js_empty, empty, js_getAnchorNode, getAnchorNode, js_getAnchorOffset, getAnchorOffset, js_getFocusNode, getFocusNode, js_getFocusOffset, getFocusOffset, js_getIsCollapsed, getIsCollapsed, js_getRangeCount, getRangeCount, js_getBaseNode, getBaseNode, js_getBaseOffset, getBaseOffset, js_getExtentNode, getExtentNode, js_getExtentOffset, getExtentOffset, js_getType, getType, Selection, castToSelection, gTypeSelection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"collapse\"]($2, $3)" js_collapse :: Selection -> Nullable Node -> Int -> IO () -- | collapse :: (MonadIO m, IsNode node) => Selection -> Maybe node -> Int -> m () collapse self node index = liftIO (js_collapse (self) (maybeToNullable (fmap toNode node)) index) foreign import javascript unsafe "$1[\"collapseToEnd\"]()" js_collapseToEnd :: Selection -> IO () -- | collapseToEnd :: (MonadIO m) => Selection -> m () collapseToEnd self = liftIO (js_collapseToEnd (self)) foreign import javascript unsafe "$1[\"collapseToStart\"]()" js_collapseToStart :: Selection -> IO () -- | collapseToStart :: (MonadIO m) => Selection -> m () collapseToStart self = liftIO (js_collapseToStart (self)) foreign import javascript unsafe "$1[\"deleteFromDocument\"]()" js_deleteFromDocument :: Selection -> IO () -- | deleteFromDocument :: (MonadIO m) => Selection -> m () deleteFromDocument self = liftIO (js_deleteFromDocument (self)) foreign import javascript unsafe "($1[\"containsNode\"]($2,\n$3) ? 1 : 0)" js_containsNode :: Selection -> Nullable Node -> Bool -> IO Bool -- | containsNode :: (MonadIO m, IsNode node) => Selection -> Maybe node -> Bool -> m Bool containsNode self node allowPartial = liftIO (js_containsNode (self) (maybeToNullable (fmap toNode node)) allowPartial) foreign import javascript unsafe "$1[\"selectAllChildren\"]($2)" js_selectAllChildren :: Selection -> Nullable Node -> IO () -- | selectAllChildren :: (MonadIO m, IsNode node) => Selection -> Maybe node -> m () selectAllChildren self node = liftIO (js_selectAllChildren (self) (maybeToNullable (fmap toNode node))) foreign import javascript unsafe "$1[\"extend\"]($2, $3)" js_extend :: Selection -> Nullable Node -> Int -> IO () -- | extend :: (MonadIO m, IsNode node) => Selection -> Maybe node -> Int -> m () extend self node offset = liftIO (js_extend (self) (maybeToNullable (fmap toNode node)) offset) foreign import javascript unsafe "$1[\"getRangeAt\"]($2)" js_getRangeAt :: Selection -> Int -> IO (Nullable Range) -- | getRangeAt :: (MonadIO m) => Selection -> Int -> m (Maybe Range) getRangeAt self index = liftIO (nullableToMaybe <$> (js_getRangeAt (self) index)) foreign import javascript unsafe "$1[\"removeAllRanges\"]()" js_removeAllRanges :: Selection -> IO () -- | removeAllRanges :: (MonadIO m) => Selection -> m () removeAllRanges self = liftIO (js_removeAllRanges (self)) foreign import javascript unsafe "$1[\"addRange\"]($2)" js_addRange :: Selection -> Nullable Range -> IO () -- | addRange :: (MonadIO m) => Selection -> Maybe Range -> m () addRange self range = liftIO (js_addRange (self) (maybeToNullable range)) foreign import javascript unsafe "$1[\"toString\"]()" js_toString :: Selection -> IO JSString -- | toString :: (MonadIO m, FromJSString result) => Selection -> m result toString self = liftIO (fromJSString <$> (js_toString (self))) foreign import javascript unsafe "$1[\"modify\"]($2, $3, $4)" js_modify :: Selection -> JSString -> JSString -> JSString -> IO () -- | modify :: (MonadIO m, ToJSString alter, ToJSString direction, ToJSString granularity) => Selection -> alter -> direction -> granularity -> m () modify self alter direction granularity = liftIO (js_modify (self) (toJSString alter) (toJSString direction) (toJSString granularity)) foreign import javascript unsafe "$1[\"setBaseAndExtent\"]($2, $3,\n$4, $5)" js_setBaseAndExtent :: Selection -> Nullable Node -> Int -> Nullable Node -> Int -> IO () -- | setBaseAndExtent :: (MonadIO m, IsNode baseNode, IsNode extentNode) => Selection -> Maybe baseNode -> Int -> Maybe extentNode -> Int -> m () setBaseAndExtent self baseNode baseOffset extentNode extentOffset = liftIO (js_setBaseAndExtent (self) (maybeToNullable (fmap toNode baseNode)) baseOffset (maybeToNullable (fmap toNode extentNode)) extentOffset) foreign import javascript unsafe "$1[\"setPosition\"]($2, $3)" js_setPosition :: Selection -> Nullable Node -> Int -> IO () -- | setPosition :: (MonadIO m, IsNode node) => Selection -> Maybe node -> Int -> m () setPosition self node offset = liftIO (js_setPosition (self) (maybeToNullable (fmap toNode node)) offset) foreign import javascript unsafe "$1[\"empty\"]()" js_empty :: Selection -> IO () -- | empty :: (MonadIO m) => Selection -> m () empty self = liftIO (js_empty (self)) foreign import javascript unsafe "$1[\"anchorNode\"]" js_getAnchorNode :: Selection -> IO (Nullable Node) -- | getAnchorNode :: (MonadIO m) => Selection -> m (Maybe Node) getAnchorNode self = liftIO (nullableToMaybe <$> (js_getAnchorNode (self))) foreign import javascript unsafe "$1[\"anchorOffset\"]" js_getAnchorOffset :: Selection -> IO Int -- | getAnchorOffset :: (MonadIO m) => Selection -> m Int getAnchorOffset self = liftIO (js_getAnchorOffset (self)) foreign import javascript unsafe "$1[\"focusNode\"]" js_getFocusNode :: Selection -> IO (Nullable Node) -- | getFocusNode :: (MonadIO m) => Selection -> m (Maybe Node) getFocusNode self = liftIO (nullableToMaybe <$> (js_getFocusNode (self))) foreign import javascript unsafe "$1[\"focusOffset\"]" js_getFocusOffset :: Selection -> IO Int -- | getFocusOffset :: (MonadIO m) => Selection -> m Int getFocusOffset self = liftIO (js_getFocusOffset (self)) foreign import javascript unsafe "($1[\"isCollapsed\"] ? 1 : 0)" js_getIsCollapsed :: Selection -> IO Bool -- | getIsCollapsed :: (MonadIO m) => Selection -> m Bool getIsCollapsed self = liftIO (js_getIsCollapsed (self)) foreign import javascript unsafe "$1[\"rangeCount\"]" js_getRangeCount :: Selection -> IO Int -- | getRangeCount :: (MonadIO m) => Selection -> m Int getRangeCount self = liftIO (js_getRangeCount (self)) foreign import javascript unsafe "$1[\"baseNode\"]" js_getBaseNode :: Selection -> IO (Nullable Node) -- | getBaseNode :: (MonadIO m) => Selection -> m (Maybe Node) getBaseNode self = liftIO (nullableToMaybe <$> (js_getBaseNode (self))) foreign import javascript unsafe "$1[\"baseOffset\"]" js_getBaseOffset :: Selection -> IO Int -- | getBaseOffset :: (MonadIO m) => Selection -> m Int getBaseOffset self = liftIO (js_getBaseOffset (self)) foreign import javascript unsafe "$1[\"extentNode\"]" js_getExtentNode :: Selection -> IO (Nullable Node) -- | getExtentNode :: (MonadIO m) => Selection -> m (Maybe Node) getExtentNode self = liftIO (nullableToMaybe <$> (js_getExtentNode (self))) foreign import javascript unsafe "$1[\"extentOffset\"]" js_getExtentOffset :: Selection -> IO Int -- | getExtentOffset :: (MonadIO m) => Selection -> m Int getExtentOffset self = liftIO (js_getExtentOffset (self)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: Selection -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => Selection -> m result getType self = liftIO (fromJSString <$> (js_getType (self)))