example

singpolyma · Aug 23, 2012 · 7a2b40d · 7a2b40d
1 parent a98a80c
commit 7a2b40d
Show file tree

Hide file tree

Showing 5 changed files with 83 additions and 0 deletions.
diff --git a/example/Makefile b/example/Makefile
@@ -0,0 +1,5 @@
+showHomePage: showHomePage.hs MustacheTemplates.hs Records.hs
+	ghc -Wall -fno-warn-name-shadowing $^ -o $@
+
+MustacheTemplates.hs: homePage.mustache post.mustache
+	../mustache2hs -m Records.hs homePage.mustache Blog post.mustache Post > MustacheTemplates.hs
diff --git a/example/Records.hs b/example/Records.hs
@@ -0,0 +1,20 @@
+module Records where
+
+import Text.Blaze.Html
+import Text.Blaze.Html.Renderer.String
+import Text.PrettyPrint.Leijen
+
+newtype HTML = HTML Html
+
+data Blog = Blog {
+	postCount :: Int,
+	posts :: [Post]
+}
+
+data Post = Post {
+	entryTitle :: String,
+	entryContent :: HTML
+}
+
+instance Pretty HTML where
+	pretty (HTML html) = string $ renderHtml html
diff --git a/example/homePage.mustache b/example/homePage.mustache
@@ -0,0 +1,20 @@
+<!DOCTYPE html>
+<html>
+	<head>
+		<title>Blog Home</title>
+	</head>
+
+	<body>
+		{{#postCount}}
+			<ol class="hfeed">
+				{{#posts}}
+					<li class="hentry">
+						<section>
+							{{> post.mustache}}
+						</section>
+					</li>
+				{{/posts}}
+			</ol>
+		{{/postCount}}
+	</body>
+</html>
diff --git a/example/post.mustache b/example/post.mustache
@@ -0,0 +1,3 @@
+<h1 class="entry-title">{{entryTitle}}</h1>
+
+<div class="entry-content">{{{entryContent}}}</div>
diff --git a/example/showHomePage.hs b/example/showHomePage.hs
@@ -0,0 +1,35 @@
+module Main where
+
+import Text.Blaze.Internal
+import Text.Blaze.Html5
+import Blaze.ByteString.Builder
+import qualified Data.ByteString as BS
+import qualified Data.Text as T
+
+import Records
+import MustacheTemplates
+
+htmlEscape :: String -> String
+htmlEscape = concatMap escChar
+	where
+	escChar '&' = "&amp;"
+	escChar '"' = "&quot;"
+	escChar '<' = "&lt;"
+	escChar '>' = "&gt;"
+	escChar c   = [c]
+
+main :: IO ()
+main = toByteStringIO BS.putStr $
+	homePage htmlEscape (Blog {
+		postCount = 2,
+		posts = [
+			Post {
+				entryTitle = "This is a post!",
+				entryContent = HTML $ text $ T.pack "And the contents of that post!"
+			},
+			Post {
+				entryTitle = "Earlier post...",
+				entryContent = HTML $ b $ text $ T.pack "Text all bold"
+			}
+		]
+	})