Initial commit

.config/termonad/termonad.hs

@@ -0,0 +1,71 @@
+{-# 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