From 900ea8223fdc503ce8f1a379967fb59742f103ee Mon Sep 17 00:00:00 2001
From: Kubat <mael.martin31@gmail.com>
Date: Fri, 3 Apr 2020 16:26:38 +0200
Subject: [PATCH] Set path in xmonad
---
xmonad.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/xmonad.hs b/xmonad.hs
index 502db51..8698e03 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -4,6 +4,7 @@ import System.Posix.Env
import Data.Map as M
import Data.Char
+import Data.Maybe
import Graphics.X11.ExtraTypes.XF86
@@ -40,7 +41,6 @@ import XMonad.Prompt
import XMonad.Prompt.Window
import XMonad.Prompt.Layout
import XMonad.Prompt.ConfirmPrompt
-import XMonad.Prompt.Pass
import XMonad.Layout.LayoutModifier
import XMonad.Layout.NoBorders
@@ -54,6 +54,8 @@ main = do
putEnv "GTK_IM_MODULE=ibus"
putEnv "XMODIFIERS=@im=ibus"
putEnv "QT_IM_MODULES=ibus"
+ path <- getEnv "PATH"
+ (\path -> if (isJust path) then setEnv "PATH" ("/home/kubat/.local/bin/:" ++ (fromJust path)) True else print "No path defined") path
xmproc <- spawnPipe "/usr/bin/xmobar -x 0 /home/kubat/.xmonad/xmobar.hs"
xmonad $ docks $ ewmh $ withUrgencyHook LibNotifyUrgencyHook $ defaultConfig
{ modMask = mod4Mask
--
GitLab