-- | Returns element position
getElementPosition :: String -> IO (Int, Int)
getElementPosition sel = j (toJSStr sel) $ \jq -> do
  pos <- jsOffset jq
  xpos <- jsLeft pos
  ypos <- jsTop pos
  return (xpos, ypos) 
getElementPosition :: String -> IO (Int, Int)
getElementPosition sel = j (toJSStr sel) $ \jq -> do
  pos <- jsOffset jq
  xpos <- jsLeft pos
  ypos <- jsTop pos
  return (xpos, ypos) 
getElementPosition sel = j (toJSStr sel) $ \jq -> do
  pos <- jsOffset jq
  xpos <- jsLeft pos
  ypos <- jsTop pos
  return (xpos, ypos) 