{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedLists #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RankNTypes #-}
#ifdef EMBED_DICTIONARY
{-# LANGUAGE TemplateHaskell #-}
#endif
-- | Provides higher-level APIs.  Read 'transformHtmlText' function first,
-- and then see also 'Configuration' type.
module Text.Seonbi.Facade
    ( -- * HTML transformation
      transformHtmlText
    , transformHtmlLazyText
      -- * Configuration and presets
    , Configuration (..)
    , ko_KP
    , ko_KR
    , presets
      -- * Content types
    , ContentType
    , contentTypeFromText
    , contentTypes
    , contentTypeText
      -- * Dictionaries
    , HanjaDictionary
    , readDictionaryFile
    , southKoreanDictionary
      -- * Options
    , ArrowOption (..)
    , CiteOption (..)
    , HanjaOption (..)
    , HanjaReadingOption (..)
    , HanjaRenderingOption (..)
    , QuoteOption (..)
    , StopOption (..)
    ) where

#if MIN_VERSION_base(4,13,0)
import Prelude hiding (MonadFail)
#endif

import Control.Monad.Fail (MonadFail)
import Data.Char
import Data.Kind (Type)
import Data.Maybe
import Data.String (IsString)
import GHC.Exts (IsList (toList))
import GHC.Generics (Generic)
import System.IO.Error
import System.IO.Unsafe

import Data.ByteString.Lazy
import Data.Csv
#ifdef EMBED_DICTIONARY
import Data.FileEmbed
#endif
import Data.Map.Strict
import Data.Set
import Data.Text
import qualified Data.Text.Lazy as LT
import System.FilePath
    ( (</>)
#ifdef EMBED_DICTIONARY
    , takeDirectory
#endif
    )

#ifndef EMBED_DICTIONARY
import Paths_seonbi (getDataDir)
#endif
import Text.Seonbi.ContentTypes
import Text.Seonbi.Hanja
import Text.Seonbi.Html
import Text.Seonbi.Punctuation
import Text.Seonbi.Trie as Trie

-- | Transformation settings.  For the most cases, you could use one of
-- presets:
--
-- - 'ko_KR'
-- - 'ko_KP'
data Monad m => Configuration m a = Configuration
    { -- | An optional debugging logger to print its internal AST.
      Configuration m a -> Maybe (HtmlEntity -> m a)
debugLogger :: Maybe (HtmlEntity -> m a)
      -- | A content type of the input and output.  It has to be a member of
      -- 'contentTypes'.
    , Configuration m a -> ContentType
contentType :: ContentType
      -- | An option to decide how quotation marks are rendered.
      -- If 'Nothing' no quotes are transformed.
    , Configuration m a -> Maybe QuoteOption
quote :: Maybe QuoteOption
      -- | An option to transform folk-citing quotes (e.g., @\<\<한겨레\>\>@)
      -- into proper citing quotes (e.g., @《한겨레》@).
    , Configuration m a -> Maybe CiteOption
cite :: Maybe CiteOption
      -- | Settings to transform arrow-looking punctuations into proper arrows.
      -- If 'Nothing' no arrows are transformed.
    , Configuration m a -> Maybe ArrowOption
arrow :: Maybe ArrowOption
      -- | Whether to transform triple periods into a proper ellipsis.
    , Configuration m a -> Bool
ellipsis :: Bool
      -- | Whether to transform folk em dashes into proper em dashes.
    , Configuration m a -> Bool
emDash :: Bool
      -- | Settings to normalize stops (periods, commas, and interpuncts).
      -- If 'Nothing' stops are never touched.
    , Configuration m a -> Maybe StopOption
stop :: Maybe StopOption
      -- | Settings to deal with Sino-Korean words.
    , Configuration m a -> Maybe HanjaOption
hanja :: Maybe HanjaOption
    }

instance Monad m => Show (Configuration m a) where
    show :: Configuration m a -> String
show Configuration m a
c = String
"Configuration {\n" String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  debugLogger = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
            String
-> ((HtmlEntity -> m a) -> String)
-> Maybe (HtmlEntity -> m a)
-> String
forall b a. b -> (a -> b) -> Maybe a -> b
maybe String
"Nothing" (String -> (HtmlEntity -> m a) -> String
forall a b. a -> b -> a
const String
"Just ...") (Configuration m a -> Maybe (HtmlEntity -> m a)
forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe (HtmlEntity -> m a)
debugLogger Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
"," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  contentType = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> ContentType -> String
forall a. Show a => a -> String
show (Configuration m a -> ContentType
forall (m :: * -> *) a. Monad m => Configuration m a -> ContentType
contentType Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
"," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  quote = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> Maybe QuoteOption -> String
forall a. Show a => a -> String
show (Configuration m a -> Maybe QuoteOption
forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe QuoteOption
quote Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
"," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  arrow = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> Maybe CiteOption -> String
forall a. Show a => a -> String
show (Configuration m a -> Maybe CiteOption
forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe CiteOption
cite Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
"," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  cite = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> Maybe ArrowOption -> String
forall a. Show a => a -> String
show (Configuration m a -> Maybe ArrowOption
forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe ArrowOption
arrow Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
"," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  ellipsis = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> Bool -> String
forall a. Show a => a -> String
show (Configuration m a -> Bool
forall (m :: * -> *) a. Monad m => Configuration m a -> Bool
ellipsis Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
"," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  emDash = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> Bool -> String
forall a. Show a => a -> String
show (Configuration m a -> Bool
forall (m :: * -> *) a. Monad m => Configuration m a -> Bool
emDash Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
"," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  stop = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> Maybe StopOption -> String
forall a. Show a => a -> String
show (Configuration m a -> Maybe StopOption
forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe StopOption
stop Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
"," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"  hanja = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<> Maybe HanjaOption -> String
forall a. Show a => a -> String
show (Configuration m a -> Maybe HanjaOption
forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe HanjaOption
hanja Configuration m a
c) String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
"}"

-- | An option to decide how quotation marks are rendered.
data QuoteOption
    -- | English-style curved quotes (@‘@: U+2018, @’@: U+2019, @“@: U+201C,
    -- @”@: U+201D), which are used by South Korean orthography.
    = CurvedQuotes
    -- | Vertical corner brackets (@﹁@: U+FE41, @﹂@: U+FE42, @﹃@: U+FE43,
    -- @﹄@: U+FE44), which are used by East Asian orthography.
    | VerticalCornerBrackets
    -- | Traditional horizontal corner brackets (@「@: U+300C, @」@: U+300D,
    -- @『@: U+300E, @』@: U+300F), which are used by East Asian orthography.
    | HorizontalCornerBrackets
    -- | East Asian guillemets (@〈@: U+3008, @〉@: U+3009, @《@: U+300A, @》@:
    -- U+300B), which are used by North Korean orthography.
    | Guillemets
    -- | Use English-style curved quotes (@‘@: U+2018, @’@: U+2019) for single
    -- quotes, and HTML @\<q\>@ tags for double quotes.
    | CurvedSingleQuotesWithQ
    -- | Use vertical corner brackets (@﹁@: U+FE41, @﹂@: U+FE42)
    -- for single quotes, and HTML @\<q\>@ tags for double quotes.
    | VerticalCornerBracketsWithQ
    -- | Use horizontal corner brackets (@「@: U+300C, @」@: U+300D)
    -- for single quotes, and HTML @\<q\>@ tags for double quotes.
    | HorizontalCornerBracketsWithQ
    deriving (Int -> QuoteOption
QuoteOption -> Int
QuoteOption -> [QuoteOption]
QuoteOption -> QuoteOption
QuoteOption -> QuoteOption -> [QuoteOption]
QuoteOption -> QuoteOption -> QuoteOption -> [QuoteOption]
(QuoteOption -> QuoteOption)
-> (QuoteOption -> QuoteOption)
-> (Int -> QuoteOption)
-> (QuoteOption -> Int)
-> (QuoteOption -> [QuoteOption])
-> (QuoteOption -> QuoteOption -> [QuoteOption])
-> (QuoteOption -> QuoteOption -> [QuoteOption])
-> (QuoteOption -> QuoteOption -> QuoteOption -> [QuoteOption])
-> Enum QuoteOption
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: QuoteOption -> QuoteOption -> QuoteOption -> [QuoteOption]
$cenumFromThenTo :: QuoteOption -> QuoteOption -> QuoteOption -> [QuoteOption]
enumFromTo :: QuoteOption -> QuoteOption -> [QuoteOption]
$cenumFromTo :: QuoteOption -> QuoteOption -> [QuoteOption]
enumFromThen :: QuoteOption -> QuoteOption -> [QuoteOption]
$cenumFromThen :: QuoteOption -> QuoteOption -> [QuoteOption]
enumFrom :: QuoteOption -> [QuoteOption]
$cenumFrom :: QuoteOption -> [QuoteOption]
fromEnum :: QuoteOption -> Int
$cfromEnum :: QuoteOption -> Int
toEnum :: Int -> QuoteOption
$ctoEnum :: Int -> QuoteOption
pred :: QuoteOption -> QuoteOption
$cpred :: QuoteOption -> QuoteOption
succ :: QuoteOption -> QuoteOption
$csucc :: QuoteOption -> QuoteOption
Enum, QuoteOption -> QuoteOption -> Bool
(QuoteOption -> QuoteOption -> Bool)
-> (QuoteOption -> QuoteOption -> Bool) -> Eq QuoteOption
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: QuoteOption -> QuoteOption -> Bool
$c/= :: QuoteOption -> QuoteOption -> Bool
== :: QuoteOption -> QuoteOption -> Bool
$c== :: QuoteOption -> QuoteOption -> Bool
Eq, (forall x. QuoteOption -> Rep QuoteOption x)
-> (forall x. Rep QuoteOption x -> QuoteOption)
-> Generic QuoteOption
forall x. Rep QuoteOption x -> QuoteOption
forall x. QuoteOption -> Rep QuoteOption x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep QuoteOption x -> QuoteOption
$cfrom :: forall x. QuoteOption -> Rep QuoteOption x
Generic, ReadPrec [QuoteOption]
ReadPrec QuoteOption
Int -> ReadS QuoteOption
ReadS [QuoteOption]
(Int -> ReadS QuoteOption)
-> ReadS [QuoteOption]
-> ReadPrec QuoteOption
-> ReadPrec [QuoteOption]
-> Read QuoteOption
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [QuoteOption]
$creadListPrec :: ReadPrec [QuoteOption]
readPrec :: ReadPrec QuoteOption
$creadPrec :: ReadPrec QuoteOption
readList :: ReadS [QuoteOption]
$creadList :: ReadS [QuoteOption]
readsPrec :: Int -> ReadS QuoteOption
$creadsPrec :: Int -> ReadS QuoteOption
Read, Int -> QuoteOption -> ShowS
[QuoteOption] -> ShowS
QuoteOption -> String
(Int -> QuoteOption -> ShowS)
-> (QuoteOption -> String)
-> ([QuoteOption] -> ShowS)
-> Show QuoteOption
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [QuoteOption] -> ShowS
$cshowList :: [QuoteOption] -> ShowS
show :: QuoteOption -> String
$cshow :: QuoteOption -> String
showsPrec :: Int -> QuoteOption -> ShowS
$cshowsPrec :: Int -> QuoteOption -> ShowS
Show)

-- | An option to transform folk-citing quotes (e.g., @\<\<한겨레\>\>@) into
-- proper citing quotes (e.g., @《한겨레》@).
data CiteOption
    -- | Cite a title using angle quotes, used by South Korean orthography in
    -- horizontal writing (橫書), e.g., 《나비와 엉겅퀴》 or 〈枾崎의 바다〉.
    = AngleQuotes
    -- | Cite a title using corner brackets, used by South Korean orthography in
    -- vertical writing (縱書) and Japanese orthography,
    -- e.g., 『나비와 엉겅퀴』 or 「枾崎의 바다」.
    | CornerBrackets
    -- | Same as 'AngleQuotes' except it wraps the title with a @\<cite\>@ tag.
    | AngleQuotesWithCite
    -- | Same as 'CornerBrackets' except it wraps the title with
    -- a @\<cite\>@ tag.
    | CornerBracketsWithCite
    deriving (Int -> CiteOption
CiteOption -> Int
CiteOption -> [CiteOption]
CiteOption -> CiteOption
CiteOption -> CiteOption -> [CiteOption]
CiteOption -> CiteOption -> CiteOption -> [CiteOption]
(CiteOption -> CiteOption)
-> (CiteOption -> CiteOption)
-> (Int -> CiteOption)
-> (CiteOption -> Int)
-> (CiteOption -> [CiteOption])
-> (CiteOption -> CiteOption -> [CiteOption])
-> (CiteOption -> CiteOption -> [CiteOption])
-> (CiteOption -> CiteOption -> CiteOption -> [CiteOption])
-> Enum CiteOption
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: CiteOption -> CiteOption -> CiteOption -> [CiteOption]
$cenumFromThenTo :: CiteOption -> CiteOption -> CiteOption -> [CiteOption]
enumFromTo :: CiteOption -> CiteOption -> [CiteOption]
$cenumFromTo :: CiteOption -> CiteOption -> [CiteOption]
enumFromThen :: CiteOption -> CiteOption -> [CiteOption]
$cenumFromThen :: CiteOption -> CiteOption -> [CiteOption]
enumFrom :: CiteOption -> [CiteOption]
$cenumFrom :: CiteOption -> [CiteOption]
fromEnum :: CiteOption -> Int
$cfromEnum :: CiteOption -> Int
toEnum :: Int -> CiteOption
$ctoEnum :: Int -> CiteOption
pred :: CiteOption -> CiteOption
$cpred :: CiteOption -> CiteOption
succ :: CiteOption -> CiteOption
$csucc :: CiteOption -> CiteOption
Enum, CiteOption -> CiteOption -> Bool
(CiteOption -> CiteOption -> Bool)
-> (CiteOption -> CiteOption -> Bool) -> Eq CiteOption
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CiteOption -> CiteOption -> Bool
$c/= :: CiteOption -> CiteOption -> Bool
== :: CiteOption -> CiteOption -> Bool
$c== :: CiteOption -> CiteOption -> Bool
Eq, (forall x. CiteOption -> Rep CiteOption x)
-> (forall x. Rep CiteOption x -> CiteOption) -> Generic CiteOption
forall x. Rep CiteOption x -> CiteOption
forall x. CiteOption -> Rep CiteOption x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CiteOption x -> CiteOption
$cfrom :: forall x. CiteOption -> Rep CiteOption x
Generic, ReadPrec [CiteOption]
ReadPrec CiteOption
Int -> ReadS CiteOption
ReadS [CiteOption]
(Int -> ReadS CiteOption)
-> ReadS [CiteOption]
-> ReadPrec CiteOption
-> ReadPrec [CiteOption]
-> Read CiteOption
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CiteOption]
$creadListPrec :: ReadPrec [CiteOption]
readPrec :: ReadPrec CiteOption
$creadPrec :: ReadPrec CiteOption
readList :: ReadS [CiteOption]
$creadList :: ReadS [CiteOption]
readsPrec :: Int -> ReadS CiteOption
$creadsPrec :: Int -> ReadS CiteOption
Read, Int -> CiteOption -> ShowS
[CiteOption] -> ShowS
CiteOption -> String
(Int -> CiteOption -> ShowS)
-> (CiteOption -> String)
-> ([CiteOption] -> ShowS)
-> Show CiteOption
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CiteOption] -> ShowS
$cshowList :: [CiteOption] -> ShowS
show :: CiteOption -> String
$cshow :: CiteOption -> String
showsPrec :: Int -> CiteOption -> ShowS
$cshowsPrec :: Int -> CiteOption -> ShowS
Show)

-- | Settings to transform arrow-looking punctuations into proper arrows.
data ArrowOption = ArrowOption
    { -- | Whether to transform bi-directional arrows as well as
      -- left/rightwards arrows.
      ArrowOption -> Bool
bidirArrow :: Bool
      -- | Whether to transform double arrows as well as single arrows.
    , ArrowOption -> Bool
doubleArrow :: Bool
    } deriving (ArrowOption -> ArrowOption -> Bool
(ArrowOption -> ArrowOption -> Bool)
-> (ArrowOption -> ArrowOption -> Bool) -> Eq ArrowOption
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ArrowOption -> ArrowOption -> Bool
$c/= :: ArrowOption -> ArrowOption -> Bool
== :: ArrowOption -> ArrowOption -> Bool
$c== :: ArrowOption -> ArrowOption -> Bool
Eq, (forall x. ArrowOption -> Rep ArrowOption x)
-> (forall x. Rep ArrowOption x -> ArrowOption)
-> Generic ArrowOption
forall x. Rep ArrowOption x -> ArrowOption
forall x. ArrowOption -> Rep ArrowOption x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ArrowOption x -> ArrowOption
$cfrom :: forall x. ArrowOption -> Rep ArrowOption x
Generic, Int -> ArrowOption -> ShowS
[ArrowOption] -> ShowS
ArrowOption -> String
(Int -> ArrowOption -> ShowS)
-> (ArrowOption -> String)
-> ([ArrowOption] -> ShowS)
-> Show ArrowOption
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ArrowOption] -> ShowS
$cshowList :: [ArrowOption] -> ShowS
show :: ArrowOption -> String
$cshow :: ArrowOption -> String
showsPrec :: Int -> ArrowOption -> ShowS
$cshowsPrec :: Int -> ArrowOption -> ShowS
Show)

-- | Settings to normalize stops (periods, commas, and interpuncts) in docs.
data StopOption
    -- | Stop sentences in the modern Korean style which follows Western stops.
    -- E.g.:
    --
    -- > 봄·여름·가을·겨울. 어제, 오늘.
    = Horizontal
    -- | Similar to 'horizontalStops' except slashes are used instead of
    -- interpuncts. E.g.:
    --
    -- > 봄/여름/가을/겨울. 어제, 오늘.
    | HorizontalWithSlashes
    -- | Stop sentences in the pre-modern Korean style which follows Chinese
    -- stops.  E.g.:
    --
    -- > 봄·여름·가을·겨울。어제、오늘。
    | Vertical
    deriving (Int -> StopOption
StopOption -> Int
StopOption -> [StopOption]
StopOption -> StopOption
StopOption -> StopOption -> [StopOption]
StopOption -> StopOption -> StopOption -> [StopOption]
(StopOption -> StopOption)
-> (StopOption -> StopOption)
-> (Int -> StopOption)
-> (StopOption -> Int)
-> (StopOption -> [StopOption])
-> (StopOption -> StopOption -> [StopOption])
-> (StopOption -> StopOption -> [StopOption])
-> (StopOption -> StopOption -> StopOption -> [StopOption])
-> Enum StopOption
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: StopOption -> StopOption -> StopOption -> [StopOption]
$cenumFromThenTo :: StopOption -> StopOption -> StopOption -> [StopOption]
enumFromTo :: StopOption -> StopOption -> [StopOption]
$cenumFromTo :: StopOption -> StopOption -> [StopOption]
enumFromThen :: StopOption -> StopOption -> [StopOption]
$cenumFromThen :: StopOption -> StopOption -> [StopOption]
enumFrom :: StopOption -> [StopOption]
$cenumFrom :: StopOption -> [StopOption]
fromEnum :: StopOption -> Int
$cfromEnum :: StopOption -> Int
toEnum :: Int -> StopOption
$ctoEnum :: Int -> StopOption
pred :: StopOption -> StopOption
$cpred :: StopOption -> StopOption
succ :: StopOption -> StopOption
$csucc :: StopOption -> StopOption
Enum, StopOption -> StopOption -> Bool
(StopOption -> StopOption -> Bool)
-> (StopOption -> StopOption -> Bool) -> Eq StopOption
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StopOption -> StopOption -> Bool
$c/= :: StopOption -> StopOption -> Bool
== :: StopOption -> StopOption -> Bool
$c== :: StopOption -> StopOption -> Bool
Eq, (forall x. StopOption -> Rep StopOption x)
-> (forall x. Rep StopOption x -> StopOption) -> Generic StopOption
forall x. Rep StopOption x -> StopOption
forall x. StopOption -> Rep StopOption x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StopOption x -> StopOption
$cfrom :: forall x. StopOption -> Rep StopOption x
Generic, ReadPrec [StopOption]
ReadPrec StopOption
Int -> ReadS StopOption
ReadS [StopOption]
(Int -> ReadS StopOption)
-> ReadS [StopOption]
-> ReadPrec StopOption
-> ReadPrec [StopOption]
-> Read StopOption
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StopOption]
$creadListPrec :: ReadPrec [StopOption]
readPrec :: ReadPrec StopOption
$creadPrec :: ReadPrec StopOption
readList :: ReadS [StopOption]
$creadList :: ReadS [StopOption]
readsPrec :: Int -> ReadS StopOption
$creadsPrec :: Int -> ReadS StopOption
Read, Int -> StopOption -> ShowS
[StopOption] -> ShowS
StopOption -> String
(Int -> StopOption -> ShowS)
-> (StopOption -> String)
-> ([StopOption] -> ShowS)
-> Show StopOption
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StopOption] -> ShowS
$cshowList :: [StopOption] -> ShowS
show :: StopOption -> String
$cshow :: StopOption -> String
showsPrec :: Int -> StopOption -> ShowS
$cshowsPrec :: Int -> StopOption -> ShowS
Show)

-- | Settings to deal with Sino-Korean words.
data HanjaOption = HanjaOption
    { -- | How to render Sino-Korean words.
      HanjaOption -> HanjaRenderingOption
rendering :: HanjaRenderingOption
      -- | How to rewrite Sino-Korean words in hangul.
    , HanjaOption -> HanjaReadingOption
reading :: HanjaReadingOption
    } deriving (Int -> HanjaOption -> ShowS
[HanjaOption] -> ShowS
HanjaOption -> String
(Int -> HanjaOption -> ShowS)
-> (HanjaOption -> String)
-> ([HanjaOption] -> ShowS)
-> Show HanjaOption
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HanjaOption] -> ShowS
$cshowList :: [HanjaOption] -> ShowS
show :: HanjaOption -> String
$cshow :: HanjaOption -> String
showsPrec :: Int -> HanjaOption -> ShowS
$cshowsPrec :: Int -> HanjaOption -> ShowS
Show)

-- | Available options to render Sino-Korean words.
data HanjaRenderingOption
    -- | Renders a word in hangul-only, no hanja at all (e.g., @안녕히@).
    = HangulOnly
    -- | Renders a word in hangul followed by hanja in parentheses
    -- (e.g., @안녕(安寧)히@).
    | HanjaInParentheses
    -- | Renders words in hangul-only for the most part, and if there are
    -- homophones in a document put their hanja notation in parentheses
    -- (e.g., @안녕히@ or @소수(小數)와 소수(素數)@).
    | DisambiguatingHanjaInParentheses
    -- | Renders a word in @<ruby>@ tag (e.g.,
    -- @\<ruby\>安寧\<rp\>(\<\/rp\>\<rt\>안녕\<\/rt\>\<rp\>)\<\/rp\>\<\/ruby\>히@).
    --
    -- Please read [Use Cases & Exploratory Approaches for Ruby
    -- Markup](https://www.w3.org/TR/ruby-use-cases/) as well for more
    -- information.
    | HanjaInRuby
    deriving (Int -> HanjaRenderingOption
HanjaRenderingOption -> Int
HanjaRenderingOption -> [HanjaRenderingOption]
HanjaRenderingOption -> HanjaRenderingOption
HanjaRenderingOption
-> HanjaRenderingOption -> [HanjaRenderingOption]
HanjaRenderingOption
-> HanjaRenderingOption
-> HanjaRenderingOption
-> [HanjaRenderingOption]
(HanjaRenderingOption -> HanjaRenderingOption)
-> (HanjaRenderingOption -> HanjaRenderingOption)
-> (Int -> HanjaRenderingOption)
-> (HanjaRenderingOption -> Int)
-> (HanjaRenderingOption -> [HanjaRenderingOption])
-> (HanjaRenderingOption
    -> HanjaRenderingOption -> [HanjaRenderingOption])
-> (HanjaRenderingOption
    -> HanjaRenderingOption -> [HanjaRenderingOption])
-> (HanjaRenderingOption
    -> HanjaRenderingOption
    -> HanjaRenderingOption
    -> [HanjaRenderingOption])
-> Enum HanjaRenderingOption
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: HanjaRenderingOption
-> HanjaRenderingOption
-> HanjaRenderingOption
-> [HanjaRenderingOption]
$cenumFromThenTo :: HanjaRenderingOption
-> HanjaRenderingOption
-> HanjaRenderingOption
-> [HanjaRenderingOption]
enumFromTo :: HanjaRenderingOption
-> HanjaRenderingOption -> [HanjaRenderingOption]
$cenumFromTo :: HanjaRenderingOption
-> HanjaRenderingOption -> [HanjaRenderingOption]
enumFromThen :: HanjaRenderingOption
-> HanjaRenderingOption -> [HanjaRenderingOption]
$cenumFromThen :: HanjaRenderingOption
-> HanjaRenderingOption -> [HanjaRenderingOption]
enumFrom :: HanjaRenderingOption -> [HanjaRenderingOption]
$cenumFrom :: HanjaRenderingOption -> [HanjaRenderingOption]
fromEnum :: HanjaRenderingOption -> Int
$cfromEnum :: HanjaRenderingOption -> Int
toEnum :: Int -> HanjaRenderingOption
$ctoEnum :: Int -> HanjaRenderingOption
pred :: HanjaRenderingOption -> HanjaRenderingOption
$cpred :: HanjaRenderingOption -> HanjaRenderingOption
succ :: HanjaRenderingOption -> HanjaRenderingOption
$csucc :: HanjaRenderingOption -> HanjaRenderingOption
Enum, HanjaRenderingOption -> HanjaRenderingOption -> Bool
(HanjaRenderingOption -> HanjaRenderingOption -> Bool)
-> (HanjaRenderingOption -> HanjaRenderingOption -> Bool)
-> Eq HanjaRenderingOption
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HanjaRenderingOption -> HanjaRenderingOption -> Bool
$c/= :: HanjaRenderingOption -> HanjaRenderingOption -> Bool
== :: HanjaRenderingOption -> HanjaRenderingOption -> Bool
$c== :: HanjaRenderingOption -> HanjaRenderingOption -> Bool
Eq, (forall x. HanjaRenderingOption -> Rep HanjaRenderingOption x)
-> (forall x. Rep HanjaRenderingOption x -> HanjaRenderingOption)
-> Generic HanjaRenderingOption
forall x. Rep HanjaRenderingOption x -> HanjaRenderingOption
forall x. HanjaRenderingOption -> Rep HanjaRenderingOption x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep HanjaRenderingOption x -> HanjaRenderingOption
$cfrom :: forall x. HanjaRenderingOption -> Rep HanjaRenderingOption x
Generic, ReadPrec [HanjaRenderingOption]
ReadPrec HanjaRenderingOption
Int -> ReadS HanjaRenderingOption
ReadS [HanjaRenderingOption]
(Int -> ReadS HanjaRenderingOption)
-> ReadS [HanjaRenderingOption]
-> ReadPrec HanjaRenderingOption
-> ReadPrec [HanjaRenderingOption]
-> Read HanjaRenderingOption
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [HanjaRenderingOption]
$creadListPrec :: ReadPrec [HanjaRenderingOption]
readPrec :: ReadPrec HanjaRenderingOption
$creadPrec :: ReadPrec HanjaRenderingOption
readList :: ReadS [HanjaRenderingOption]
$creadList :: ReadS [HanjaRenderingOption]
readsPrec :: Int -> ReadS HanjaRenderingOption
$creadsPrec :: Int -> ReadS HanjaRenderingOption
Read, Int -> HanjaRenderingOption -> ShowS
[HanjaRenderingOption] -> ShowS
HanjaRenderingOption -> String
(Int -> HanjaRenderingOption -> ShowS)
-> (HanjaRenderingOption -> String)
-> ([HanjaRenderingOption] -> ShowS)
-> Show HanjaRenderingOption
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HanjaRenderingOption] -> ShowS
$cshowList :: [HanjaRenderingOption] -> ShowS
show :: HanjaRenderingOption -> String
$cshow :: HanjaRenderingOption -> String
showsPrec :: Int -> HanjaRenderingOption -> ShowS
$cshowsPrec :: Int -> HanjaRenderingOption -> ShowS
Show)

-- | Settings to read Sino-Korean words.
data HanjaReadingOption = HanjaReadingOption
    { -- | Whether to apply Initial Sound Law (頭音法則) or not.
      HanjaReadingOption -> Bool
initialSoundLaw :: Bool
      -- | A dictionary which has hanja readings.  Keys are
      -- hanja words and values are their corresponding hangul readings,
      -- e.g.:
      --
      -- > [("敗北", "패배"), ("北極", "북극")] :: HanjaDictionary
    , HanjaReadingOption -> HanjaDictionary
dictionary :: HanjaDictionary
    }

instance Show HanjaReadingOption where
    show :: HanjaReadingOption -> String
show HanjaReadingOption { HanjaDictionary
dictionary :: HanjaDictionary
dictionary :: HanjaReadingOption -> HanjaDictionary
dictionary, Bool
initialSoundLaw :: Bool
initialSoundLaw :: HanjaReadingOption -> Bool
initialSoundLaw } =
        String
"HanjaReadingOption {" String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
" dictionary = [" String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        Int -> String
forall a. Show a => a -> String
show (HanjaDictionary -> Int
forall a. Trie a -> Int
Trie.size HanjaDictionary
dictionary) String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
" words]," String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
" initialSoundLaw = " String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        Bool -> String
forall a. Show a => a -> String
show Bool
initialSoundLaw String -> ShowS
forall a. Semigroup a => a -> a -> a
<>
        String
" }"

-- | Transforms a given text.  'Nothing' if it fails to parse the given
-- text.
transformHtmlText :: forall (m :: Type -> Type) a. (Monad m, MonadFail m)
                  => Configuration m a -> Text -> m Text
transformHtmlText :: Configuration m a -> Text -> m Text
transformHtmlText Configuration m a
config =
    (Text -> Text) -> m Text -> m Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Text -> Text
LT.toStrict (m Text -> m Text) -> (Text -> m Text) -> Text -> m Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Configuration m a -> Text -> m Text
forall (m :: * -> *) a.
(Monad m, MonadFail m) =>
Configuration m a -> Text -> m Text
transformHtmlLazyText Configuration m a
config (Text -> m Text) -> (Text -> Text) -> Text -> m Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Text
LT.fromStrict

-- | A lazy version of 'transformHtmlText' function.
transformHtmlLazyText :: forall (m :: Type -> Type) a. (Monad m, MonadFail m)
                      => Configuration m a -> LT.Text -> m LT.Text
transformHtmlLazyText :: Configuration m a -> Text -> m Text
transformHtmlLazyText config :: Configuration m a
config@Configuration { ContentType
contentType :: ContentType
contentType :: forall (m :: * -> *) a. Monad m => Configuration m a -> ContentType
contentType, Maybe (HtmlEntity -> m a)
debugLogger :: Maybe (HtmlEntity -> m a)
debugLogger :: forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe (HtmlEntity -> m a)
debugLogger } =
    ContentType -> HtmlTransformer m -> Text -> m Text
forall (m :: * -> *).
(Monad m, MonadFail m) =>
ContentType -> HtmlTransformer m -> Text -> m Text
transformWithContentType ContentType
contentType HtmlTransformer m
[HtmlEntity] -> m [HtmlEntity]
transformerM
  where
    transformer :: [HtmlEntity] -> [HtmlEntity]
    transformer :: [HtmlEntity] -> [HtmlEntity]
transformer = Configuration m a -> [HtmlEntity] -> [HtmlEntity]
forall (m :: * -> *) a.
Monad m =>
Configuration m a -> [HtmlEntity] -> [HtmlEntity]
toTransformer Configuration m a
config
    transformerM :: [HtmlEntity] -> m [HtmlEntity]
transformerM = case Maybe (HtmlEntity -> m a)
debugLogger of
        Maybe (HtmlEntity -> m a)
Nothing -> [HtmlEntity] -> m [HtmlEntity]
forall (m :: * -> *) a. Monad m => a -> m a
return ([HtmlEntity] -> m [HtmlEntity])
-> ([HtmlEntity] -> [HtmlEntity]) -> [HtmlEntity] -> m [HtmlEntity]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [HtmlEntity] -> [HtmlEntity]
transformer
        Just HtmlEntity -> m a
logger -> \ [HtmlEntity]
input -> do
            (HtmlEntity -> m a) -> [HtmlEntity] -> m ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ HtmlEntity -> m a
logger [HtmlEntity]
input
            [HtmlEntity] -> m [HtmlEntity]
forall (m :: * -> *) a. Monad m => a -> m a
return ([HtmlEntity] -> m [HtmlEntity]) -> [HtmlEntity] -> m [HtmlEntity]
forall a b. (a -> b) -> a -> b
$ [HtmlEntity] -> [HtmlEntity]
transformer [HtmlEntity]
input

toTransformers :: Monad m => Configuration m a -> [[HtmlEntity] -> [HtmlEntity]]
toTransformers :: Configuration m a -> [[HtmlEntity] -> [HtmlEntity]]
toTransformers Configuration { Maybe QuoteOption
quote :: Maybe QuoteOption
quote :: forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe QuoteOption
quote
                             , Maybe CiteOption
cite :: Maybe CiteOption
cite :: forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe CiteOption
cite
                             , Maybe ArrowOption
arrow :: Maybe ArrowOption
arrow :: forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe ArrowOption
arrow
                             , Bool
ellipsis :: Bool
ellipsis :: forall (m :: * -> *) a. Monad m => Configuration m a -> Bool
ellipsis
                             , Bool
emDash :: Bool
emDash :: forall (m :: * -> *) a. Monad m => Configuration m a -> Bool
emDash
                             , Maybe StopOption
stop :: Maybe StopOption
stop :: forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe StopOption
stop
                             , Maybe HanjaOption
hanja :: Maybe HanjaOption
hanja :: forall (m :: * -> *) a.
Monad m =>
Configuration m a -> Maybe HanjaOption
hanja
                             } =
    [ case Maybe QuoteOption
quote of
        Maybe QuoteOption
Nothing -> Item [[HtmlEntity] -> [HtmlEntity]]
forall a. a -> a
id
        Just QuoteOption
quoteOption -> Quotes -> [HtmlEntity] -> [HtmlEntity]
transformQuote (Quotes -> [HtmlEntity] -> [HtmlEntity])
-> Quotes -> [HtmlEntity] -> [HtmlEntity]
forall a b. (a -> b) -> a -> b
$
            case QuoteOption
quoteOption of
                QuoteOption
CurvedQuotes -> Quotes
curvedQuotes
                QuoteOption
Guillemets -> Quotes
guillemets
                QuoteOption
VerticalCornerBrackets -> Quotes
verticalCornerBrackets
                QuoteOption
HorizontalCornerBrackets -> Quotes
horizontalCornerBrackets
                QuoteOption
CurvedSingleQuotesWithQ -> Quotes
curvedSingleQuotesWithQ
                QuoteOption
VerticalCornerBracketsWithQ -> Quotes
verticalCornerBracketsWithQ
                QuoteOption
HorizontalCornerBracketsWithQ -> Quotes
horizontalCornerBracketsWithQ
    , case Maybe CiteOption
cite of
        Maybe CiteOption
Nothing -> Item [[HtmlEntity] -> [HtmlEntity]]
forall a. a -> a
id
        Just CiteOption
citeOption -> CitationQuotes -> [HtmlEntity] -> [HtmlEntity]
quoteCitation (CitationQuotes -> [HtmlEntity] -> [HtmlEntity])
-> CitationQuotes -> [HtmlEntity] -> [HtmlEntity]
forall a b. (a -> b) -> a -> b
$
            case CiteOption
citeOption of
                CiteOption
AngleQuotes -> CitationQuotes
angleQuotes { htmlElement :: Maybe (HtmlTag, Text)
htmlElement = Maybe (HtmlTag, Text)
forall a. Maybe a
Nothing }
                CiteOption
CornerBrackets -> CitationQuotes
cornerBrackets { htmlElement :: Maybe (HtmlTag, Text)
htmlElement = Maybe (HtmlTag, Text)
forall a. Maybe a
Nothing }
                CiteOption
AngleQuotesWithCite -> CitationQuotes
angleQuotes
                CiteOption
CornerBracketsWithCite -> CitationQuotes
cornerBrackets
    , case Maybe ArrowOption
arrow of
        Maybe ArrowOption
Nothing -> Item [[HtmlEntity] -> [HtmlEntity]]
forall a. a -> a
id
        Just ArrowOption { Bool
bidirArrow :: Bool
bidirArrow :: ArrowOption -> Bool
bidirArrow, Bool
doubleArrow :: Bool
doubleArrow :: ArrowOption -> Bool
doubleArrow } -> Set ArrowTransformationOption -> [HtmlEntity] -> [HtmlEntity]
transformArrow (Set ArrowTransformationOption -> [HtmlEntity] -> [HtmlEntity])
-> Set ArrowTransformationOption -> [HtmlEntity] -> [HtmlEntity]
forall a b. (a -> b) -> a -> b
$
            [ArrowTransformationOption] -> Set ArrowTransformationOption
forall a. Ord a => [a] -> Set a
Data.Set.fromList ([ArrowTransformationOption] -> Set ArrowTransformationOption)
-> [ArrowTransformationOption] -> Set ArrowTransformationOption
forall a b. (a -> b) -> a -> b
$ [Maybe ArrowTransformationOption] -> [ArrowTransformationOption]
forall a. [Maybe a] -> [a]
catMaybes
                [ if Bool
bidirArrow then ArrowTransformationOption -> Maybe ArrowTransformationOption
forall a. a -> Maybe a
Just ArrowTransformationOption
LeftRight else Item [Maybe ArrowTransformationOption]
forall a. Maybe a
Nothing
                , if Bool
doubleArrow then ArrowTransformationOption -> Maybe ArrowTransformationOption
forall a. a -> Maybe a
Just ArrowTransformationOption
DoubleArrow else Item [Maybe ArrowTransformationOption]
forall a. Maybe a
Nothing
                ]
    , case Maybe StopOption
stop of
        Maybe StopOption
Nothing -> Item [[HtmlEntity] -> [HtmlEntity]]
forall a. a -> a
id
        Just StopOption
stopOption -> Stops -> [HtmlEntity] -> [HtmlEntity]
normalizeStops (Stops -> [HtmlEntity] -> [HtmlEntity])
-> Stops -> [HtmlEntity] -> [HtmlEntity]
forall a b. (a -> b) -> a -> b
$
            case StopOption
stopOption of
                StopOption
Horizontal -> Stops
horizontalStops
                StopOption
HorizontalWithSlashes -> Stops
horizontalStopsWithSlashes
                StopOption
Vertical -> Stops
verticalStops
    , if Bool
ellipsis then Item [[HtmlEntity] -> [HtmlEntity]]
[HtmlEntity] -> [HtmlEntity]
transformEllipsis else Item [[HtmlEntity] -> [HtmlEntity]]
forall a. a -> a
id
    , if Bool
emDash then Item [[HtmlEntity] -> [HtmlEntity]]
[HtmlEntity] -> [HtmlEntity]
transformEmDash else Item [[HtmlEntity] -> [HtmlEntity]]
forall a. a -> a
id
    , case Maybe HanjaOption
hanja of
        Maybe HanjaOption
Nothing ->
            Item [[HtmlEntity] -> [HtmlEntity]]
forall a. a -> a
id
        Just HanjaOption
                { HanjaRenderingOption
rendering :: HanjaRenderingOption
rendering :: HanjaOption -> HanjaRenderingOption
rendering
                , reading :: HanjaOption -> HanjaReadingOption
reading = HanjaReadingOption { Bool
initialSoundLaw :: Bool
initialSoundLaw :: HanjaReadingOption -> Bool
initialSoundLaw, HanjaDictionary
dictionary :: HanjaDictionary
dictionary :: HanjaReadingOption -> HanjaDictionary
dictionary }
                } ->
            HanjaPhoneticization -> [HtmlEntity] -> [HtmlEntity]
phoneticizeHanja (HanjaPhoneticization -> [HtmlEntity] -> [HtmlEntity])
-> HanjaPhoneticization -> [HtmlEntity] -> [HtmlEntity]
forall a b. (a -> b) -> a -> b
$ HanjaPhoneticization
forall a. Default a => a
def
                { phoneticizer :: HanjaWordPhoneticizer
phoneticizer =
                    let withDict :: HanjaWordPhoneticizer -> HanjaWordPhoneticizer
withDict = if HanjaDictionary -> Bool
forall a. Trie a -> Bool
Trie.null HanjaDictionary
dictionary
                            then HanjaWordPhoneticizer -> HanjaWordPhoneticizer
forall a. a -> a
id
                            else HanjaDictionary -> HanjaWordPhoneticizer -> HanjaWordPhoneticizer
withDictionary HanjaDictionary
dictionary
                        phoneticize :: HanjaWordPhoneticizer
phoneticize = if Bool
initialSoundLaw
                            then HanjaWordPhoneticizer
phoneticizeHanjaWordWithInitialSoundLaw
                            else HanjaWordPhoneticizer
phoneticizeHanjaWord
                    in
                        HanjaWordPhoneticizer -> HanjaWordPhoneticizer
withDict HanjaWordPhoneticizer
phoneticize
                , wordRenderer :: HanjaWordRenderer
wordRenderer = case HanjaRenderingOption
rendering of
                    HanjaRenderingOption
HangulOnly -> HanjaWordRenderer
hangulOnly
                    HanjaRenderingOption
HanjaInParentheses -> HanjaWordRenderer
hanjaInParentheses
                    HanjaRenderingOption
DisambiguatingHanjaInParentheses -> HanjaWordRenderer
hangulOnly
                    HanjaRenderingOption
HanjaInRuby -> HanjaWordRenderer
hanjaInRuby
                , homophoneRenderer :: HanjaWordRenderer
homophoneRenderer = case HanjaRenderingOption
rendering of
                    HanjaRenderingOption
HangulOnly -> HanjaWordRenderer
hangulOnly
                    HanjaRenderingOption
HanjaInParentheses -> HanjaWordRenderer
hanjaInParentheses
                    HanjaRenderingOption
DisambiguatingHanjaInParentheses -> HanjaWordRenderer
hanjaInParentheses
                    HanjaRenderingOption
HanjaInRuby -> HanjaWordRenderer
hanjaInRuby
                }
    ]

toTransformer :: Monad m => Configuration m a -> [HtmlEntity] -> [HtmlEntity]
toTransformer :: Configuration m a -> [HtmlEntity] -> [HtmlEntity]
toTransformer =
    (([HtmlEntity] -> [HtmlEntity])
 -> ([HtmlEntity] -> [HtmlEntity]) -> [HtmlEntity] -> [HtmlEntity])
-> ([HtmlEntity] -> [HtmlEntity])
-> [[HtmlEntity] -> [HtmlEntity]]
-> [HtmlEntity]
-> [HtmlEntity]
forall (t :: * -> *) b a.
Foldable t =>
(b -> a -> b) -> b -> t a -> b
Prelude.foldl ([HtmlEntity] -> [HtmlEntity])
-> ([HtmlEntity] -> [HtmlEntity]) -> [HtmlEntity] -> [HtmlEntity]
forall b c a. (b -> c) -> (a -> b) -> a -> c
(.) [HtmlEntity] -> [HtmlEntity]
forall a. a -> a
id ([[HtmlEntity] -> [HtmlEntity]] -> [HtmlEntity] -> [HtmlEntity])
-> (Configuration m a -> [[HtmlEntity] -> [HtmlEntity]])
-> Configuration m a
-> [HtmlEntity]
-> [HtmlEntity]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Configuration m a -> [[HtmlEntity] -> [HtmlEntity]]
forall (m :: * -> *) a.
Monad m =>
Configuration m a -> [[HtmlEntity] -> [HtmlEntity]]
toTransformers

-- | Preset 'Configuration' for South Korean orthography.
ko_KR :: Monad m => Configuration m a
ko_KR :: Configuration m a
ko_KR = Configuration :: forall (m :: * -> *) a.
Maybe (HtmlEntity -> m a)
-> ContentType
-> Maybe QuoteOption
-> Maybe CiteOption
-> Maybe ArrowOption
-> Bool
-> Bool
-> Maybe StopOption
-> Maybe HanjaOption
-> Configuration m a
Configuration
    { debugLogger :: Maybe (HtmlEntity -> m a)
debugLogger = Maybe (HtmlEntity -> m a)
forall a. Maybe a
Nothing
    , quote :: Maybe QuoteOption
quote = QuoteOption -> Maybe QuoteOption
forall a. a -> Maybe a
Just QuoteOption
CurvedQuotes
    , cite :: Maybe CiteOption
cite = CiteOption -> Maybe CiteOption
forall a. a -> Maybe a
Just CiteOption
AngleQuotes
    , arrow :: Maybe ArrowOption
arrow = ArrowOption -> Maybe ArrowOption
forall a. a -> Maybe a
Just ArrowOption :: Bool -> Bool -> ArrowOption
ArrowOption { bidirArrow :: Bool
bidirArrow = Bool
True, doubleArrow :: Bool
doubleArrow = Bool
True }
    , ellipsis :: Bool
ellipsis = Bool
True
    , emDash :: Bool
emDash = Bool
True
    , stop :: Maybe StopOption
stop = StopOption -> Maybe StopOption
forall a. a -> Maybe a
Just StopOption
Horizontal
    , hanja :: Maybe HanjaOption
hanja = HanjaOption -> Maybe HanjaOption
forall a. a -> Maybe a
Just HanjaOption :: HanjaRenderingOption -> HanjaReadingOption -> HanjaOption
HanjaOption
        { rendering :: HanjaRenderingOption
rendering = HanjaRenderingOption
DisambiguatingHanjaInParentheses
        , reading :: HanjaReadingOption
reading = HanjaReadingOption :: Bool -> HanjaDictionary -> HanjaReadingOption
HanjaReadingOption
            { dictionary :: HanjaDictionary
dictionary = HanjaDictionary
southKoreanDictionaryUnsafe
            , initialSoundLaw :: Bool
initialSoundLaw = Bool
True
            }
        }
    , contentType :: ContentType
contentType = ContentType
"text/html"
    }

-- | Preset 'Configuration' for North Korean orthography.
ko_KP :: Monad m => Configuration m a
ko_KP :: Configuration m a
ko_KP = Configuration m a
forall (m :: * -> *) a. Monad m => Configuration m a
ko_KR
    { quote :: Maybe QuoteOption
quote = QuoteOption -> Maybe QuoteOption
forall a. a -> Maybe a
Just QuoteOption
Guillemets
    , hanja :: Maybe HanjaOption
hanja = HanjaOption -> Maybe HanjaOption
forall a. a -> Maybe a
Just HanjaOption :: HanjaRenderingOption -> HanjaReadingOption -> HanjaOption
HanjaOption
        { rendering :: HanjaRenderingOption
rendering = HanjaRenderingOption
HangulOnly
        , reading :: HanjaReadingOption
reading = HanjaReadingOption :: Bool -> HanjaDictionary -> HanjaReadingOption
HanjaReadingOption
            { dictionary :: HanjaDictionary
dictionary = []
            , initialSoundLaw :: Bool
initialSoundLaw = Bool
False
            }
        }
    }

-- | A mapping of locale code strings (e.g., @"ko-kr"@) to the corresponding
-- 'Configuration' presets (e.g., 'ko_KR').
presets :: (Ord k, IsString k, Monad m) => Map k (Configuration m a)
presets :: Map k (Configuration m a)
presets =
    [ (k
"ko-kp", Configuration m a
forall (m :: * -> *) a. Monad m => Configuration m a
ko_KP)
    , (k
"ko-kr", Configuration m a
forall (m :: * -> *) a. Monad m => Configuration m a
ko_KR)
    ]

-- | Loads a dictionary file.  The file consists of two-column TSV
-- (tab-separated values); the first column is hanja and the second column is
-- hangul.
readDictionaryFile :: FilePath -> IO HanjaDictionary
readDictionaryFile :: String -> IO HanjaDictionary
readDictionaryFile String
path = do
    ByteString
byteString <- String -> IO ByteString
Data.ByteString.Lazy.readFile String
path
    case ByteString -> Either String HanjaDictionary
readDictionaryByteString ByteString
byteString of
        Right HanjaDictionary
dic -> HanjaDictionary -> IO HanjaDictionary
forall (m :: * -> *) a. Monad m => a -> m a
return HanjaDictionary
dic
        Left String
err -> String -> IO HanjaDictionary
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
err

-- | Reads a dictionary from TSV bytes.
readDictionaryByteString :: Data.ByteString.Lazy.ByteString
                         -> Either String HanjaDictionary
readDictionaryByteString :: ByteString -> Either String HanjaDictionary
readDictionaryByteString ByteString
byteString =
    case DecodeOptions
-> HasHeader -> ByteString -> Either String (Vector DictionaryPair)
forall a.
FromRecord a =>
DecodeOptions
-> HasHeader -> ByteString -> Either String (Vector a)
decodeWith DecodeOptions
tsvDecodeOptions HasHeader
NoHeader ByteString
byteString of
        Right Vector DictionaryPair
vector -> HanjaDictionary -> Either String HanjaDictionary
forall a b. b -> Either a b
Right (HanjaDictionary -> Either String HanjaDictionary)
-> HanjaDictionary -> Either String HanjaDictionary
forall a b. (a -> b) -> a -> b
$ (HanjaDictionary -> DictionaryPair -> HanjaDictionary)
-> HanjaDictionary -> [DictionaryPair] -> HanjaDictionary
forall (t :: * -> *) b a.
Foldable t =>
(b -> a -> b) -> b -> t a -> b
Prelude.foldl
            (\ HanjaDictionary
d (DictionaryPair Text
k Text
v) -> Text -> Text -> HanjaDictionary -> HanjaDictionary
forall a. Text -> a -> Trie a -> Trie a
Trie.insert Text
k Text
v HanjaDictionary
d)
            HanjaDictionary
forall a. Trie a
Trie.empty
            (Vector DictionaryPair -> [Item (Vector DictionaryPair)]
forall l. IsList l => l -> [Item l]
GHC.Exts.toList Vector DictionaryPair
vector)
        Left String
err -> String -> Either String HanjaDictionary
forall a b. a -> Either a b
Left String
err
  where
    tsvDecodeOptions :: DecodeOptions
    tsvDecodeOptions :: DecodeOptions
tsvDecodeOptions = DecodeOptions
defaultDecodeOptions
        { decDelimiter :: Word8
decDelimiter = Int -> Word8
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Char -> Int
ord Char
'\t')
        }

{-# NOINLINE southKoreanDictionaryUnsafe #-}
southKoreanDictionaryUnsafe :: HanjaDictionary
southKoreanDictionaryUnsafe :: HanjaDictionary
southKoreanDictionaryUnsafe =
    IO HanjaDictionary -> HanjaDictionary
forall a. IO a -> a
unsafePerformIO (IO HanjaDictionary -> HanjaDictionary)
-> IO HanjaDictionary -> HanjaDictionary
forall a b. (a -> b) -> a -> b
$ IO HanjaDictionary -> IO HanjaDictionary
ignoreError IO HanjaDictionary
southKoreanDictionary
  where
    ignoreError :: IO HanjaDictionary -> IO HanjaDictionary
    ignoreError :: IO HanjaDictionary -> IO HanjaDictionary
ignoreError IO HanjaDictionary
action =
        IO HanjaDictionary
-> (IOError -> IO HanjaDictionary) -> IO HanjaDictionary
forall a. IO a -> (IOError -> IO a) -> IO a
catchIOError IO HanjaDictionary
action ((IOError -> IO HanjaDictionary) -> IO HanjaDictionary)
-> (IOError -> IO HanjaDictionary) -> IO HanjaDictionary
forall a b. (a -> b) -> a -> b
$ IO HanjaDictionary -> IOError -> IO HanjaDictionary
forall a b. a -> b -> a
const (IO HanjaDictionary -> IOError -> IO HanjaDictionary)
-> IO HanjaDictionary -> IOError -> IO HanjaDictionary
forall a b. (a -> b) -> a -> b
$ HanjaDictionary -> IO HanjaDictionary
forall (m :: * -> *) a. Monad m => a -> m a
return HanjaDictionary
forall a. Trie a
Trie.empty

-- | Loads [Standard Korean Language Dictionary](https://stdict.korean.go.kr/)
-- (標準國語大辭典) data.
southKoreanDictionary :: IO HanjaDictionary
#ifdef EMBED_DICTIONARY
southKoreanDictionary =
    case readDictionaryByteString bytes of
        Right dic -> return dic
        Left err -> fail err
  where
    bytes :: Data.ByteString.Lazy.ByteString
    bytes = Data.ByteString.Lazy.fromStrict $ $(embedFile $
        takeDirectory __FILE__ </> ".." </> ".." </> ".." </> "data" </>
        "ko-kr-stdict.tsv")

#else
southKoreanDictionary :: IO HanjaDictionary
southKoreanDictionary = do
    String
dataDir <- IO String
getDataDir
    String -> IO HanjaDictionary
readDictionaryFile (String
dataDir String -> ShowS
</> String
"ko-kr-stdict.tsv")
#endif

data DictionaryPair = DictionaryPair !Text !Text deriving ((forall x. DictionaryPair -> Rep DictionaryPair x)
-> (forall x. Rep DictionaryPair x -> DictionaryPair)
-> Generic DictionaryPair
forall x. Rep DictionaryPair x -> DictionaryPair
forall x. DictionaryPair -> Rep DictionaryPair x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DictionaryPair x -> DictionaryPair
$cfrom :: forall x. DictionaryPair -> Rep DictionaryPair x
Generic, Int -> DictionaryPair -> ShowS
[DictionaryPair] -> ShowS
DictionaryPair -> String
(Int -> DictionaryPair -> ShowS)
-> (DictionaryPair -> String)
-> ([DictionaryPair] -> ShowS)
-> Show DictionaryPair
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DictionaryPair] -> ShowS
$cshowList :: [DictionaryPair] -> ShowS
show :: DictionaryPair -> String
$cshow :: DictionaryPair -> String
showsPrec :: Int -> DictionaryPair -> ShowS
$cshowsPrec :: Int -> DictionaryPair -> ShowS
Show)

instance FromRecord DictionaryPair

{- HLINT ignore "Use camelCase" -}