diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-19 22:50:11 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-19 22:50:11 +0100 |
commit | dc5c8ff7f368eb9e378cde7caebf0ea55632cf1d (patch) | |
tree | 359c1ba8e0f8dc9aa00150a6bca02fa198c69340 /XMonad/Core.hs | |
parent | 5e90aa32654513e220760962c9d5add4905fd115 (diff) | |
download | xmonad-dc5c8ff7f368eb9e378cde7caebf0ea55632cf1d.tar.gz xmonad-dc5c8ff7f368eb9e378cde7caebf0ea55632cf1d.tar.xz xmonad-dc5c8ff7f368eb9e378cde7caebf0ea55632cf1d.zip |
Remove getProgName capability from restart, we don't use it anymore
darcs-hash:20071219215011-a5988-f4c17d2d3f3a7a4ea6c9e5e8fe73b1c800cbb9d5.gz
Diffstat (limited to 'XMonad/Core.hs')
-rw-r--r-- | XMonad/Core.hs | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index d2195d6..ee16f9c 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -43,7 +43,6 @@ import System.Posix.Process (executeFile, forkProcess, getProcessStatus, createS import System.Process import System.Directory import System.Exit -import System.Environment import Graphics.X11.Xlib import Graphics.X11.Xlib.Extras (Event) import Data.Typeable @@ -321,19 +320,14 @@ runOnWorkspaces job =do $ current ws : visible ws modify $ \s -> s { windowset = ws { current = c, visible = v, hidden = h } } --- | Restart xmonad via exec(). +-- | @restart name resume@. Attempt to restart xmonad by executing the program +-- @name@. If @resume@ is 'True', restart with the current window state. +-- When executing another window manager, @resume@ should be 'False'. -- --- If the first parameter is 'Just name', restart will attempt to execute the --- program corresponding to 'name'. Otherwise, xmonad will attempt to execute --- the name of the current program. --- --- When the second parameter is 'True', xmonad will attempt to resume with the --- current window state. -restart :: Maybe String -> Bool -> X () -restart mprog resume = do +restart :: String -> Bool -> X () +restart prog resume = do broadcastMessage ReleaseResources io . flush =<< asks display - prog <- maybe (io getProgName) return mprog args <- if resume then gets (("--resume":) . return . showWs . windowset) else return [] catchIO (executeFile prog True args Nothing) where showWs = show . mapLayout show |