Fix ordering of keybindings

6577ec15fee57e924fd4527fdab014b2bcd84563
Alexis Sellier committed ago 1 parent a1f5f17a
.xmonad/xmonad.hs +1 -1
48 48 
toggleStrutsKey :: XConfig t -> (KeyMask, KeySym)
49 49 
toggleStrutsKey XConfig { XMonad.modMask = modMask } = (modMask, xK_b)
50 50 

    

  
    

      51
      51
       
      
myKeys :: FilePath -> XConfig Layout -> Map (KeyMask, KeySym) (X ())

    

  
    

      52
      52
       
      
myKeys home conf@XConfig { XMonad.modMask = modMask } =

    

  
    

      53
      
      -
      
    Map.union (XMonad.keys def conf) ks

    

  
    

      
      53
      +
      
    Map.union ks (XMonad.keys def conf)

    

  
    

      54
      54
       
      
  where

    

  
    

      55
      55
       
      
    ks = Map.fromList

    

  
    

      56
      56
       
      
       [ ((modMask, xK_F12),     safeSpawn "systemctl" ["suspend"])

    

  
    

      57
      57
       
      
       , ((noModMask, xK_Print), spawn $ printf "scrot -u -e 'mv $f %s/screenshots'" home)

    

  
    

      58
      58
       
      
       ]