twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-15 12:13:57 -07:00
Code Issues Packages Projects Releases Wiki Activity

Commands: added recent layout commands

Browse Source
This commit is contained in:
Andrea Rossato
2007-09-30 21:32:25 +00:00
parent 3ed5f5cde0
commit 7eea993964
1 changed files with 20 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Commands.hs
View File

@@ -29,7 +29,7 @@ import XMonad
import Operations
import StackSet hiding (workspaces)
import XMonadContrib.Dmenu (dmenu)
import {-# SOURCE #-} Config (workspaces)
import {-# SOURCE #-} Config (workspaces,possibleLayouts)
import qualified Data.Map as M
import System.Exit
@@ -79,9 +79,11 @@ defaultCommands :: [(String, X ())]
defaultCommands = workspaceCommands ++ screenCommands
++ [ ("shrink" , sendMessage Shrink )
, ("expand" , sendMessage Expand )
, ("restart-wm", restart Nothing True)
, ("restart-wm-no-resume", restart Nothing False)
, ("layout", sendMessage NextLayout)
, ("next-layout" , sendMessage NextLayout )
, ("previous-layout" , sendMessage PrevLayout )
, ("default-layout" , setLayout (head possibleLayouts) )
, ("restart-wm" , sr >> restart Nothing True )
, ("restart-wm-no-resume", sr >> restart Nothing False )
, ("xterm" , spawn "xterm" )
, ("run" , spawn "exe=`dmenu_path | dmenu -b` && exec $exe" )
, ("kill" , kill )
@@ -94,6 +96,7 @@ defaultCommands = workspaceCommands ++ screenCommands
, ("sink" , withFocused $ windows . sink )
, ("quit-wm" , io $ exitWith ExitSuccess )
]
where sr = broadcastMessage ReleaseResources
runCommand :: [(String, X ())] -> X ()
runCommand cl = do