Eventually-decentralized project hosting and management platform

[[ 🗃 ^WvWbo vervis ]] :: [📥 Inbox] [📤 Outbox] [🐤 Followers] [🤝 Collaborators] [🛠 Changes]

Clone

HTTPS: darcs clone https://vervis.peers.community/repos/WvWbo

SSH: darcs clone USERNAME@vervis.peers.community:WvWbo

Tags

TODO

src / Vervis /

Colour.hs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

{- 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/>.
 -}

module Vervis.Colour
    ( black
    , white
    , plain
    , darkRed
    , darkGreen
    , darkYellow
    , darkBlue
    , darkMagenta
    , darkCyan
    , darkGray
    , lightRed
    , lightGreen
    , lightYellow
    , lightBlue
    , lightMagenta
    , lightCyan
    , lightGray
    )
where

import Data.Colour.SRGB (Colour, sRGB24)
import Data.Word (Word8)

import qualified Vervis.Palette as P

uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d
uncurry3 f (x, y, z) = f x y z

c :: (Floating a, Ord a) => (Word8, Word8, Word8) -> Colour a
c = uncurry3 sRGB24

black, white, plain :: (Floating a, Ord a) => Colour a
black        = c P.black
white        = c P.white
plain        = c P.plain

darkRed, darkGreen, darkYellow, darkBlue, darkMagenta, darkCyan, darkGray
    :: (Floating a, Ord a) => Colour a
darkRed      = c P.darkRed
darkGreen    = c P.darkGreen
darkYellow   = c P.darkYellow
darkBlue     = c P.darkBlue
darkMagenta  = c P.darkMagenta
darkCyan     = c P.darkCyan
darkGray     = c P.darkGray

lightRed, lightGreen, lightYellow, lightBlue :: (Floating a, Ord a) => Colour a
lightMagenta, lightCyan, lightGray :: (Floating a, Ord a) => Colour a
lightRed     = c P.lightRed
lightGreen   = c P.lightGreen
lightYellow  = c P.lightYellow
lightBlue    = c P.lightBlue
lightMagenta = c P.lightMagenta
lightCyan    = c P.lightCyan
lightGray    = c P.lightGray
[See repo JSON]