Finished initial version

Author: Risto-Stevcev

bower.json

@@ -14,9 +14,12 @@
     "output"
   ],
   "dependencies": {
-    "purescript-console": "^1.0.0"
+    "purescript-console": "^1.0.0",
+    "purescript-functions": "^1.0.0",
+    "purescript-tuples": "^1.0.0"
   },
   "devDependencies": {
-    "purescript-psci-support": "^1.0.0"
+    "purescript-psci-support": "^1.0.0",
+    "purescript-test-unit": "^7.0.0"
   }
 }

src/Data/TemplateString/TemplateString.js

@@ -0,0 +1,8 @@
+
+// module Data.TemplateString
+
+exports._template = function(str, tuples) {
+  return tuples.reduce(function(newStr, tuple) {
+    return newStr.replace(new RegExp('\\${'+ tuple.value0 +'}', 'g'), tuple.value1);
+  }, str);
+}

src/Data/TemplateString/TemplateString.purs

@@ -0,0 +1,15 @@
+module Data.TemplateString
+  ((<^>)
+  , template
+  ) where
+
+import Data.Function.Uncurried (Fn2, runFn2)
+import Data.Tuple (Tuple)
+
+-- | This is the safe version. The user is required to give a String representation of the object
+template :: String -> Array (Tuple String String) -> String
+template = runFn2 _template
+
+infix 7 template as <^>
+
+foreign import _template :: Fn2 String (Array (Tuple String String)) String

src/Data/TemplateString/Unsafe/TemplateString.js

@@ -0,0 +1,8 @@
+
+// module Data.TemplateString.Unsafe
+
+exports._template = function(str, obj) {
+  return Object.keys(obj).reduce(function(newStr, key) {
+    return newStr.replace(new RegExp('\\${'+ key +'}', 'g'), obj[key]);
+  }, str);
+}

src/Data/TemplateString/Unsafe/TemplateString.purs

@@ -0,0 +1,14 @@
+module Data.TemplateString.Unsafe
+  ((<~>)
+  , template
+  ) where
+
+import Data.Function.Uncurried (Fn2, runFn2)
+
+-- | This is the unsafe version. Javascript will coerce whatever it's given to a string
+template :: forall a. String -> { | a } -> String
+template = runFn2 _template
+
+infix 7 template as <~>
+
+foreign import _template :: forall a. Fn2 String { | a } String

src/TemplateString.purs

@@ -1,9 +1,27 @@
-module Test.Main where
+module Test.TemplateString where
 
-import Prelude
+import Prelude (Unit, bind, (==))
 import Control.Monad.Eff (Eff)
-import Control.Monad.Eff.Console (CONSOLE, log)
+import Control.Monad.Eff.Console (CONSOLE)
 
-main :: forall e. Eff (console :: CONSOLE | e) Unit
-main = do
-  log "You should add some tests."
+import Test.Unit (test, suite)
+import Test.Unit.Main (runTest)
+import Test.Unit.Assert (assert)
+import Test.Unit.Console (TESTOUTPUT)
+import Data.TemplateString.Unsafe ((<~>))
+import Data.TemplateString ((<^>)) 
+
+import Data.Tuple.Nested
+
+
+main :: Eff ( console :: CONSOLE, testOutput :: TESTOUTPUT ) Unit
+main = runTest do
+  suite "Unsafe" do
+    test "template" do
+      assert "single" ("Hello, ${name}!" <~> { name: "Mr. Foo" } == "Hello, Mr. Foo!")
+      assert "multi" ("Hello, ${fName} ${lName}!" <~> { fName: "Foo", lName: "Bar" } == "Hello, Foo Bar!")
+
+  suite "Safe" do
+    test "template" do
+      assert "single" ("Hello, ${name}!" <^> ["name" /\ "Mr. Foo"] == "Hello, Mr. Foo!")
+      assert "multi" ("Hello, ${fName} ${lName}!" <^> ["fName" /\ "Foo", "lName" /\ "Bar"] == "Hello, Foo Bar!")