jqapplicative.purs

measureInner :: forall eff. JQuery -> Eff (dom :: DOM | eff) Size
measureInner jq =
  size <$> innerWidth jq <*> innerHeight jq


foreign import innerWidth
  """
  function innerWidth(ob) {
    return function () {
      return ob.innerWidth();
    };
  }
  """ :: forall eff. JQuery -> Eff (dom :: DOM | eff) Number

foreign import innerHeight
  """
  function innerHeight(ob) {
    return function () {
      return ob.innerHeight();
    };
  }
  """ :: forall eff. JQuery -> Eff (dom :: DOM | eff) Number