import Tinty (Scheme, Theme) -- load and apply a color scheme apply :: String -> IO () apply name = do scheme <- loadScheme name let theme = buildWith scheme 16 applyTheme theme putStrLn ("applied: " ++ themeName theme)