UIThemeUtils.hs

----------------------------------------------------------------
-- Модуль приложения
-- Графический интерфейс (UI)
-- Утилиты ГИП 
----------------------------------------------------------------

module WebUI.Themes.UIThemeUtils
    ( thC_03
    , thC_02
    , thC_01
    , thC_00
    , thC_0 
    , thC_1 
    , thC_2 
    , thC_3 
    , thC_Yl
    , thC_Or
    , thC_Rd
    , thC_Mg
    , thC_Vl
    , thC_Bl
    , thC_Cn
    , thC_Gr
    , thC
    ) where

-- Импорт модулей
import           WebUI.Themes.UIThemeTypes



-- | Цвета
thC_03 :: (CUITheme t) => t -> ThParam -> String 
thC_03 t p  = rndTh t p

thC_02 :: (CUITheme t) => t -> ThParam -> String 
thC_02 t p = rndTh t p

thC_01 :: (CUITheme t) => t -> ThParam -> String 
thC_01 t p = rndTh t p

thC_00 :: (CUITheme t) => t -> ThParam -> String 
thC_00 t p  = rndTh t p

thC_0 :: (CUITheme t) => t -> ThParam -> String 
thC_0 t p = rndTh t p

thC_1 :: (CUITheme t) => t -> ThParam -> String 
thC_1 t p = rndTh t p

thC_2 :: (CUITheme t) => t -> ThParam -> String 
thC_2 t p = rndTh t p

thC_3 :: (CUITheme t) => t -> ThParam -> String 
thC_3 t p = rndTh t p

thC_Yl :: (CUITheme t) => t -> ThParam -> String 
thC_Yl t p  = rndTh t p

thC_Or :: (CUITheme t) => t -> ThParam -> String 
thC_Or t p = rndTh t p

thC_Rd :: (CUITheme t) => t -> ThParam -> String 
thC_Rd t p = rndTh t p

thC_Mg :: (CUITheme t) => t -> ThParam -> String 
thC_Mg t p = rndTh t p

thC_Vl :: (CUITheme t) => t -> ThParam -> String 
thC_Vl t p = rndTh t p

thC_Bl :: (CUITheme t) => t -> ThParam -> String 
thC_Bl t p = rndTh t p

thC_Cn :: (CUITheme t) => t -> ThParam -> String 
thC_Cn t p = rndTh t p

thC_Gr :: (CUITheme t) => t -> ThParam -> String 
thC_Gr t p = rndTh t p

thC :: (CUITheme t) => t -> ThParam -> String 
thC t p = rndTh t p