Permalink
Browse files

better rotate

  • Loading branch information...
1 parent f07fab8 commit a6f256bb5a3ce707062229980d4269156c064b4b @escaped committed Mar 21, 2011
Showing with 6 additions and 3 deletions.
  1. +6 −3 xmonad.hs
View
9 xmonad.hs
@@ -84,9 +84,12 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
, ((modMask , xK_q ), restart "xmonad" True)
-- rotate screen
- , ((modMask , xK_a ), spawn "xrandr --output LVDS1 --rotate left" )
- , ((modMask , xK_s ), spawn "xrandr --output LVDS1 --rotate normal" )
- , ((modMask , xK_d ), spawn "xrandr --output LVDS1 --rotate right" )
+ , ((modMask , xK_r ), SM.submap . M.fromList $
+ [ ((0, xK_l), spawn "xrandr --output LVDS1 --rotate left" )
+ , ((0, xK_n), spawn "xrandr --output LVDS1 --rotate normal" )
+ , ((0, xK_r), spawn "xrandr --output LVDS1 --rotate right")
+ ]
+ )
-- launcher
, ((modMask , xK_p), shellPrompt myXPConfig)

0 comments on commit a6f256b

Please sign in to comment.