trey/XMonad
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove win+number keys, initial branch commit

Browse Source
This commit is contained in:
Trey Blancher 2022-08-06 17:13:27 -04:00
parent 5ba5b728a4
commit cb257fe6be
1 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
xmonad.hs
View File

@ -1,6 +1,6 @@
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable #-}
--{-# OPTIONS_GHC -Wno-deprecations #-} {-# OPTIONS_GHC -Wno-deprecations #-}
import XMonad import XMonad
import XMonad.Config.Desktop import XMonad.Config.Desktop
-- Actions -- Actions
@ -281,31 +281,30 @@ launcher = makeLauncher "-x" "eval" "\"exec " "\""
main = do main = do
sc <- IS.countScreens sc <- IS.countScreens
dzenTopBar <- spawnPipe (getTopBar sc) dzenTopBar <- spawnPipe (getTopBar sc)
dzenBarbicanBar <- spawnPipe (getBarbicanBar sc) dzenBarbicanBar <- spawnPipe (getBarbicanBar sc)
dzenDeltachunkBar <- spawnPipe (getDeltachunkBar sc) dzenDeltachunkBar <- spawnPipe (getDeltachunkBar sc)
dzenFerrumBar <- spawnPipe (getFerrumBar sc) dzenFerrumBar <- spawnPipe (getFerrumBar sc)
-- dzenGammachunkBar <- spawnPipe (getGammachunkBar sc) dzenOsmiumBar <- spawnPipe (getOsmiumBar sc)
dzenOsmiumBar <- spawnPipe (getOsmiumBar sc) dzenSodiumBar <- spawnPipe (getSodiumBar sc)
dzenSodiumBar <- spawnPipe (getSodiumBar sc) dzenTennessineBar <- spawnPipe (getTennessineBar sc)
dzenTennessineBar <- spawnPipe (getTennessineBar sc) dzenBlancherBar <- spawnPipe (getBlancherBar sc)
dzenBlancherBar <- spawnPipe (getBlancherBar sc) xmonad $ docks $ ewmh $ desktopConfig {
xmonad $ docks $ ewmh $ desktopConfig { workspaces = ["shell","qb","pindrop","kofc","VM"]
workspaces = ["shell","qb","pindrop","kofc","VM"] , terminal = myTerminal
, terminal = myTerminal , focusFollowsMouse = True
, focusFollowsMouse = True , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig
, manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig , handleEventHook = handleEventHook desktopConfig
--, handleEventHook = docksEventHook <+> handleEventHook desktopConfig , layoutHook = avoidStruts $ gaps [(D,108)] $ layoutH
, handleEventHook = handleEventHook desktopConfig , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0)
, layoutHook = avoidStruts $ gaps [(D,108)] $ layoutH , borderWidth = 1
, logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0) , normalBorderColor = "#282828"
, borderWidth = 1 , focusedBorderColor = "#ebdbb2"
, normalBorderColor = "#282828" , modMask = winKey
, focusedBorderColor = "#ebdbb2" , startupHook = myStartup
, modMask = winKey }
, startupHook = myStartup `additionalKeys` myKeys
} `additionalKeys` myKeys
myStartup :: X () myStartup :: X ()
@ -512,8 +511,8 @@ myKeys = [
--ifWindows (className =? "Iceweasel") (mapM_ focus) (spawnHere "iceweasel")) --ifWindows (className =? "Iceweasel") (mapM_ focus) (spawnHere "iceweasel"))
, ((winKey .|. controlMask, xK_l), sendMessage Expand) , ((winKey .|. controlMask, xK_l), sendMessage Expand)
--, ((winKey , xK_1), windows (viewOnScreen 0 "shell")) --, ((winKey , xK_1), windows (viewOnScreen 0 "shell"))
, ((winKey , xK_1), ifWindows (className =? "Alacritty") (mapM_ focus) (spawnHere myTerminal)) --, ((winKey , xK_1), ifWindows (className =? "Alacritty") (mapM_ focus) (spawnHere myTerminal))
, ((winKey , xK_2), windows (viewOnScreen 0 "chromium")) --, ((winKey , xK_2), windows (viewOnScreen 0 "chromium"))
, ((winKey , xK_a), do , ((winKey , xK_a), do
windows (viewOnScreen 1 "pindrop") windows (viewOnScreen 1 "pindrop")
--ifWindows (className =? "Pidgin") (mapM_ focus) (spawnHere "pidgin")) --ifWindows (className =? "Pidgin") (mapM_ focus) (spawnHere "pidgin"))
@ -613,6 +612,7 @@ myKeys = [
-- | (key, sc) <- zip [xK_w, xK_r] [1,0] -- For w,r keys in backwards order -- | (key, sc) <- zip [xK_w, xK_r] [1,0] -- For w,r keys in backwards order
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
remKeys = [(winKey, n) | n <- [xK_1 .. xK_9]]
--dXPConfig = defaultXPConfig { --dXPConfig = defaultXPConfig {
dXPConfig = def { dXPConfig = def {