twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-09-01 11:53:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use getXMonadDir to get the default xmonad directory.

Browse Source
This commit is contained in:
Julia Jomantaite
2012-05-01 12:14:27 +00:00
parent f09a61f5f5
commit 3a740c4d5a
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Hooks/Script.hs
View File

@@ -26,8 +26,6 @@ module XMonad.Hooks.Script (
-- --
import XMonad import XMonad
import System.Directory
-- $usage -- $usage
-- --
-- This module allows you to run a centrally located script with the text -- 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 -- | Execute a named script hook
execScriptHook :: MonadIO m => String -> m () execScriptHook :: MonadIO m => String -> m ()
execScriptHook hook = io $ do execScriptHook hook = do
home <- getHomeDirectory xmonadDir <- getXMonadDir
let script = home ++ "/.xmonad/hooks " let script = xmonadDir ++ "/hooks "
spawn (script ++ hook) spawn (script ++ hook)