diff options
Diffstat (limited to 'desktop/.xmonad')
-rw-r--r-- | desktop/.xmonad/xmonad.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/desktop/.xmonad/xmonad.hs b/desktop/.xmonad/xmonad.hs index 061e351..2bc7c07 100644 --- a/desktop/.xmonad/xmonad.hs +++ b/desktop/.xmonad/xmonad.hs @@ -24,7 +24,6 @@ import XMonad.Hooks.EwmhDesktops import Control.Applicative ((<$>), pure) import XMonad.Hooks.SetWMName import XMonad.Hooks.ManageHelpers -import Data.List.Split import Control.Monad cViolet = "#68217A" @@ -55,7 +54,7 @@ bar = statusBar dzenCommand myDzenPP toggleStrutsKey where toggleStrutsKey XConfig{modMask = modm} = (modm, xK_b) main = do - host <- (head . splitOn "." . nodeName) <$> getSystemID + host <- (takeWhile (/= '.') . nodeName) <$> getSystemID setEnv "HOST" host True config <- bar (myConfig host) xmonad config @@ -160,7 +159,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ -- , ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart") -- Lock screen - , ((modm .|. shiftMask, xK_z), spawn "mate-screensaver-command --lock") + , ((modm .|. shiftMask, xK_z), spawn "lock-screen.sh") ] ++ |