module JSDOM.Generated.NodeIterator
(nextNode, nextNode_, nextNodeUnchecked, previousNode,
previousNode_, previousNodeUnchecked, detach, getRoot,
getRootUnchecked, getWhatToShow, getFilter, getFilterUnchecked,
getExpandEntityReferences, getReferenceNode,
getReferenceNodeUnchecked, getPointerBeforeReferenceNode,
NodeIterator, castToNodeIterator, gTypeNodeIterator)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
nextNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)
nextNode self = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSVal)
nextNode_ :: (MonadDOM m) => NodeIterator -> m ()
nextNode_ self = liftDOM (void (self ^. jsf "nextNode" ()))
nextNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node
nextNodeUnchecked self
= liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked)
previousNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)
previousNode self
= liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSVal)
previousNode_ :: (MonadDOM m) => NodeIterator -> m ()
previousNode_ self = liftDOM (void (self ^. jsf "previousNode" ()))
previousNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node
previousNodeUnchecked self
= liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked)
detach :: (MonadDOM m) => NodeIterator -> m ()
detach self = liftDOM (void (self ^. jsf "detach" ()))
getRoot :: (MonadDOM m) => NodeIterator -> m (Maybe Node)
getRoot self = liftDOM ((self ^. js "root") >>= fromJSVal)
getRootUnchecked :: (MonadDOM m) => NodeIterator -> m Node
getRootUnchecked self
= liftDOM ((self ^. js "root") >>= fromJSValUnchecked)
getWhatToShow :: (MonadDOM m) => NodeIterator -> m Word
getWhatToShow self
= liftDOM (round <$> ((self ^. js "whatToShow") >>= valToNumber))
getFilter :: (MonadDOM m) => NodeIterator -> m (Maybe NodeFilter)
getFilter self = liftDOM ((self ^. js "filter") >>= fromJSVal)
getFilterUnchecked :: (MonadDOM m) => NodeIterator -> m NodeFilter
getFilterUnchecked self
= liftDOM ((self ^. js "filter") >>= fromJSValUnchecked)
getExpandEntityReferences :: (MonadDOM m) => NodeIterator -> m Bool
getExpandEntityReferences self
= liftDOM ((self ^. js "expandEntityReferences") >>= valToBool)
getReferenceNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node)
getReferenceNode self
= liftDOM ((self ^. js "referenceNode") >>= fromJSVal)
getReferenceNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node
getReferenceNodeUnchecked self
= liftDOM ((self ^. js "referenceNode") >>= fromJSValUnchecked)
getPointerBeforeReferenceNode ::
(MonadDOM m) => NodeIterator -> m Bool
getPointerBeforeReferenceNode self
= liftDOM ((self ^. js "pointerBeforeReferenceNode") >>= valToBool)