module Penny.Steel.Chunk.Switch where
import qualified Penny.Steel.Chunk as C
switchForeground ::
C.Foreground8
-> C.Foreground256
-> C.TextSpec
-> C.TextSpec
switchForeground c8 c256 ts = ts' where
ts' = C.TextSpec s8' s256'
s8' = (C.style8 ts) { C.foreground8 = c8 }
s256' = (C.style256 ts) { C.foreground256 = c256 }
switchBackground ::
C.Background8
-> C.Background256
-> C.TextSpec
-> C.TextSpec
switchBackground c8 c256 ts = ts' where
ts' = C.TextSpec s8' s256'
s8' = (C.style8 ts) { C.background8 = c8 }
s256' = (C.style256 ts) { C.background256 = c256 }