Template.hs

module Text.Pandoc.CrossRef.Util.Settings.Template where

import Text.Pandoc.Definition
import Text.Pandoc.Builder
import qualified Data.Map as M

template :: ToMetaValue a => String -> a -> Meta
template name = Meta . M.singleton name . toMetaValue