diff options
| author | jao <jao@gnu.org> | 2025-02-11 04:40:34 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-02-11 11:58:06 +0000 |
| commit | 4beda5f4d1067117f2c2786727697f79cf986244 (patch) | |
| tree | d3f93ff60771e554648c05ae1a055d50b0b828a9 /src/Xmobar/Draw/Cairo.hs | |
| parent | 7390d759240785f660cbdb0ca55898732aa12c98 (diff) | |
| download | xmobar-4beda5f4d1067117f2c2786727697f79cf986244.tar.gz xmobar-4beda5f4d1067117f2c2786727697f79cf986244.tar.bz2 | |
prototype for onClick method in Exec
Diffstat (limited to 'src/Xmobar/Draw/Cairo.hs')
| -rw-r--r-- | src/Xmobar/Draw/Cairo.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Xmobar/Draw/Cairo.hs b/src/Xmobar/Draw/Cairo.hs index 2338b10..fcedb32 100644 --- a/src/Xmobar/Draw/Cairo.hs +++ b/src/Xmobar/Draw/Cairo.hs @@ -2,7 +2,7 @@ ------------------------------------------------------------------------------ -- | -- Module: Xmobar.X11.Cairo --- Copyright: (c) 2022, 2023, 2024 Jose Antonio Ortega Ruiz +-- Copyright: (c) 2022, 2023, 2024, 2025 Jose Antonio Ortega Ruiz -- License: BSD3-style (see LICENSE) -- -- Maintainer: jao@gnu.org @@ -124,7 +124,9 @@ drawSegment :: T.DrawContext -> Surface -> Double -> Acc -> Renderinfo -> IO Acc drawSegment dctx surface maxoff (off, acts, boxs) (segment, render, lwidth) = do let end = min maxoff (off + lwidth) (_, info, _, a) = segment - acts' = case a of Just as -> (as, off, end):acts; _ -> acts + acts' = case a of + Just as -> (as, off, end):acts + _ -> ([], off, end):acts bs = C.tBoxes info boxs' = if null bs then boxs else (off, end, bs):boxs when (end > off) $ do |