From f64764b95e9e713157bdb96a377c636479bfc40c Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 1 Feb 2020 04:33:16 +0000
Subject: fn, fc

---
 src/lib/Config.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/lib/Config.hs')

diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index 905773e..c2a7720 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -1,5 +1,6 @@
 module Config (
-  Palette(..), baseConfig, palette, (<~>), (>~<), mkArgs, defaultHeight)
+  Palette(..), baseConfig, palette, (<~>), (>~<),
+  mkArgs, defaultHeight, fc, fn)
  where
 
 import System.Environment (lookupEnv)
@@ -21,6 +22,9 @@ data Palette = Palette { pNormal :: String
                        , pIsLight :: Bool
                        }
 
+fc color thing = "<fc=" ++ color ++ ">" ++ thing ++ "</fc>"
+fn n thing = "<fn=" ++ show n ++ ">" ++ thing ++ "</fn>"
+
 lightTheme :: IO Bool
 lightTheme = fmap (== Just "light") (lookupEnv "JAO_COLOR_SCHEME")
 
-- 
cgit v1.2.3