summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Config/Types.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-02-03 05:14:45 +0000
committerjao <jao@gnu.org>2022-02-03 05:14:45 +0000
commitdc262d1628aa3e1bfe17ce99bfe89782b6185cc5 (patch)
tree43c2bf077702bd118a9f37646ebce50d2025d15f /src/Xmobar/Config/Types.hs
parentd7d1873cd009edc8f3de8d141de388f638c6a926 (diff)
downloadxmobar-dc262d1628aa3e1bfe17ce99bfe89782b6185cc5.tar.gz
xmobar-dc262d1628aa3e1bfe17ce99bfe89782b6185cc5.tar.bz2
TextOutputColor -> TextOutputFormat
Thinking of eventually adding a Sway JSON output, or simply add fonts to Pango specification, so it's more than colors. Also, NoColors -> Plain.
Diffstat (limited to 'src/Xmobar/Config/Types.hs')
-rw-r--r--src/Xmobar/Config/Types.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Xmobar/Config/Types.hs b/src/Xmobar/Config/Types.hs
index 5f19528..7914a87 100644
--- a/src/Xmobar/Config/Types.hs
+++ b/src/Xmobar/Config/Types.hs
@@ -16,7 +16,7 @@ module Xmobar.Config.Types
( -- * Configuration
-- $config
Config (..)
- , XPosition (..), Align (..), Border (..), TextColorFormat (..)
+ , XPosition (..), Align (..), Border (..), TextOutputFormat (..)
, SignalChan (..)
) where
@@ -37,7 +37,7 @@ data Config =
, fgColor :: String -- ^ Default font color
, position :: XPosition -- ^ Top Bottom or Static
, textOutput :: Bool -- ^ Write data to stdout instead of X
- , textOutputColors :: TextColorFormat -- ^ Which color format to use for stdout: Ansi or Pango
+ , textOutputFormat :: TextOutputFormat -- ^ Which color format to use for stdout: Ansi or Pango
, textOffset :: Int -- ^ Offset from top of window for text
, textOffsets :: [Int] -- ^ List of offsets for additionalFonts
, iconOffset :: Int -- ^ Offset from top of window for icons
@@ -98,7 +98,7 @@ data Border = NoBorder
| FullBM Int
deriving ( Read, Show, Eq )
-data TextColorFormat = NoColors | Ansi | Pango deriving ( Read, Show, Eq )
+data TextOutputFormat = Plain | Ansi | Pango deriving ( Read, Show, Eq )
newtype SignalChan = SignalChan { unSignalChan :: Maybe (STM.TMVar SignalType) }