ansaurus

Question

Problem with nesting in Text.XHtml library with Haskell

Answer 1

+1 A:

dC and cI can't nest because they're defined to be empty. You need to leave a hole that the nested piece will go into. The hole is expressed by parameterizing it:

dC classx child = (thediv child)! [theclass classx] 
dI x y = (thediv y) ! [identifier x]

likewise for body:

pBody x = body << (dC "main") << (dI "window") << (dI "content" x)

ja 2010-02-05 11:30:50

Answer 2

+2 A:

Just take out the nohtml parts, and change the signatures:

dC :: String -> Html -> Html
dC x = thediv ! [theclass x]

dI :: String -> Html -> Html
dI x = thediv ! [identifier x]

The ! operator can add attributes not only to an Html object, but also to a function that returns Html. thediv is a function that takes Html and returns it wrapped in a <div> element. By applying ! to it, you create a function that takes Html and wraps a <div class="…"> (or id="…") around it.

> :type thediv
thediv :: Html -> Html

> let dC c = thediv ! [theclass c]
> let dI i = thediv ! [identifier i]

> :type dC
dC :: String -> Html -> Html
> :type dI
dI :: String -> Html -> Html

> putStr $ prettyHtmlFragment $ body << dC "main" << dI "window" << dI "content" << "Hi"
<body>
   <div class="main">
      <div id="window">
         <div id="content">
            Hi
         </div>
      </div>
   </div>
</body>

Note that you don't need the extra parenthesis.

MtnViewMark 2010-02-06 01:10:33

Thanks for this, the documentation for this library is hard to come by (except for the hackage documentation) and tutorials are practically nonexistent.

Jonno_FTW 2010-02-06 14:45:04

When looking for doc or examples, remember that the Text.Xhtml package was based on the Text.Html package, and has almost exactly the same usage.

MtnViewMark 2010-02-06 15:57:34

ansaurus

tags:

views:

answers:

Problem with nesting in Text.XHtml library with Haskell

related questions