-- | 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 :: forall a. (Ord a, Floating a) => 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 :: forall a. (Ord a, Floating a) => 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