1238f29 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

Move out jQuery into its own repository, move prelude into a top-level directory

commit1238f294d9e8e377dc155124c48a53961d0710e3 authorPhil Freeman <paf31@cantab.net> dateSat 8 Feb 2014, 10:21 (13 years ago) parent8ddd53c

17 files changed+7−94

compare with golang

unifiedsplit

libraries/.gitignore−1 libraries/jquery/jquery.purs−45 libraries/jquery/tests/.gitignore−1 libraries/jquery/tests/build.sh−2 libraries/jquery/tests/index.html−10 libraries/jquery/tests/jquery.purs−28 libraries/prelude/updateDocs.sh−2 libraries/prelude/README.md → prelude/README.md libraries/prelude/prelude.purs → prelude/prelude.purs libraries/prelude/tests/.gitignore → prelude/tests/.gitignore libraries/prelude/tests/Eff.purs → prelude/tests/Eff.purs libraries/prelude/tests/build.sh → prelude/tests/build.sh prelude/updateDocs.sh+2 psc/Main.hs+1−1 psci/Main.hs+1−1 purescript.cabal+2−2 tests/Main.hs+1−1

libraries/.gitignoredeleted−1

@@ -1 +0,0 @@

1−*/all.js

libraries/jquery/jquery.pursdeleted−45

@@ -1,45 +0,0 @@

1−module JQuery where

2−

3− import Eff

4−

5− -- An effect type which indicates DOM manipulation

6− foreign import data DOM :: !

7−

8− -- The jQuery wrapper type

9− foreign import data JQuery :: *

10−

11− -- Wrapper function for jQuery selection $('..')

12− foreign import select "function select(selector) { return function () { return jQuery(selector); }; }" :: forall eff. String -> Eff (dom :: DOM | eff) JQuery

13−

14− -- Wrapper function for jQuery creation e.g. $('<div>')

15− foreign import create "function create(html) { return function () { return jQuery(html); }; }" :: forall eff. String -> Eff (dom :: DOM | eff) JQuery

16−

17− -- .attr({ ... })

18− foreign import attr "function attr(attrs) { return function(ob) { return function () { return ob.attr(attrs); }; }; }" :: forall eff attr. { | attr } -> JQuery -> Eff (dom :: DOM | eff) JQuery

19−

20− -- .css({ ... })

21− foreign import css "function css(props) { return function(ob) { return function () { return ob.css(props); }; }; }" :: forall eff css. { | css } -> JQuery -> Eff (dom :: DOM | eff) JQuery

22−

23− -- .append(...)

24− foreign import append "function append(ob1) { return function(ob) { return function () { return ob.append(ob1); }; }; }" :: forall eff. JQuery -> JQuery -> Eff (dom :: DOM | eff) JQuery

25−

26− -- .append(...)

27− foreign import appendText "function appendText(s) { return function(ob) { return function () { return ob.append(s); }; }; }" :: forall eff. String -> JQuery -> Eff (dom :: DOM | eff) JQuery

28−

29− -- Get the document body

30− foreign import body "function body() { return jQuery(document.body); }" :: forall eff. Eff (dom :: DOM | eff) JQuery

31−

32− -- Get the text content of an element

33− foreign import getText "function getText(ob) { return function() { return ob.text(); }; }" :: forall eff. JQuery -> Eff (dom :: DOM | eff) String

34−

35− -- Set the text content of an element

36− foreign import setText "function setText(text) { return function(ob) { return function() { ob.text(text); }; }; }" :: forall eff. String -> JQuery -> Eff (dom :: DOM | eff) JQuery

37−

38− -- Get the value of a text field

39− foreign import getValue "function getValue(ob) { return function() { return ob.val(); }; }" :: forall eff. JQuery -> Eff (dom :: DOM | eff) String

40−

41− -- Set the value of a text field

42− foreign import setValue "function setValue(val) { return function(ob) { return function() { return ob.val(val); }; }; }" :: forall eff. String -> JQuery -> Eff (dom :: DOM | eff) JQuery

43−

44− -- Register an event handler

45− foreign import on "function on(evt) { return function(act) { return function(ob) { return function() { return ob.on(evt, function() { act(); } ); }; }; }; }" :: forall eff a. String -> Eff eff a -> JQuery -> Eff (dom :: DOM | eff) JQuery

libraries/jquery/tests/.gitignoredeleted−1

@@ -1 +0,0 @@

1−jquery.js

libraries/jquery/tests/build.shdeleted−2

@@ -1,2 +0,0 @@

1−psc ../jquery.purs jquery.purs --magic-do --run-main -o jquery.js

2−

libraries/jquery/tests/index.htmldeleted−10

@@ -1,10 +0,0 @@

1−<!DOCTYPE html>

2−<html>

3−<head>

4−<title>JQuery Example</title>

5−<script src="http://cdnjs.cloudflare.com/ajax/libs/jquery/1.10.2/jquery.js"></script>

6−</head>

7−<body>

8−<script src="jquery.js"></script>

9−</body>

10−</html>

libraries/jquery/tests/jquery.pursdeleted−28

@@ -1,28 +0,0 @@

1−module Main where

2−

3−import Prelude

4−import Eff

5−import Trace

6−import JQuery

7−

8−main = do

9− -- Get the document body

10− b <- body

11−

12− -- Create a text box

13− div <- create "<div>"

14− input <- create "<input>"

15− "Your Name: " `appendText` div

16− input `append` div

17− div `append` b

18−

19− -- Create a paragraph to display a greeting

20− greeting <- create "<p>"

21− { color: "red" } `css` greeting

22− greeting `append` b

23−

24− -- Listen for change events on the text box

25− flip (on "change") input $ do

26− name <- getValue input

27− trace $ "Name changed to " ++ name

28− setText ("Hello, " ++ name) greeting

libraries/prelude/updateDocs.shdeleted−2

@@ -1,2 +0,0 @@

1−../../dist/build/docgen/docgen prelude.purs > README.md

2−pandoc -o ../../docs/source/prelude.rst README.md

libraries/prelude/README.md → prelude/README.mdrenamed

The content is the same.

libraries/prelude/prelude.purs → prelude/prelude.pursrenamed

The content is the same.

libraries/prelude/tests/.gitignore → prelude/tests/.gitignorerenamed

The content is the same.

libraries/prelude/tests/Eff.purs → prelude/tests/Eff.pursrenamed

The content is the same.

libraries/prelude/tests/build.sh → prelude/tests/build.shrenamed

The content is the same.

prelude/updateDocs.shnew file+2

@@ -0,0 +1,2 @@

1+../dist/build/docgen/docgen prelude.purs > README.md

2+pandoc -o ../docs/source/prelude.rst README.md

psc/Main.hs+1−1

@@ -25,7 +25,7 @@ import qualified Paths_purescript as Paths

2525import Data.Version (showVersion)

2626

2727preludeFilename :: IO FilePath

28−preludeFilename = Paths.getDataFileName "libraries/prelude/prelude.purs"

28+preludeFilename = Paths.getDataFileName "prelude/prelude.purs"

2929

3030readInput :: Maybe [FilePath] -> IO (Either ParseError [P.Module])

3131readInput Nothing = getContents >>= return . P.runIndentParser "" P.parseModules

psci/Main.hs+1−1

@@ -32,7 +32,7 @@ import qualified System.IO.UTF8 as U (readFile)

3232import qualified Text.Parsec as Parsec (eof)

3333

3434getPreludeFilename :: IO FilePath

35−getPreludeFilename = Paths.getDataFileName "libraries/prelude/prelude.purs"

35+getPreludeFilename = Paths.getDataFileName "prelude/prelude.purs"

3636

3737options :: P.Options

3838options = P.Options True False True True True

purescript.cabal+2−2

@@ -1,5 +1,5 @@

11name: purescript

2−version: 0.3.10.1

2+version: 0.3.11

33cabal-version: >=1.8

44build-type: Simple

55license: MIT

@@ -11,7 +11,7 @@ synopsis: PureScript Programming Language Compiler

1111description: A small compile-to-JS language with extensible records and type-safe blocks

1212category: Language

1313author: Phil Freeman <paf31@cantab.net>, Gary Burgess <gary.burgess@gmail.com>

14−data-files: libraries/prelude/prelude.purs

14+data-files: prelude/prelude.purs

1515data-dir: ""

1616

1717library

tests/Main.hs+1−1

@@ -34,7 +34,7 @@ import qualified System.IO.UTF8 as U

3434import qualified Data.Map as M

3535

3636preludeFilename :: IO FilePath

37−preludeFilename = Paths.getDataFileName "libraries/prelude/prelude.purs"

37+preludeFilename = Paths.getDataFileName "prelude/prelude.purs"

3838

3939readInput :: [FilePath] -> IO (Either ParseError [P.Module])

4040readInput inputFiles = fmap (fmap concat . sequence) $ forM inputFiles $ \inputFile -> do