Fix xmonad config for 0.14

master
Lars Vierbergen 5 years ago
parent 6896dfa7ad
commit d0b0f6995d
  1. 9
      xmonad.hs

@ -1,5 +1,6 @@
import XMonad import XMonad
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
import XMonad.Actions.Minimize(minimizeWindow, withLastMinimized, maximizeWindowAndFocus)
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
@ -56,14 +57,14 @@ workspaceManageHook = composeAll [
,className =? "Screenlayout" --> doFloat ,className =? "Screenlayout" --> doFloat
] ]
xmobarAction :: String -- action xmobarActionWrapper :: String -- action
-> String -- output string -> String -- output string
-> String -> String
xmobarAction action = wrap t "</action>" xmobarActionWrapper action = wrap t "</action>"
where t = concat ["<action=`", action, "`>"] where t = concat ["<action=`", action, "`>"]
xmobarSwitchWs :: String -> String xmobarSwitchWs :: String -> String
xmobarSwitchWs wsName = xmobarAction action wsName xmobarSwitchWs wsName = xmobarActionWrapper action wsName
where action = concat ["xdotool key ISO_Level3_Shift+F", workspace] where action = concat ["xdotool key ISO_Level3_Shift+F", workspace]
workspace = takeWhile (/=':') wsName -- Takes all chars until ':' workspace = takeWhile (/=':') wsName -- Takes all chars until ':'
@ -102,7 +103,7 @@ main = do
, ((modMask baseConfig, xK_s), sshPrompt baseXPConfig) , ((modMask baseConfig, xK_s), sshPrompt baseXPConfig)
-- XMonad.Layout.Minimize -- XMonad.Layout.Minimize
, ((modMask baseConfig, xK_c), withFocused minimizeWindow) , ((modMask baseConfig, xK_c), withFocused minimizeWindow)
, ((modMask baseConfig, xK_g), sendMessage RestoreNextMinimizedWin) , ((modMask baseConfig, xK_g), withLastMinimized maximizeWindowAndFocus)
-- XMonad.Layout.BoringWindows -- XMonad.Layout.BoringWindows
, ((modMask baseConfig, xK_j), focusUp) , ((modMask baseConfig, xK_j), focusUp)
, ((modMask baseConfig, xK_k), focusDown) , ((modMask baseConfig, xK_k), focusDown)

Loading…
Cancel
Save