diff options
| author | Josh Rahm <rahm@josher.dev> | 2026-04-27 14:35:18 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@josher.dev> | 2026-04-27 14:35:18 -0600 |
| commit | 4640ebf48af5ca56e162016b43bbd20f689dd5da (patch) | |
| tree | 166b5f05a7d71ac5459792d51b8ac5c36e968ea7 /src/Rahm/Desktop/WorkspaceWheel.hs | |
| parent | f9c3420cf571a66f8b274b0287f284522bb0feb4 (diff) | |
| download | rde-4640ebf48af5ca56e162016b43bbd20f689dd5da.tar.gz rde-4640ebf48af5ca56e162016b43bbd20f689dd5da.tar.bz2 rde-4640ebf48af5ca56e162016b43bbd20f689dd5da.zip | |
[feat] better use of rdectl in xmobar.
Diffstat (limited to 'src/Rahm/Desktop/WorkspaceWheel.hs')
| -rw-r--r-- | src/Rahm/Desktop/WorkspaceWheel.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Rahm/Desktop/WorkspaceWheel.hs b/src/Rahm/Desktop/WorkspaceWheel.hs index a89dc6a..b5cba52 100644 --- a/src/Rahm/Desktop/WorkspaceWheel.hs +++ b/src/Rahm/Desktop/WorkspaceWheel.hs @@ -31,6 +31,7 @@ import Text.Printf (printf) import XMonad import qualified XMonad.Operations as X import XMonad.Util.Run (spawnPipe) +import Rahm.Desktop.Logger (logs, LogLevel (Debug)) dzenSize :: (Integral a) => a dzenSize = 100 @@ -117,6 +118,8 @@ displayWorkspaceWheelAtPoint wheelType px py = do let stop = return () let retry = recur ring + logs Debug "Workspace Wheel Event: %s" (show evt) + case evt of Nothing -> return stop -- timeout Just (ButtonPress _ b) |