blob: 3b88858de9aad4a49b3e4a2096eb57ab920c5ff8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
-----------------------------------------------------------------------------
-- |
-- Module : XMonadContrib.RunInXTerm
-- Copyright : (C) 2007 Andrea Rossato
-- License : BSD3
--
-- Maintainer : andrea.rossato@unibz.it
-- Stability : unstable
-- Portability : unportable
--
-- A simple module to launch commands in an X terminal
-- from XMonad
--
-----------------------------------------------------------------------------
module XMonadContrib.RunInXTerm (
-- * Usage
-- $usage
runInXTerm
) where
import XMonad
import System.Environment
-- $usage
-- For an example usage see SshPrompt
runInXTerm :: String -> X ()
runInXTerm com = do
c <- io $ catch (getEnv "XTERMCMD") (const $ return "xterm")
spawn ("exec " ++ c ++ " -e " ++ com)
|
