Initial commit

Author: tolgap

.gitignore

@@ -0,0 +1 @@
+elm-stuff/

README.md

@@ -0,0 +1,40 @@
+# elm-jsonp
+
+Send HTTP requests to servers that implement strict CORS headers.
+
+It emulates `elm-http`'s `Http.send` and `Http.get` API. POST requests have not
+been implemented yet.
+
+## Usage
+
+Because we aren't allowed to publish packages with Native JS code, you'll either
+have to clone this project into a `vendor/elm-jsonp` folder and add it to your
+`elm-package.json` source-directories and alter the Native module name.
+
+Or, you can use [`elm_self_publish`](https://github.com/NoRedInk/elm-ops-tooling/blob/master/elm_self_publish.py)
+which will take care of changing the Native module to your project's user and name,
+compiling the package, and copying it to your project's `elm-stuff/packages`. I'd recommend
+using this script.
+
+## Example
+
+```elm
+import Http
+import Jsonp
+import Json.Decode as Json exposing ((:=))
+import Task exposing (Task)
+
+type alias Info =
+    { identified : Bool }
+    
+   
+lookupInfo : Task Http.Error Info
+lookupInfo =
+    Jsonp.get infoDecoder ("https://api.twitch.tv/kraken")
+    
+
+infoDecoder : Json.Decoder Info
+infodecoder =
+    Json.object1 Info
+        ("identified" := Json.bool)
+```

elm-package.json

@@ -0,0 +1,18 @@
+{
+    "version": "1.0.0",
+    "summary": "A Native implementation for sending JSONP GET requests",
+    "repository": "https://github.com/tolgap/elm-jsonp.git",
+    "license": "BSD3",
+    "native-modules": true,
+    "source-directories": [
+        "src"
+    ],
+    "exposed-modules": [
+        "Jsonp"
+    ],
+    "dependencies": {
+        "elm-lang/core": "4.0.5 <= v < 5.0.0",
+        "evancz/elm-http": "3.0.1 <= v < 4.0.0"
+    },
+    "elm-version": "0.17.1 <= v < 0.18.0"
+}

src/Jsonp.elm

@@ -0,0 +1,56 @@
+module Jsonp exposing (jsonp, get)
+
+{-| # Fetch JSON
+
+@docs get
+
+# Arbitrary requests
+
+@docs jsonp
+-}
+
+import Http
+import Json.Decode as Json
+import Native.Jsonp
+import Random
+import Task exposing (Task)
+import Time
+
+{-| Send a GET request to the given URL. The specified `Decoder` will be
+used to parse the result.
+
+See [`Http.get`](http://package.elm-lang.org/packages/evancz/elm-http/3.0.1/Http#get)
+for same usage.
+-}
+get : Json.Decoder value -> String -> Task Http.Error value
+get decoder url =
+    let
+        decode s =
+            Json.decodeString decoder s
+                |> Task.fromResult
+                |> Task.mapError Http.UnexpectedPayload
+    in
+        randomCallbackName
+            `Task.andThen` jsonp url
+            `Task.andThen` decode
+
+{-| Send an arbitrary JSONP request. You will have to map the error for this `Task`
+yourself, as JSONP failures cannot be captured. You will most likely be using
+`Jsonp.get`. The first argument is the URL. The second argument is the callback name.
+`Jsonp.get` uses a random callback name generator under the hood.
+-}
+jsonp : String -> String -> Task x String
+jsonp =
+    Native.Jsonp.jsonp
+
+
+randomCallbackName : Task x String
+randomCallbackName =
+    let
+        generator =
+            Random.int 100 Random.maxInt
+    in
+        Time.now
+            |> Task.map (round >> Random.initialSeed)
+            |> Task.map (Random.step generator >> fst)
+            |> Task.map (toString >> (++) "callback")

src/Native/Jsonp.js

@@ -0,0 +1,40 @@
+var _tolgap$elm_jsonp$Native_Jsonp = function() {
+
+  function jsonp(url, callbackName)
+  {
+    return _elm_lang$core$Native_Scheduler.nativeBinding(function(callback) {
+      window[callbackName] = function(content)
+      {
+        callback(_elm_lang$core$Native_Scheduler.succeed(JSON.stringify(content)));
+        delete window[callbackName];
+      };
+
+      var scriptTag = createScript(url, callbackName);
+      document.head.appendChild(scriptTag);
+      document.head.removeChild(scriptTag);
+    });
+  }
+
+
+  function createScript(url, callbackName)
+  {
+    var s = document.createElement('script');
+    s.type = 'text/javascript';
+
+    if (url.indexOf('?') >= 0)
+    {
+      s.src = url + '&callback=' + callbackName;
+    }
+    else {
+      s.src = url + '?callback=' + callbackName;
+    }
+
+    return s;
+  }
+
+
+  return {
+    jsonp: F2(jsonp)
+  };
+
+}();