diff options
-rw-r--r-- | Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -127,6 +127,10 @@ handle e = trace (eventName e) -- return () -- --------------------------------------------------------------------- -- Managing windows +-- | spawn. Launch an external application +spawn :: String -> W () +spawn = io_ . runCommand + -- -- | refresh. Refresh the currently focused window. Resizes to full -- screen and raises the window. @@ -178,10 +182,6 @@ unmanage w = do focus :: Int -> W () focus n = withWindows (rotate n) --- | spawn. Launch an external application -spawn :: String -> W () -spawn = io_ . runCommand - -- | Kill the currently focused client kill :: W () kill = do |