naoto-ogawa/an_example_of_including_template_in_EDE.md

## an_example_of_including_template_in_EDE.md

      
    Raw
  

              an_example_of_including_template_in_EDE.md
            
          
structure

$ tree
.
└── view
    ├── base.html
    └── main.content.html

an including file.

$ cat view/base.html
<!DOCTYPE html>
<html lang="<%= current_language %>">
<head>
  <meta charset="utf-8" />
  <title><%= html_title %></title>
  <meta name="description" content="my description" />
  <meta name="keywords" content="some keywords" />
</head>
<body class="<%= body_css_classes %>">
  <div id="top-menu"></div>
  <div id="header"></div>
  <div id="main">
      <div id="content">{% include "main.content.html" %}</div>
  </div>
  <div id="footer"></div>
</body>
</html>

an included file

$ cat view/main.content.html
<div>
  main content
</div>
$

ghc

> let tmpl = parseFile "view/base.html"
> let env = fromPairs [] :: Object
> (fmap . fmap) (\x -> render x env) tmpl
Success (Success "<!DOCTYPE html>\n<html lang=\"<%= current_language %>\">\n<head>\n  <meta charset=\"utf-8\" />\n  <title><%= html_title %></title>\n  <meta name=\"description\" content=\"my description\" />\n  <meta name=\"keywords\" content=\"some keywords\" />\n</head>\n<body class=\"<%= body_css_classes %>\">\n  <div id=\"top-menu\"></div>\n  <div id=\"header\"></div>\n  <div id=\"
\">\n      <div id=\"content\"><div>\n  main content\n</div>\n</div>\n  </div>\n  <div id=\"footer\"></div>\n</body>\n</html>\n")