-- | 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 = sRGB24 0x72 0x89 0xda

greyple :: (Ord a, Floating a) => Colour a
greyple = sRGB24 0x99 0xaa 0xb5