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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
{-# LANGUAGE OverloadedStrings #-}
-- | This is an example Termonad configuration that shows how to use the
-- One Dark Pro colour scheme https://binaryify.github.io/OneDark-Pro/
--
-- See an example in @../img/termonad-One_Dark_Pro.png@.
module Main where
import Data.Maybe (fromMaybe)
import Termonad
( CursorBlinkMode(CursorBlinkModeOn)
, Option(Set)
, ShowScrollbar(ShowScrollbarNever)
, TMConfig
, confirmExit
, cursorBlinkMode
, defaultConfigOptions
, defaultTMConfig
, options
, showMenu
, showScrollbar
, start
, FontConfig
, FontSize(FontSizePoints)
, defaultFontConfig
, fontConfig
, fontFamily
, fontSize
)
import Termonad.Config.Colour
( AlphaColour
, ColourConfig
, Palette(ExtendedPalette)
, addColourExtension
, createColour
, createColourExtension
, defaultColourConfig
, defaultStandardColours
, defaultLightColours
, backgroundColour
, foregroundColour
, palette
, List8
, mkList8
)
-- 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 = CursorBlinkModeOn
, fontConfig = fontConf
}
}
-- This is our Dracula 'ColourConfig'.
onedarkpro :: ColourConfig (AlphaColour Double)
onedarkpro =
defaultColourConfig
-- Set the default background & foreground colour of text of the terminal.
{ backgroundColour = Set (createColour 40 44 52) -- black.0
, foregroundColour = Set (createColour 171 178 191) -- white.7
-- Set the extended palette that has 2 Vecs of 8 Dracula palette colours
, palette = ExtendedPalette onedarkproNormal onedarkproBright
}
where
onedarkproNormal :: List8 (AlphaColour Double)
onedarkproNormal = fromMaybe defaultStandardColours $ mkList8
[ createColour 40 44 52 -- black.0
, createColour 244 108 117 -- red.1
, createColour 152 195 121 -- green.2
, createColour 229 192 123 -- yellow.3
, createColour 97 175 239 -- blue.4
, createColour 198 120 221 -- magenta.5
, createColour 86 182 194 -- cyan.6
, createColour 171 178 191 -- white.7
]
onedarkproBright :: List8 (AlphaColour Double)
onedarkproBright = fromMaybe defaultStandardColours $ mkList8
[ createColour 63 63 63 -- black.8
, createColour 224 108 117 -- red.9
, createColour 152 195 121 -- green.10
, createColour 229 192 123 -- yellow.11
, createColour 97 175 239 -- blue.12
, createColour 198 120 221 -- magenta.13
, createColour 86 182 194 -- cyan.14
, createColour 191 197 206 -- white.15
]
fontConf =
defaultFontConfig
{ fontFamily = "Monospace"
, fontSize = FontSizePoints 12
}
main :: IO ()
main = do
-- First, create the colour extension based on either PaperColor modules.
myColourExt <- createColourExtension onedarkpro
-- Update 'myTMConfig' with our colour extension.
let newTMConfig = addColourExtension myTMConfig myColourExt
-- Start Termonad with our updated 'TMConfig'.
start newTMConfig
|
