mirror of
https://github.com/ilyakooo0/nixpkgs.git
synced 2024-12-28 14:22:50 +03:00
5890215501
PR #1366 The previous windowManager.xmonad option only starts xmonad and doesn't make ghc available. This assumes that the user has GHC with access to the xmonad package in his PATH when using xmonad. Xmonad in Nix is now patched to accept the XMONAD_{GHC,XMESSAGE} environment variables which define the path to either ghc or xmessage. These are set automatically when using xmonad through windowManager.xmonad. My (or specific: @aristidb and my) changes make it possible to use Xmonad without adding GHC to any profile. This is useful if you want to add a different GHC to your profile. This commit introduces some options: - xmonad.haskellPackages: Controls which Haskell package set & GHC set is used to (re)build Xmonad - xmonad.extraPackages: Function returning a list of additional packages to make available to GHC when rebuilding Xmonad - xmonad.enableContribExtras: Boolean option to build xmonadContrib and xmonadExtras. Signed-off-by: Moritz Ulrich <moritz@tarn-vedra.de>
45 lines
2.0 KiB
Diff
45 lines
2.0 KiB
Diff
--- xmonad-0.11/XMonad/Core.hs 2013-01-01 01:31:47.000000000 +0000
|
|
+++ new-xmonad/XMonad/Core.hs 2013-12-23 17:36:40.862146910 +0000
|
|
@@ -47,6 +47,7 @@
|
|
import System.Process
|
|
import System.Directory
|
|
import System.Exit
|
|
+import System.Environment (lookupEnv)
|
|
import Graphics.X11.Xlib
|
|
import Graphics.X11.Xlib.Extras (Event)
|
|
import Data.Typeable
|
|
@@ -452,6 +453,7 @@
|
|
err = base ++ ".errors"
|
|
src = base ++ ".hs"
|
|
lib = dir </> "lib"
|
|
+ ghc <- fromMaybe "ghc" <$> liftIO (lookupEnv "XMONAD_GHC")
|
|
libTs <- mapM getModTime . Prelude.filter isSource =<< allFiles lib
|
|
srcT <- getModTime src
|
|
binT <- getModTime bin
|
|
@@ -460,7 +462,7 @@
|
|
-- temporarily disable SIGCHLD ignoring:
|
|
uninstallSignalHandlers
|
|
status <- bracket (openFile err WriteMode) hClose $ \h ->
|
|
- waitForProcess =<< runProcess "ghc" ["--make", "xmonad.hs", "-i", "-ilib", "-fforce-recomp", "-v0", "-o",binn] (Just dir)
|
|
+ waitForProcess =<< runProcess ghc ["--make", "xmonad.hs", "-i", "-ilib", "-fforce-recomp", "-v0", "-o",binn] (Just dir)
|
|
Nothing Nothing Nothing (Just h)
|
|
|
|
-- re-enable SIGCHLD:
|
|
@@ -469,6 +471,7 @@
|
|
-- now, if it fails, run xmessage to let the user know:
|
|
when (status /= ExitSuccess) $ do
|
|
ghcErr <- readFile err
|
|
+ xmessage <- fromMaybe "xmessage" <$> liftIO (lookupEnv "XMONAD_XMESSAGE")
|
|
let msg = unlines $
|
|
["Error detected while loading xmonad configuration file: " ++ src]
|
|
++ lines (if null ghcErr then show status else ghcErr)
|
|
@@ -476,7 +479,7 @@
|
|
-- nb, the ordering of printing, then forking, is crucial due to
|
|
-- lazy evaluation
|
|
hPutStrLn stderr msg
|
|
- forkProcess $ executeFile "xmessage" True ["-default", "okay", msg] Nothing
|
|
+ forkProcess $ executeFile xmessage True ["-default", "okay", msg] Nothing
|
|
return ()
|
|
return (status == ExitSuccess)
|
|
else return True
|