* added the elmFile QuasiQuoter for embedding .elm files

the elm-yesod example contains an example for how to use the elmFile QQ.

Note: No spaces before and after the filename!

Examples/elm-yesod/Main.hs

@@ -10,36 +10,27 @@ import Text.Julius
 
 data ElmTest = ElmTest
 
--- our Elm code
-mousePage = [elm|
-niceBlue   = rgb    0   (1/3) (2/3)
-clearGreen = rgba (1/9) (8/9) (3/9) (1/2)
-
-scene (x,y) (w,h) =
-  collage w h [ filled niceBlue . rotate ((x+y)/1000) $ ngon 4 100 (200,200)
-              , filled clearGreen $ ngon 5 30 (x,y)
-              ]
-
-main = lift2 scene Mouse.position Window.dimensions
-|]
+-- embedding an external elm file (note: no spaces!)
+mousePage = [elmFile|elm_source/mouse.elm|]
 
+-- embedding elm code in our Haskell file
 rootPage = [elm|
 main = plainText "Welcome!"
 |]
 
 -- our Yesod App
-
 mkYesod "ElmTest" [parseRoutes|
 / RootR GET
 /mouse MouseR GET
 |]
 
+-- generateWidget is called with the result of an Elm QuasiQuoter (which is just a 
+-- string containing some Elm code, with proper newline escaping)
 getMouseR :: Handler RepHtml
 getMouseR = defaultLayout $ do
     setTitle "Mouse position demo"
     generateWidget mousePage
 
-
 getRootR :: Handler RepHtml
 getRootR = defaultLayout $ do
     setTitle "Welcome!"

Examples/elm-yesod/elm_source/mouse.elm

@@ -0,0 +1,9 @@
+niceBlue   = rgb    0   (1/3) (2/3)
+clearGreen = rgba (1/9) (8/9) (3/9) (1/2)
+
+scene (x,y) (w,h) =
+  collage w h [ filled niceBlue . rotate ((x+y)/1000) $ ngon 4 100 (200,200)
+              , filled clearGreen $ ngon 5 30 (x,y)
+              ]
+
+main = lift2 scene Mouse.position Window.dimensions

elm/src/Language/Elm.hs

@@ -5,7 +5,8 @@ module Language.Elm (
     module Language.Elm.CompileToJS,
     module Language.Elm.ExtractNoscript,
     generateHtml,
-    elm) where
+    elm,
+    elmFile) where
 
 import Language.Elm.CompileToJS
 import Language.Elm.ExtractNoscript
@@ -16,3 +17,6 @@ import Language.Haskell.TH.Quote
 
 elm :: QuasiQuoter
 elm = QuasiQuoter {quoteExp = \s -> [|s|] }
+
+elmFile :: QuasiQuoter
+elmFile = quoteFile elm