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/Main.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/Main.hs')
| -rw-r--r-- | src/Main.hs | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/Main.hs b/src/Main.hs index 9bdb76e..08f23a2 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -129,6 +129,9 @@ main = do className =? "gnuplot_qt" --> doCenterFloat, className =? "Yad" --> doCenterFloat, className =? "XVkbd" --> doBottomFloat, + className =? "Onboard" --> doIgnore, + className =? "onboard" --> doIgnore, + title =? "Keyboard" --> doBottomFloat, className =? "Xfce4-notifyd" --> doIgnore, className =? "popup-terminal" --> doShift "*" <> updatePopupTerminalHook, className =? "spotify" --> doShift "s", @@ -137,6 +140,7 @@ main = do title =? "Notes" --> doCenterFloat, title =? "xmessage" --> doCenterFloat, title =? "gxmessage" --> doCenterFloat, + className =? "Rofi" --> doCenterFloat, fmap (isInfixOf "wlroots") title --> doCenterFloat, title =? "Volume Control" --> doCenterFloat, className =? "mpv" --> doFloat, @@ -151,8 +155,8 @@ main = do map return (['w', 'r', 'j', 's', 't'] ++ ['0' .. '9']), handleEventHook = composeAll - [ screenCornerEventHook, - traceLogHook, + [ traceLogHook, + screenCornerEventHook, fullscreenEventHook, remapHook, dynamicTitle @@ -214,9 +218,9 @@ doBottomFloat = bottomRect :: W.RationalRect -> W.RationalRect bottomRect (W.RationalRect _ _ w h) = - let h' = min 1 (2 * h) - w' = min 1 (2 * w) - in W.RationalRect ((1 - w') / 2) (1 - h') w' h' + let h' = min 1 (4 * h) + w' = min 1 (4 * w) + in W.RationalRect ((1 - w') / 2) (1 - h') w' h' windowHooks :: WindowHook -> XConfig l -> XConfig l windowHooks (Query readerT) config = do |