diff options
| author | Julia Jomantaite <julia.jomantaite@gmail.com> | 2012-05-01 14:14:27 +0200 |
|---|---|---|
| committer | Julia Jomantaite <julia.jomantaite@gmail.com> | 2012-05-01 14:14:27 +0200 |
| commit | 31ece6f1ba1746163dd873fb183dd090e745ec8b (patch) | |
| tree | 079884433e4559c0911945a42783ddaf80c163eb | |
| parent | 210e51e2f9a0758ea15977209e277dd690957f31 (diff) | |
| download | XMonadContrib-31ece6f1ba1746163dd873fb183dd090e745ec8b.tar.gz XMonadContrib-31ece6f1ba1746163dd873fb183dd090e745ec8b.tar.xz XMonadContrib-31ece6f1ba1746163dd873fb183dd090e745ec8b.zip | |
Use getXMonadDir to get the default xmonad directory.
Ignore-this: a075433761488b76a58a193aeb4e4a25
darcs-hash:20120501121427-418f8-4f45d50ad212741806d4919c8dde9067a8a74cbe.gz
| -rw-r--r-- | XMonad/Hooks/Script.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/XMonad/Hooks/Script.hs b/XMonad/Hooks/Script.hs index 8c6a486..82e4868 100644 --- a/XMonad/Hooks/Script.hs +++ b/XMonad/Hooks/Script.hs @@ -26,8 +26,6 @@ module XMonad.Hooks.Script ( -- import XMonad -import System.Directory - -- $usage -- -- This module allows you to run a centrally located script with the text @@ -47,7 +45,7 @@ import System.Directory -- | Execute a named script hook execScriptHook :: MonadIO m => String -> m () -execScriptHook hook = io $ do - home <- getHomeDirectory - let script = home ++ "/.xmonad/hooks " +execScriptHook hook = do + xmonadDir <- getXMonadDir + let script = xmonadDir ++ "/hooks " spawn (script ++ hook) |