From 41b05855906fc751eceb6ae699c524e22d1c84cf Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 8 Aug 2020 00:54:00 +0100
Subject: fun with font awesome

---
 src/lib/Config.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index b4db0b9..0cc4f8b 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -1,6 +1,6 @@
 module Config (
   Palette(..), baseConfig, palette, (<~>), (>~<),
-  mkArgs, defaultHeight, fc, fn)
+  mkArgs, defaultHeight, fc, fn, fni)
  where
 
 import System.Environment (lookupEnv)
@@ -24,6 +24,7 @@ data Palette = Palette { pNormal :: String
 
 fc color thing = "<fc=" ++ color ++ ">" ++ thing ++ "</fc>"
 fn n thing = "<fn=" ++ show n ++ ">" ++ thing ++ "</fn>"
+fni = fn 6
 
 lightTheme :: IO Bool
 lightTheme = fmap (== Just "light") (lookupEnv "JAO_COLOR_SCHEME")
@@ -61,7 +62,7 @@ darkPalette = Palette { pNormal = zenburnFg
                       , pBorder = "black" -- zenburnBackLight
                       , pForeground = zenburnFg
                       , pBackground = doomBack -- zenburnBack
-                      , pAlpha = 100
+                      , pAlpha = 0
                       , pIconRoot = icons "dark"
                       , pIsLight = False
                       }
@@ -81,7 +82,8 @@ baseConfig p = defaultConfig {
                       , "xft:Symbola-10"
                       , "xft:Symbola-11"
                       , "xft:Symbola-11"
-                      , "xft:Hack-7"]
+                      , "xft:Hack-7"
+                      , "xft:FontAwesome-9"]
   , border = NoBorder
   , alpha = pAlpha p
   , overrideRedirect = True
-- 
cgit v1.2.3