Mic92/stockholm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tv xmonad: provide XMONAD_SPAWN_WORKSPACE

Browse Source
This commit is contained in:
tv 2015-10-26 11:27:02 +01:00
parent 4b22988392
commit e5ac86ee44
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tv/2configs/xserver/xmonad/Main.hs
View File

@ -8,7 +8,8 @@ module Main where
import Control.Exception import Control.Exception
import Text.Read (readEither) import Text.Read (readEither)
import XMonad import XMonad
import System.Environment (getArgs, getEnv) import System.Environment (getArgs, getEnv, getEnvironment)
import System.Posix.Process (executeFile)
import XMonad.Prompt (defaultXPConfig) import XMonad.Prompt (defaultXPConfig)
import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace
, removeEmptyWorkspace) , removeEmptyWorkspace)
@ -100,8 +101,11 @@ displaySomeException = displayException
spawnTermAt :: String -> X () spawnTermAt :: String -> X ()
--spawnTermAt _ = floatNext True >> spawn myTerm --spawnTermAt _ = floatNext True >> spawn myTerm
--spawnTermAt "ff" = floatNext True >> spawn myTerm --spawnTermAt "ff" = floatNext True >> spawn myTerm
spawnTermAt _ = spawn myTerm --spawnTermAt _ = spawn myTerm
spawnTermAt ws = do
env <- liftIO getEnvironment
let env' = ("XMONAD_SPAWN_WORKSPACE", ws) : env
xfork (executeFile "urxvtc" True [] (Just env')) >> return ()
myKeys :: XConfig Layout -> Map (KeyMask, KeySym) (X ()) myKeys :: XConfig Layout -> Map (KeyMask, KeySym) (X ())
myKeys conf = Map.fromList $ myKeys conf = Map.fromList $

1
tv/2configs/xserver/xmonad/xmonad.cabal
View File

@ -10,6 +10,7 @@ Executable xmonad
base, base,
containers, containers,
filepath, filepath,
unix,
X11, X11,
X11-xshape, X11-xshape,
xmonad, xmonad,