Xmonad binding to toggle workspace

ef53cbd71330c548cb3d8a452902b0ed4cd2f4ec
Alexis Sellier committed ago 1 parent 12a2e789
.xmonad/xmonad.hs +2 -0
6 6 
import XMonad.Layout.Spacing
7 7 
import XMonad.StackSet
8 8 
import XMonad.ManageHook
9 9 
import XMonad.Layout.NoBorders
10 10 
import XMonad.Hooks.EwmhDesktops
11 + 
import XMonad.Actions.CycleWS
11 12 

    

  
    

      12
      13
       
      
import System.Directory

    

  
    

      13
      14
       
      
import System.IO

    

  
    

      14
      15
       
      
import Text.Printf

    

  
    

      15
      16
       
      
import Data.Map (Map)

    

  
  
  

  
  

  

  
  
    

      72
      73
       
      
  where

    

  
    

      73
      74
       
      
    ks = Map.fromList

    

  
    

      74
      75
       
      
       [ ((modMask, xK_F12),                  safeSpawn "systemctl" ["suspend"])

    

  
    

      75
      76
       
      
       , ((modMask .|. shiftMask, xK_F12),    safeSpawn "systemctl" ["hibernate"])

    

  
    

      76
      77
       
      
       , ((modMask, xK_p),                    dmenu)

    

  
    

      
      78
      +
      
       , ((modMask, xK_Tab),                  toggleWS)

    

  
    

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

    

  
    

      78
      80
       
      
       ]

    

  
    

      79
      81
       
      
    dmenu :: X ()

    

  
    

      80
      82
       
      
    dmenu = safeSpawn

    

  
    

      81
      83
       
      
        "dmenu_run" [ "-fn", "Inconsolata-14,Monospace-12"