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
|
{- |
HTML writing helpers.
This module would ideally hide the details of which HTML library is used, but it doesn't yet.
Currently hledger-web uses blaze-html, but hledger CLI reports use lucid.
lucid has a more usable API than blaze-html (https://chrisdone.com/posts/lucid).
lucid2's is even better.
Unfortunately lucid* can not render multi-line or indented text.
We want this so that humans can read and troubleshoot our HTML output.
So a transition to blaze-html may be coming.
-}
{-# LANGUAGE OverloadedStrings #-}
module Hledger.Write.Html (
L.toHtml,
Html,
formatRow,
htmlAsText,
htmlAsLazyText,
styledTableHtml,
tests_Hledger_Write_Html
) where
import Data.Text qualified as T (Text)
import Data.Text.Lazy qualified as TL (Text, toStrict)
import Lucid qualified as L (renderText, toHtml)
import Test.Tasty (testGroup)
import Hledger.Write.Html.Lucid (Html, formatRow, styledTableHtml)
htmlAsText :: Html -> T.Text
htmlAsText = TL.toStrict . L.renderText
htmlAsLazyText :: Html -> TL.Text
htmlAsLazyText = L.renderText
tests_Hledger_Write_Html = testGroup "Write.Html" [
]
|
