From d896b1a80f3bc5dc487971b1230cd2b4185b9404 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 23 Dec 2022 23:20:55 +0000
Subject: Fix for #663: honour explicit bg/fg colors for icons

---
 src/Xmobar/X11/Draw.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/Xmobar/X11')

diff --git a/src/Xmobar/X11/Draw.hs b/src/Xmobar/X11/Draw.hs
index c0a8964..a1ec901 100644
--- a/src/Xmobar/X11/Draw.hs
+++ b/src/Xmobar/X11/Draw.hs
@@ -37,11 +37,8 @@ import qualified Xmobar.X11.XRender as XRender
 #endif
 
 drawXBitmap :: T.XConf -> X11.GC -> X11.Pixmap -> D.IconDrawer
-drawXBitmap xconf gc p h v path = do
+drawXBitmap xconf gc p h v path fc bc = do
   let disp = T.display xconf
-      conf = T.config xconf
-      fc = C.fgColor conf
-      bc = C.bgColor conf
   case M.lookup path (T.iconCache xconf) of
     Just bm -> liftIO $ B.drawBitmap disp p gc fc bc (round h) (round v) bm
     Nothing -> return ()
-- 
cgit v1.2.3