1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
-- | A renderer that produces pretty HTML, mostly meant for debugging purposes.
--
module Text.Blaze.Renderer.Pretty
( renderHtml
) where
import Text.Blaze.Internal
import Text.Blaze.Renderer.String (fromChoiceString)
-- | Render some 'Html' to an appending 'String'.
--
renderString :: Html -- ^ HTML to render
-> String -- ^ String to append
-> String -- ^ Resulting String
renderString = go 0 id
where
go :: Int -> (String -> String) -> HtmlM b -> String -> String
go i attrs (Parent _ open close content) =
ind i . getString open . attrs . (">\n" ++) . go (inc i) id content
. ind i . getString close . ('\n' :)
go i attrs (Leaf _ begin end) =
ind i . getString begin . attrs . getString end . ('\n' :)
go i attrs (AddAttribute _ key value h) = flip (go i) h $
getString key . fromChoiceString value . ('"' :) . attrs
go i attrs (AddCustomAttribute _ key value h) = flip (go i) h $
fromChoiceString key . fromChoiceString value . ('"' :) . attrs
go i _ (Content content) = ind i . fromChoiceString content . ('\n' :)
go i attrs (Append h1 h2) = go i attrs h1 . go i attrs h2
go _ _ Empty = id
{-# NOINLINE go #-}
-- Increase the indentation
inc = (+) 4
-- Produce appending indentation
ind i = (replicate i ' ' ++)
{-# INLINE renderString #-}
-- | Render HTML to a lazy 'String'. The result is prettified.
--
renderHtml :: Html -- ^ HTML to render
-> String -- ^ Resulting 'String'.
renderHtml html = renderString html ""
{-# INLINE renderHtml #-}
|
