20 lines
563 B
Haskell
20 lines
563 B
Haskell
|
module Lang where
|
|||
|
|
|
|||
|
|
import Text.Pandoc.Definition
|
|||
|
|
import Data.Char (toLower)
|
|||
|
|
import qualified Data.Text as Text
|
|||
|
|
import System.IO
|
|||
|
|
|
|||
|
|
data Lang = Lántas deriving (Eq, Show)
|
|||
|
|
|
|||
|
|
type Vars = (?lang :: Maybe Lang)
|
|||
|
|
|
|||
|
|
toLang :: Maybe MetaValue -> IO (Maybe Lang)
|
|||
|
|
toLang (Just (MetaInlines [Str s])) = toLang (Just (MetaString s)) -- ugh
|
|||
|
|
toLang (Just (MetaString (Text.map toLower -> s)))
|
|||
|
|
| s == "lántas" || s == "laantas" = pure $ Just Lántas
|
|||
|
|
toLang Nothing = pure Nothing
|
|||
|
|
toLang (Just ℓ) = do
|
|||
|
|
hPutStrLn stderr $ "[WARN] unknown language: " <> show ℓ
|
|||
|
|
pure Nothing
|