-- | Discord colour utilities
module Calamity.Utils.Colour
    ( colourToWord64
    , colourFromWord64
    -- * Useful colours
    , blurple
    , greyple ) where

import           Calamity.Internal.IntColour

import           Data.Colour
import           Data.Colour.SRGB            ( sRGB24 )

blurple :: (Ord a, Floating a) => Colour a
blurple :: Colour a
blurple = Word8 -> Word8 -> Word8 -> Colour a
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x72 Word8
0x89 Word8
0xda

greyple :: (Ord a, Floating a) => Colour a
greyple :: Colour a
greyple = Word8 -> Word8 -> Word8 -> Colour a
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x99 Word8
0xaa Word8
0xb5