mirror of
https://code.sup39.dev/repos/Wqawg
synced 2025-01-07 20:46:45 +09:00
68 lines
1.8 KiB
Haskell
68 lines
1.8 KiB
Haskell
{- 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)
|