TableLine.hs

-- |
--
-- Module      : Mdoc.Syntax.TableLine
-- Copyright   : (c) 2026 Patrick Brisbin
-- License     : AGPL-3
-- Maintainer  : pbrisbin@gmail.com
-- Stability   : experimental
-- Portability : POSIX
module Mdoc.Syntax.TableLine
  ( TableLine (..)

    -- * Pretty
  , prettyTableLines
  ) where

import Mdoc.Prelude

import Mdoc.Pretty

newtype TableLine = TableLine
  { unwrap :: Text
  }
  deriving stock (Eq, Show)

prettyTableLines :: [TableLine] -> Doc Ann
prettyTableLines ls = vsep $ ".TS" : map (pretty . (.unwrap)) ls <> [".TE"]