{- This file is part of Vervis.
 -
 - Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
 -
 - ♡ Copying is an act of love. Please copy, reuse and share.
 -
 - The author(s) have dedicated all copyright and related and neighboring
 - rights to this software to the public domain worldwide. This software is
 - distributed without any warranty.
 -
 - You should have received a copy of the CC0 Public Domain Dedication along
 - with this software. If not, see
 - <http://creativecommons.org/publicdomain/zero/1.0/>.
 -}

-- | Colors to use in UI. Syntax highlighting, diagrams, CSS and so on.
-- Currently the 16 Tango colors are being used here.
module Vervis.Palette
    ( black
    , white
    , plain
    , darkRed
    , darkGreen
    , darkYellow
    , darkBlue
    , darkMagenta
    , darkCyan
    , darkGray
    , lightRed
    , lightGreen
    , lightYellow
    , lightBlue
    , lightMagenta
    , lightCyan
    , lightGray
    )
where

import Prelude

import Data.Word (Word8)

type RGB = (Word8, Word8, Word8)

black, white, plain :: RGB
black        = (0x00, 0x00, 0x00)
white        = (0xEE, 0xEE, 0xEC)
plain        = (0xCC, 0xCC, 0xCC)

darkRed, darkGreen, darkYellow, darkBlue, darkMagenta, darkCyan, darkGray
    :: RGB
darkRed      = (0xCC, 0x00, 0x00)
darkGreen    = (0x4E, 0x9A, 0x06)
darkYellow   = (0xC4, 0xA0, 0x00)
darkBlue     = (0x34, 0x65, 0xA4)
darkMagenta  = (0x75, 0x50, 0x7B)
darkCyan     = (0x06, 0x98, 0x9A)
darkGray     = (0x55, 0x57, 0x53)

lightRed, lightGreen, lightYellow, lightBlue :: RGB
lightMagenta, lightCyan, lightGray :: RGB
lightRed     = (0xEF, 0x29, 0x29)
lightGreen   = (0x8A, 0xE2, 0x34)
lightYellow  = (0xFC, 0xE9, 0x4F)
lightBlue    = (0x73, 0x9F, 0xCF)
lightMagenta = (0xAD, 0x7F, 0xA8)
lightCyan    = (0x34, 0xE2, 0xE2)
lightGray    = (0xD3, 0xD7, 0xCF)