summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-15 12:03:54 +0100
committerjao <jao@gnu.org>2022-09-15 12:03:54 +0100
commit895704ce7e093c84d7aec806bac98a51c0ab3a01 (patch)
tree1de8ba378f2a5c41f3492593547a2112f066027b /src/Xmobar/X11
parent5235198be8d7264f23926bef23ccedd394d11510 (diff)
downloadxmobar-895704ce7e093c84d7aec806bac98a51c0ab3a01.tar.gz
xmobar-895704ce7e093c84d7aec806bac98a51c0ab3a01.tar.bz2
linting
Diffstat (limited to 'src/Xmobar/X11')
-rw-r--r--src/Xmobar/X11/CairoDraw.hs13
1 files changed, 3 insertions, 10 deletions
diff --git a/src/Xmobar/X11/CairoDraw.hs b/src/Xmobar/X11/CairoDraw.hs
index eb27e74..e93e5ae 100644
--- a/src/Xmobar/X11/CairoDraw.hs
+++ b/src/Xmobar/X11/CairoDraw.hs
@@ -67,13 +67,6 @@ readColourName str =
[(c,d)] -> (c, read ("0x" ++ d))
_ -> (CNames.white, 1.0)
-renderBackground :: Display -> Pixmap -> Config -> Dimension -> Dimension -> IO ()
-renderBackground d p conf w h = do
- let c = bgColor conf
- (_, a) = readColourName c
- a' = min (round $ 255 * a) (alpha conf)
- drawBackground d p c a' (Rectangle 0 0 w h)
-
drawInPixmap :: GC -> Pixmap -> [[Segment]] -> X Actions
drawInPixmap gc p s = do
xconf <- ask
@@ -85,7 +78,7 @@ drawInPixmap gc p s = do
conf = config xconf
dc = DC (drawXBitmap xconf gc p) (lookupXBitmap xconf) conf dw dh s
render = drawSegments dc
- liftIO $ renderBackground disp p conf w h
+ liftIO $ drawBackground disp p (bgColor conf) (alpha conf) (Rectangle 0 0 w h)
liftIO $ withXlibSurface disp p vis (fromIntegral w) (fromIntegral h) render
lookupXBitmap :: XConf -> String -> Maybe B.Bitmap
@@ -125,7 +118,7 @@ withRenderinfo ctx dctx seg@(Text _, inf, idx, a) = do
C.renderWith s $ C.moveTo off voff >> P.showLayout lyt
return ((Text mk, inf, idx, a), slyt, wd)
-withRenderinfo _ _ seg@(Hspace w, _, _, _) = do
+withRenderinfo _ _ seg@(Hspace w, _, _, _) =
return (seg, \_ _ _ -> return (), fromIntegral w)
withRenderinfo _ dctx seg@(Icon p, _, _, _) = do
@@ -232,7 +225,7 @@ drawBoxes' :: DrawContext -> Surface -> (Double, Double, [Box]) -> IO ()
drawBoxes' dctx surf (from, to, bs) = mapM_ (drawBox dctx surf from to) bs
drawBoxes :: DrawContext -> Surface -> Boxes -> IO ()
-drawBoxes dctx surf ((from, to, b):(from', to', b'):bxs) = do
+drawBoxes dctx surf ((from, to, b):(from', to', b'):bxs) =
if to < from'
then do drawBoxes' dctx surf (from, to, b)
drawBoxes dctx surf $ (from', to', b'):bxs