From 4640ebf48af5ca56e162016b43bbd20f689dd5da Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@josher.dev>
Date: Mon, 27 Apr 2026 14:35:18 -0600
Subject: [feat] better use of rdectl in xmobar.

---
 src/Main.hs | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'src/Main.hs')

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
-- 
cgit