Interpolation.hs

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

import Mdoc.Prelude

data Interpolation
  = DocTitle
  | DocSection
  | Name
  | Synopsis
  | Description
  | Environment
  | Files
  | ExitStatus
  | SeeAlso
  deriving stock (Eq, Show)

interpolationToText :: Interpolation -> Text
interpolationToText = \case
  DocTitle -> "docTitle"
  DocSection -> "docSection"
  Name -> "name"
  Synopsis -> "synopsis"
  Description -> "description"
  Environment -> "environment"
  Files -> "files"
  ExitStatus -> "exitStatus"
  SeeAlso -> "seeAlso"