From 6aa4dfde3e04197b4b74a0c7359c51b69727775d Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sat, 2 Jul 2022 18:24:21 -0400
Subject: [PATCH] ENH remove dead code

---
 bin/xmobar.hs | 24 ------------------------
 1 file changed, 24 deletions(-)

diff --git a/bin/xmobar.hs b/bin/xmobar.hs
index 585b431..604b410 100644
--- a/bin/xmobar.hs
+++ b/bin/xmobar.hs
@@ -363,7 +363,6 @@ data BarMetaFont = BarMetaFont
   , bfFontData :: T.FontData
   }
 
--- font data ~ (offset, fontification string)
 fontString :: (BarFont -> BarMetaFont) -> BarFont -> String
 fontString f bf = b d
   where
@@ -379,15 +378,6 @@ firstFont = minBound
 restFonts :: [BarFont]
 restFonts = enumFrom $ succ minBound
 
--- allFonts :: [BarFont]
--- allFonts = enumFrom minBound
-
--- allFontOffsets :: [Int]
--- allFontOffsets = fontOffset <$> allFonts
-
--- allFontStrings :: [String]
--- allFontStrings = fontString <$> allFonts
-
 barFont :: Always T.FontBuilder
 barFont = T.fontFeature "XMobar Text Font" "DejaVu Sans Mono"
 
@@ -412,20 +402,6 @@ fontData barBuilder nerdBuilder bf = case bf of
     nerd o s = BarMetaFont o nerdBuilder
       $ T.defFontData { T.pixelsize = Just s, T.size = Nothing }
 
--- barFont :: Always T.FontBuilder
--- barFont = T.fmtFontXFT T.font
---   { T.family = "DejaVu Sans Mono"
---   , T.size = Just 11
---   , T.weight = Just T.Bold
---   }
-
--- nerdFont :: Int -> String
--- nerdFont size = T.fmtFontXFT T.font
---   { T.family = "Symbols Nerd Font"
---   , T.size = Nothing
---   , T.pixelsize = Just size
---   }
-
 fontifyText :: BarFont -> String -> String
 fontifyText fnt txt = concat ["<fn=", show $ fromEnum fnt, ">", txt, "</fn>"]