Removed a bunch of deprecated stuff
This commit is contained in:
parent
b9234b82e0
commit
5ba5b728a4
10
xmonad.hs
10
xmonad.hs
@ -1,6 +1,6 @@
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# OPTIONS_GHC -Wno-deprecations #-}
|
||||
--{-# OPTIONS_GHC -Wno-deprecations #-}
|
||||
import XMonad
|
||||
import XMonad.Config.Desktop
|
||||
-- Actions
|
||||
@ -296,14 +296,15 @@ main = do
|
||||
, terminal = myTerminal
|
||||
, focusFollowsMouse = True
|
||||
, manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig
|
||||
, handleEventHook = docksEventHook <+> handleEventHook desktopConfig
|
||||
--, handleEventHook = docksEventHook <+> handleEventHook desktopConfig
|
||||
, handleEventHook = handleEventHook desktopConfig
|
||||
, layoutHook = avoidStruts $ gaps [(D,108)] $ layoutH
|
||||
, logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0)
|
||||
, borderWidth = 1
|
||||
, normalBorderColor = "#282828"
|
||||
, focusedBorderColor = "#ebdbb2"
|
||||
, modMask = winKey
|
||||
, startupHook = docksStartupHook <+> myStartup
|
||||
, startupHook = myStartup
|
||||
} `additionalKeys` myKeys
|
||||
|
||||
|
||||
@ -423,7 +424,8 @@ myKeys = [
|
||||
-- ifWindows (title =? "osmium:timetracker") (mapM_ focus) (spawnHere "urxvtc -cd ~/timetracker -e 'tmux attach -t timetracker || tmux -2 new-session -s timetracker'"))
|
||||
--, ((lAlt , xK_v), spawnHere "xfce4-popup-clipman")
|
||||
--, ((winKey , xK_x), windowPromptGoto dXPConfig)
|
||||
, ((winKey .|. shiftMask, xK_x), windowPromptBring dXPConfig)
|
||||
--, ((winKey .|. shiftMask, xK_x), windowPromptBring dXPConfig)
|
||||
--, ((winKey .|. shiftMask, xK_x), windowPrompt def Bring dXPConfig)
|
||||
--, ((winKey .|. shiftMask, xK_Return), windows W.swapMaster)
|
||||
--, ((winKey .|. shiftMask, xK_Return), spawnHere myTerminal)
|
||||
, ((winKey , xK_b), do
|
||||
|
Loading…
Reference in New Issue
Block a user