diff options
| author | Kjetil Orbekk <kj@orbekk.com> | 2021-12-02 21:12:43 -0500 |
|---|---|---|
| committer | Kjetil Orbekk <kj@orbekk.com> | 2021-12-02 21:12:43 -0500 |
| commit | a5859bf00d385f36d7d3800b5c98f8fb59fbbcf8 (patch) | |
| tree | 595676f8572a2e6066d10c8ac8713ff11b5b92b6 /desktop/.xmonad/xmonad.hs | |
| parent | f982ed33470f8595cc348d12b6f73df5d1d8ba93 (diff) | |
| parent | 5b61ad58ce2b09c298db7364cf16f2725575598b (diff) | |
Merge branch 'master' of dragon.orbekk.com:/storage/projects/dotfiles
Diffstat (limited to 'desktop/.xmonad/xmonad.hs')
| -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") ] ++ |