impedimenta.hs

import Sheets
import Control.Applicative
import Control.Monad.State
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as T

simple :: [T.Text] -> Table (State Int) Text
simple = Table [counter id, see]

table :: IO (Table (State Int) Text)
table = simple . T.lines <$> T.readFile "impedimenta.txt"

main :: IO ()
main = style >>= \css -> table
  >>= flip evalState 0 . html css "out.html" . horizontal 50