fay-dom (empty) → 0.2.0.0

raw patch · 4 files changed

+153/−0 lines, 4 filesdep +fay-basesetup-changed

Dependencies added: fay-base

Files

LICENSE +30/−0
Setup.hs +2/−0
fay-dom.cabal +19/−0
src/DOM.hs +102/−0

+ LICENSE view

@@ -0,0 +1,30 @@+Copyright (c) 2012, Adam Bergmark++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Adam Bergmark nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

+ Setup.hs view

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

+ fay-dom.cabal view

@@ -0,0 +1,19 @@+name:                fay-dom+version:             0.2.0.0+synopsis:            DOM FFI wrapper library for Fay+description:         DOM FFI wrapper library for Fay.+homepage:            https://github.com/faylang/fay-dom+bug-reports:         https://github.com/faylang/fay-dom/issues+license:             BSD3+license-file:        LICENSE+author:              Adam Bergmark+maintainer:          Adam Bergmark+build-type:          Simple+cabal-version:       >=1.8+data-files:          src/DOM.hs++library+  hs-source-dirs: src+  exposed-modules: DOM+  ghc-options: -Wall+  build-depends: fay-base >= 0.14.1.0

+ src/DOM.hs view

@@ -0,0 +1,102 @@+{-# LANGUAGE EmptyDataDecls    #-}++-- | Document object model functions. Most of this doesn't have+-- anything to do with the DOM and is actually ECMA library stuff, but+-- I'll leave it in for now.++module DOM where++import FFI+import Prelude++--------------------------------------------------------------------------------+-- Foreign Data Declarations.++data Document+data Element+data Event+data Global+data NodeList+data Timer+data XMLHttpRequest++--------------------------------------------------------------------------------+-- Browser globals++getWindow :: Fay Global+getWindow = ffi "window"++getDocument :: Fay Document+getDocument = ffi "window.document"++addEvent :: String -> Fay f -> Fay ()+addEvent = ffi "window['addEventListener'](%1,%2)"++--------------------------------------------------------------------------------+-- Events.++stopProp :: Event -> Fay ()+stopProp = ffi "%1['stopPropagation']()"++preventDefault :: Event -> Fay ()+preventDefault = ffi "%1['preventDefault']()"++--------------------------------------------------------------------------------+-- Element accessors.++createElement :: String -> Fay Element+createElement = ffi "window['document']['createElement'](%1)"++appendChild :: Element -> Element -> Fay ()+appendChild = ffi "%1.appendChild(%2)"++removeChild :: Element -> Element -> Fay ()+removeChild = ffi "%1.removeChild(%2)"++parentNode :: Element -> Fay Element+parentNode = ffi "%1.parentNode"++children :: Element -> Fay NodeList+children = ffi "%1.children"++--------------------------------------------------------------------------------+-- Timers++-- | setInterval except the calling function gets the timer as an+-- | argument so the interval can be cancelled from within it.+setInterval :: Double -> (Timer -> Fay ()) -> Fay Timer+setInterval = ffi "(function (f,i) { var id = window['setInterval'](function () { f(id); }, i); })(%2,%1)"++clearInterval :: Timer -> Fay ()+clearInterval = ffi "window['clearInterval'](%1)"++setTimeout :: Double -> (Timer -> Fay ()) -> Fay Timer+setTimeout = ffi "window['setTimeout'](%2,%1)"++--------------------------------------------------------------------------------+-- XMLHttpRequest++data RequestMethod = GET | POST | PUT | HEAD++data ReadyState = UNSENT | OPENED | HEADERS_RECEIVED | LOADING | DONE++xmlHttpRequest :: Fay XMLHttpRequest+xmlHttpRequest = ffi "(function(window) { if(window['XMLHttpRequest']) return new XMLHttpRequest(); else return new ActiveXObject('Microsoft.XMLHTTP'); })(window)"++open :: RequestMethod -> String -> XMLHttpRequest -> Fay XMLHttpRequest+open = ffi "(function(method, url, xhr) { xhr['open'](method['instance'], url, true); return xhr; })(%1, %2, %3)"++send :: XMLHttpRequest -> Fay ()+send = ffi "%1['send']()"++setReadyStateHandler :: (XMLHttpRequest -> Fay ()) -> XMLHttpRequest -> Fay XMLHttpRequest+setReadyStateHandler = ffi "(function(handler, xhr) { xhr['onreadystatechange'] = function() { handler(xhr); }; return xhr; })(%1, %2)"++readyState :: XMLHttpRequest -> Fay ReadyState+readyState = ffi "{ instance: ['UNSENT', 'OPENED', 'HEADERS_RECEIVED', 'LOADING', 'DONE'][%1['readyState']] }"++responseText :: XMLHttpRequest -> Fay String+responseText = ffi "%1['responseText']"++status :: XMLHttpRequest -> Fay Int+status = ffi "%1['status']"