1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 11:04:53 +09:00

Change color scheme to something hopefully not controversial

This commit is contained in:
fr33domlover 2018-07-12 09:25:04 +00:00
parent cf3f8fb8f6
commit 9bc5d411c8

View file

@ -1,6 +1,6 @@
{- This file is part of Vervis.
-
- Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
- Written in 2016, 2018 by fr33domlover <fr33domlover@riseup.net>.
-
- Copying is an act of love. Please copy, reuse and share.
-
@ -14,7 +14,7 @@
-}
-- | Colors to use in UI. Syntax highlighting, diagrams, CSS and so on.
-- Currently the 16 Tango colors are being used here.
-- Currently the colors from <https://clrs.cc> are being used here.
module Vervis.Palette
( black
, white
@ -43,26 +43,26 @@ 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)
black = (0x11, 0x11, 0x11)
white = (0xFF, 0xFF, 0xFF)
plain = (0xDD, 0xDD, 0xDD)
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)
darkRed = (0x85, 0x14, 0x4B)
darkGreen = (0x2E, 0xCC, 0x40)
darkYellow = (0xFF, 0x85, 0x1B)
darkBlue = (0x00, 0x1F, 0x3F)
darkMagenta = (0xB1, 0x0D, 0xC9)
darkCyan = (0x39, 0xCC, 0xCC)
darkGray = (0xAA, 0xAA, 0xAA)
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)
lightRed = (0xFF, 0x41, 0x36)
lightGreen = (0x01, 0xFF, 0x70)
lightYellow = (0xFF, 0xDC, 0x00)
lightBlue = (0x00, 0x74, 0xD9)
lightMagenta = (0xF0, 0x12, 0xBE)
lightCyan = (0x7F, 0xDB, 0xFF)
lightGray = (0xDD, 0xDD, 0xDD)