module Tldr.Types where import System.Console.ANSI data Locale = English | Missing | Other String | Unknown String data ColorSetting = NoColor | UseColor deriving (ColorSetting -> ColorSetting -> Bool (ColorSetting -> ColorSetting -> Bool) -> (ColorSetting -> ColorSetting -> Bool) -> Eq ColorSetting forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: ColorSetting -> ColorSetting -> Bool == :: ColorSetting -> ColorSetting -> Bool $c/= :: ColorSetting -> ColorSetting -> Bool /= :: ColorSetting -> ColorSetting -> Bool Eq, Int -> ColorSetting -> ShowS [ColorSetting] -> ShowS ColorSetting -> String (Int -> ColorSetting -> ShowS) -> (ColorSetting -> String) -> ([ColorSetting] -> ShowS) -> Show ColorSetting forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> ColorSetting -> ShowS showsPrec :: Int -> ColorSetting -> ShowS $cshow :: ColorSetting -> String show :: ColorSetting -> String $cshowList :: [ColorSetting] -> ShowS showList :: [ColorSetting] -> ShowS Show, Eq ColorSetting Eq ColorSetting => (ColorSetting -> ColorSetting -> Ordering) -> (ColorSetting -> ColorSetting -> Bool) -> (ColorSetting -> ColorSetting -> Bool) -> (ColorSetting -> ColorSetting -> Bool) -> (ColorSetting -> ColorSetting -> Bool) -> (ColorSetting -> ColorSetting -> ColorSetting) -> (ColorSetting -> ColorSetting -> ColorSetting) -> Ord ColorSetting ColorSetting -> ColorSetting -> Bool ColorSetting -> ColorSetting -> Ordering ColorSetting -> ColorSetting -> ColorSetting forall a. Eq a => (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a $ccompare :: ColorSetting -> ColorSetting -> Ordering compare :: ColorSetting -> ColorSetting -> Ordering $c< :: ColorSetting -> ColorSetting -> Bool < :: ColorSetting -> ColorSetting -> Bool $c<= :: ColorSetting -> ColorSetting -> Bool <= :: ColorSetting -> ColorSetting -> Bool $c> :: ColorSetting -> ColorSetting -> Bool > :: ColorSetting -> ColorSetting -> Bool $c>= :: ColorSetting -> ColorSetting -> Bool >= :: ColorSetting -> ColorSetting -> Bool $cmax :: ColorSetting -> ColorSetting -> ColorSetting max :: ColorSetting -> ColorSetting -> ColorSetting $cmin :: ColorSetting -> ColorSetting -> ColorSetting min :: ColorSetting -> ColorSetting -> ColorSetting Ord, Int -> ColorSetting ColorSetting -> Int ColorSetting -> [ColorSetting] ColorSetting -> ColorSetting ColorSetting -> ColorSetting -> [ColorSetting] ColorSetting -> ColorSetting -> ColorSetting -> [ColorSetting] (ColorSetting -> ColorSetting) -> (ColorSetting -> ColorSetting) -> (Int -> ColorSetting) -> (ColorSetting -> Int) -> (ColorSetting -> [ColorSetting]) -> (ColorSetting -> ColorSetting -> [ColorSetting]) -> (ColorSetting -> ColorSetting -> [ColorSetting]) -> (ColorSetting -> ColorSetting -> ColorSetting -> [ColorSetting]) -> Enum ColorSetting forall a. (a -> a) -> (a -> a) -> (Int -> a) -> (a -> Int) -> (a -> [a]) -> (a -> a -> [a]) -> (a -> a -> [a]) -> (a -> a -> a -> [a]) -> Enum a $csucc :: ColorSetting -> ColorSetting succ :: ColorSetting -> ColorSetting $cpred :: ColorSetting -> ColorSetting pred :: ColorSetting -> ColorSetting $ctoEnum :: Int -> ColorSetting toEnum :: Int -> ColorSetting $cfromEnum :: ColorSetting -> Int fromEnum :: ColorSetting -> Int $cenumFrom :: ColorSetting -> [ColorSetting] enumFrom :: ColorSetting -> [ColorSetting] $cenumFromThen :: ColorSetting -> ColorSetting -> [ColorSetting] enumFromThen :: ColorSetting -> ColorSetting -> [ColorSetting] $cenumFromTo :: ColorSetting -> ColorSetting -> [ColorSetting] enumFromTo :: ColorSetting -> ColorSetting -> [ColorSetting] $cenumFromThenTo :: ColorSetting -> ColorSetting -> ColorSetting -> [ColorSetting] enumFromThenTo :: ColorSetting -> ColorSetting -> ColorSetting -> [ColorSetting] Enum, ColorSetting ColorSetting -> ColorSetting -> Bounded ColorSetting forall a. a -> a -> Bounded a $cminBound :: ColorSetting minBound :: ColorSetting $cmaxBound :: ColorSetting maxBound :: ColorSetting Bounded) data ConsoleSetting = ConsoleSetting { ConsoleSetting -> Bool italic :: Bool , ConsoleSetting -> Underlining underline :: Underlining , ConsoleSetting -> BlinkSpeed blink :: BlinkSpeed , ConsoleSetting -> ColorIntensity fgIntensity :: ColorIntensity , ConsoleSetting -> Color fgColor :: Color , ConsoleSetting -> ColorIntensity bgIntensity :: ColorIntensity , ConsoleSetting -> ConsoleIntensity consoleIntensity :: ConsoleIntensity } data TldrOpts = TldrOpts { TldrOpts -> TldrCommand tldrAction :: TldrCommand , TldrOpts -> Maybe Int autoUpdateInterval :: Maybe Int , TldrOpts -> Maybe ColorSetting colorSetting :: Maybe ColorSetting } deriving (Int -> TldrOpts -> ShowS [TldrOpts] -> ShowS TldrOpts -> String (Int -> TldrOpts -> ShowS) -> (TldrOpts -> String) -> ([TldrOpts] -> ShowS) -> Show TldrOpts forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> TldrOpts -> ShowS showsPrec :: Int -> TldrOpts -> ShowS $cshow :: TldrOpts -> String show :: TldrOpts -> String $cshowList :: [TldrOpts] -> ShowS showList :: [TldrOpts] -> ShowS Show) data TldrCommand = UpdateIndex | ViewPage ViewOptions [String] | About deriving (Int -> TldrCommand -> ShowS [TldrCommand] -> ShowS TldrCommand -> String (Int -> TldrCommand -> ShowS) -> (TldrCommand -> String) -> ([TldrCommand] -> ShowS) -> Show TldrCommand forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> TldrCommand -> ShowS showsPrec :: Int -> TldrCommand -> ShowS $cshow :: TldrCommand -> String show :: TldrCommand -> String $cshowList :: [TldrCommand] -> ShowS showList :: [TldrCommand] -> ShowS Show, TldrCommand -> TldrCommand -> Bool (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> Bool) -> Eq TldrCommand forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: TldrCommand -> TldrCommand -> Bool == :: TldrCommand -> TldrCommand -> Bool $c/= :: TldrCommand -> TldrCommand -> Bool /= :: TldrCommand -> TldrCommand -> Bool Eq, Eq TldrCommand Eq TldrCommand => (TldrCommand -> TldrCommand -> Ordering) -> (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> TldrCommand) -> (TldrCommand -> TldrCommand -> TldrCommand) -> Ord TldrCommand TldrCommand -> TldrCommand -> Bool TldrCommand -> TldrCommand -> Ordering TldrCommand -> TldrCommand -> TldrCommand forall a. Eq a => (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a $ccompare :: TldrCommand -> TldrCommand -> Ordering compare :: TldrCommand -> TldrCommand -> Ordering $c< :: TldrCommand -> TldrCommand -> Bool < :: TldrCommand -> TldrCommand -> Bool $c<= :: TldrCommand -> TldrCommand -> Bool <= :: TldrCommand -> TldrCommand -> Bool $c> :: TldrCommand -> TldrCommand -> Bool > :: TldrCommand -> TldrCommand -> Bool $c>= :: TldrCommand -> TldrCommand -> Bool >= :: TldrCommand -> TldrCommand -> Bool $cmax :: TldrCommand -> TldrCommand -> TldrCommand max :: TldrCommand -> TldrCommand -> TldrCommand $cmin :: TldrCommand -> TldrCommand -> TldrCommand min :: TldrCommand -> TldrCommand -> TldrCommand Ord) data ViewOptions = ViewOptions { ViewOptions -> Maybe String platformOption :: Maybe String , ViewOptions -> Maybe String languageOption :: Maybe String } deriving (Int -> ViewOptions -> ShowS [ViewOptions] -> ShowS ViewOptions -> String (Int -> ViewOptions -> ShowS) -> (ViewOptions -> String) -> ([ViewOptions] -> ShowS) -> Show ViewOptions forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> ViewOptions -> ShowS showsPrec :: Int -> ViewOptions -> ShowS $cshow :: ViewOptions -> String show :: ViewOptions -> String $cshowList :: [ViewOptions] -> ShowS showList :: [ViewOptions] -> ShowS Show, ViewOptions -> ViewOptions -> Bool (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> Bool) -> Eq ViewOptions forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: ViewOptions -> ViewOptions -> Bool == :: ViewOptions -> ViewOptions -> Bool $c/= :: ViewOptions -> ViewOptions -> Bool /= :: ViewOptions -> ViewOptions -> Bool Eq, Eq ViewOptions Eq ViewOptions => (ViewOptions -> ViewOptions -> Ordering) -> (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> ViewOptions) -> (ViewOptions -> ViewOptions -> ViewOptions) -> Ord ViewOptions ViewOptions -> ViewOptions -> Bool ViewOptions -> ViewOptions -> Ordering ViewOptions -> ViewOptions -> ViewOptions forall a. Eq a => (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a $ccompare :: ViewOptions -> ViewOptions -> Ordering compare :: ViewOptions -> ViewOptions -> Ordering $c< :: ViewOptions -> ViewOptions -> Bool < :: ViewOptions -> ViewOptions -> Bool $c<= :: ViewOptions -> ViewOptions -> Bool <= :: ViewOptions -> ViewOptions -> Bool $c> :: ViewOptions -> ViewOptions -> Bool > :: ViewOptions -> ViewOptions -> Bool $c>= :: ViewOptions -> ViewOptions -> Bool >= :: ViewOptions -> ViewOptions -> Bool $cmax :: ViewOptions -> ViewOptions -> ViewOptions max :: ViewOptions -> ViewOptions -> ViewOptions $cmin :: ViewOptions -> ViewOptions -> ViewOptions min :: ViewOptions -> ViewOptions -> ViewOptions Ord)