diff options
Diffstat (limited to 'src/Rahm/Desktop/TabletMode.hs')
| -rw-r--r-- | src/Rahm/Desktop/TabletMode.hs | 7 |
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>" ) |