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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
-- | This is an example Termonad configuration that shows how to use the
-- 'ColourExtension' to set colours for your terminal. See the project-wide
-- README.md for how to use Termonad Haskell configuration scripts.
module Main where
import Data.Maybe (fromMaybe)
import Termonad
( CursorBlinkMode(CursorBlinkModeOff), Option(Set)
, ShowScrollbar(ShowScrollbarNever), TMConfig, confirmExit, cursorBlinkMode
, defaultConfigOptions, defaultTMConfig, options, showMenu, showScrollbar
, start
)
import Termonad.Config.Colour
( AlphaColour, ColourConfig, List8, Palette(ExtendedPalette), addColourExtension
, createColour, createColourExtension, cursorBgColour, defaultColourConfig
, defaultLightColours, foregroundColour, palette, mkList8, unsafeMkList8
)
-- This is our main 'TMConfig'. It holds all of the non-colour settings
-- for Termonad.
--
-- This shows how a few settings can be changed.
myTMConfig :: TMConfig
myTMConfig =
defaultTMConfig
{ options =
defaultConfigOptions
{ showScrollbar = ShowScrollbarNever
, confirmExit = False
, showMenu = False
, cursorBlinkMode = CursorBlinkModeOff
}
}
-- This is our 'ColourConfig'. It holds all of our colour-related settings.
myColourConfig :: ColourConfig (AlphaColour Double)
myColourConfig =
defaultColourConfig
-- Set the cursor background colour. This is the normal colour of the
-- cursor.
{ cursorBgColour = Set (createColour 120 80 110) -- purple
-- Set the default foreground colour of text of the terminal.
, foregroundColour = Set (createColour 220 180 210) -- light pink
-- Set the extended palette that has 8 colours standard colors and then 8
-- light colors.
, palette = ExtendedPalette myStandardColours
(fromMaybe defaultLightColours myLightColours)
}
where
-- This is a an example of creating a linked-list of colours,
-- This function uses an unsafe method for generating the list.
-- An exception will be thrown if your list does not have 8 elements.
myStandardColours :: List8 (AlphaColour Double)
myStandardColours = unsafeMkList8
[ createColour 40 30 20 -- dark brown (used as background colour)
, createColour 180 30 20 -- red
, createColour 40 160 20 -- green
, createColour 180 160 20 -- dark yellow
, createColour 40 30 120 -- dark purple
, createColour 180 30 120 -- bright pink
, createColour 40 160 120 -- teal
, createColour 180 160 120 -- light brown
]
-- This is an example of creating a linked-list of colours with a type
-- safe method. mkList8 produces a Maybe value which must be handled explicitely.
myLightColours :: Maybe (List8 (AlphaColour Double))
myLightColours = mkList8
[ createColour 70 60 50 -- brown
, createColour 220 30 20 -- light red
, createColour 40 210 20 -- light green
, createColour 220 200 20 -- yellow
, createColour 40 30 180 -- purple
, createColour 140 30 80 -- dark pink
, createColour 50 200 160 -- light teal
, createColour 220 200 150 -- light brown
]
main :: IO ()
main = do
-- First, create the colour extension based on 'myColourConfig'.
myColourExt <- createColourExtension myColourConfig
-- Update 'myTMConfig' with our colour extension.
let newTMConfig = addColourExtension myTMConfig myColourExt
-- Start Termonad with our updated 'TMConfig'.
start newTMConfig
|
