72 lines
2.3 KiB
Haskell
72 lines
2.3 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
-- | This is my configuration file for the Termonad terminal emulator.
|
|
|
|
module Main where
|
|
|
|
import Data.Colour.SRGB (Colour, sRGB24)
|
|
-- import Data.Colour (withOpacity)
|
|
import Termonad.App (defaultMain)
|
|
import Termonad.Config
|
|
( FontConfig, FontSize(FontSizePoints), Option(Set)
|
|
, ShowScrollbar(ShowScrollbarNever), defaultFontConfig, defaultTMConfig
|
|
, fontConfig, fontFamily, fontSize, showScrollbar, showMenu
|
|
)
|
|
import Termonad.Config.Colour
|
|
import Termonad.Config.Vec (Vec, VecT((:+), EmptyV), N8)
|
|
import Termonad.Config.Extension ((<+>))
|
|
|
|
-- | This sets the color of the cursor in the terminal.
|
|
--
|
|
-- This uses the "Data.Colour" module to define a dark-red color.
|
|
-- There are many default colors defined in "Data.Colour.Names".
|
|
cursBgColor :: Colour Double
|
|
cursBgColor = sRGB24 204 0 0
|
|
|
|
-- | This sets the colors used for the terminal. We only specify the background
|
|
-- color of the cursor.
|
|
colConf :: ColourConfig (Colour Double)
|
|
colConf =
|
|
defaultColourConfig
|
|
{ cursorBgColour = Set cursBgColor -- `withOpacity` 0.7
|
|
, palette = BasicPalette mySolarizedColours
|
|
} where
|
|
mySolarizedColours :: Vec N8 (Colour Double)
|
|
mySolarizedColours
|
|
= sRGB24 0 43 54 -- base03, background
|
|
:+ sRGB24 220 50 47 -- red
|
|
:+ sRGB24 7 54 66 -- base02
|
|
:+ sRGB24 203 75 22 -- orange
|
|
:+ sRGB24 38 139 210 -- blue
|
|
:+ sRGB24 211 54 130 -- magenta
|
|
:+ sRGB24 42 161 152 -- cyan
|
|
:+ sRGB24 211 54 130 -- magenta
|
|
-- :+ sRGB24 211 54 130 -- magenta
|
|
-- :+ sRGB24 211 54 130 -- magenta
|
|
-- :+ sRGB24 211 54 130 -- magenta
|
|
-- :+ sRGB24 211 54 130 -- magenta
|
|
-- :+ sRGB24 211 54 130 -- magenta
|
|
-- :+ sRGB24 211 54 130 -- magenta
|
|
-- :+ sRGB24 211 54 130 -- magenta
|
|
-- :+ sRGB24 211 54 130 -- magenta
|
|
:+ EmptyV
|
|
|
|
-- | This defines the font for the terminal.
|
|
fontConf :: FontConfig
|
|
fontConf =
|
|
defaultFontConfig
|
|
{ fontFamily = "DejaVu Sans Mono"
|
|
, fontSize = FontSizePoints 8
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let termonadConf =
|
|
defaultTMConfig
|
|
{ fontConfig = fontConf
|
|
-- Make sure the scrollbar is never visible.
|
|
, showScrollbar = ShowScrollbarNever
|
|
, showMenu = False
|
|
} <+> colConf
|
|
defaultMain termonadConf
|