[feat] better use of rdectl in xmobar.

1 files changed, 6 insertions, 1 deletions

diff --git a/src/Rahm/Desktop/TabletMode.hs b/src/Rahm/Desktop/TabletMode.hs
index e0f490a..b13e919 100644
--- a/src/Rahm/Desktop/TabletMode.hs
+++ b/src/Rahm/Desktop/TabletMode.hs
@@ -30,6 +30,7 @@ module Rahm.Desktop.TabletMode
     RotationAngle (..),
     tabletModeXMobarString,
     tabletModeCommandHandler,
+    syntheticKeyStartDrag,
   )
 where
 
@@ -64,6 +65,9 @@ import XMonad
 import qualified XMonad.Util.ExtensibleState as XS
 import XMonad.Util.Run (runProcessWithInput)
 
+syntheticKeyStartDrag :: KeySym
+syntheticKeyStartDrag = 0x1100000000000011
+
 -- | Rotation angle for the display
 data RotationAngle
   = -- | Normal orientation (0°)
@@ -257,7 +261,8 @@ tabletModeXMobarString = do
                   "<fc=#f0f0a0><action=`sleep 0.2 && rdectl wheel`> \11096 </action></fc>",
                   "<fc=#f08080><action=`rdectl shift . _`> ✗ </action></fc>",
                   "<fc=#808080><action=`rofi -monitor -4 -display-run Execute -show run -normal-window`>\61728 </action></fc>",
-                  "<fc=#80f080><action=`rdectl next-rotation`> \58183 </action></fc>"
+                  "<fc=#80f080><action=`rdectl next-rotation`> \58183 </action></fc>",
+                  "<fc=#80f080><action=`sleep 0.2 && rdectl keysym " ++ show syntheticKeyStartDrag ++ "`> \983486 </action></fc>"
                 ]
             else "<action=`rdectl tablet-mode on`><fc=#66cc66> \61705 </fc></action>"
         )