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

Loading…
Cancel
Save