inkletblot/config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

updates re: xmonad version update on arch.

Browse Source
This commit is contained in:
Solomon Laing 2022-07-11 18:46:19 +09:30
parent 2de59cab2e
commit 59295458e6
1 changed files with 14 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
.xmonad/xmonad.hs
View File

@ -30,9 +30,9 @@ import qualified Data.Map as M
-- Hooks
import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksEventHook, manageDocks, ToggleStruts(..))
import XMonad.Hooks.ManageDocks (docks, avoidStruts, manageDocks, ToggleStruts(..))
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat, doCenterFloat)
import XMonad.Hooks.EwmhDesktops (ewmh, fullscreenEventHook)
import XMonad.Hooks.EwmhDesktops (ewmh, ewmhFullscreen)
import XMonad.Hooks.ServerMode
import XMonad.Hooks.SetWMName
import XMonad.Hooks.WorkspaceHistory
@ -48,7 +48,6 @@ import XMonad.Layout.ThreeColumns
-- Layouts modifiers
import XMonad.Layout.LayoutModifier
import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit)
import XMonad.Layout.Magnifier
import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??))
import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS))
import XMonad.Layout.NoBorders
@ -211,7 +210,7 @@ spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
}
myAppGrid = [ ("Runelite", "runelite")
, ("ProtonVPN", "protonvpn")
, ("ProtonVPN", "protonvpn")
, ("Thunar", "thunar")
, ("Calendar", "gnome-calendar")
, ("Firefox", "firefox")
@ -320,16 +319,16 @@ myStandardEZKeys =
, ("M-v", sendMessage (IncMasterN (-1))) -- decrement windows in master
, ("M-<F11>", sendMessage ToggleStruts) -- toggle bar
-- NOTE Scratchpads
-- NOTE Toggle show/hide these programs. They run on a hidden workspace.
-- NOTE When you toggle them to show, it brings them to your current workspace.
-- NOTE Toggle them to hide and it sends them back to hidden workspace (NSP).
-- NOTE Scratchpads
-- NOTE Toggle show/hide these programs. They run on a hidden workspace.
-- NOTE When you toggle them to show, it brings them to your current workspace.
-- NOTE Toggle them to hide and it sends them back to hidden workspace (NSP).
, ("M-s t", namedScratchpadAction myScratchPads "terminal")
, ("M-s m", namedScratchpadAction myScratchPads "plexamp")
, ("M-s c", namedScratchpadAction myScratchPads "calculator")
, ("M-s e", namedScratchpadAction myScratchPads "matrix")
-- NOTE Grid Select (CTR-g followed by a key)
-- NOTE Grid Select (CTR-g followed by a key)
, ("C-g g", spawnSelected' myAppGrid) -- grid select favorite apps
, ("C-g t", goToSelected $ mygridConfig myColorizer) -- goto selected window
, ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window
@ -374,7 +373,7 @@ myStandardEZKeys =
, ("M-S-/", spawn "xmonad-keys-help") -- show keybinds
, ("M-<Print>", spawn "maimpick") -- take full screenshot
]
-- The following lines are needed for named scratchpads.
-- The following lines are needed for named scratchpads.
where nonNSP = WSIs (return (\ws -> W.tag ws /= "NSP"))
nonEmptyNonNSP = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "NSP"))
@ -429,11 +428,6 @@ tall = renamed [Replace "tall"]
$ mySpacing 8
-- $ Mirror
$ ResizableTall 1 (3/100) (1/2) []
magnify = renamed [Replace "magnify"]
$ magnifier
$ limitWindows 12
$ mySpacing 8
$ ResizableTall 1 (3/100) (1/2) []
monocle = renamed [Replace "monocle"]
$ limitWindows 20 Full
floats = renamed [Replace "floats"]
@ -495,7 +489,6 @@ myLayout = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats
-- ||| spirals
-- ||| grid
-- ||| floats
-- ||| magnify
-- ||| threeRow
-- ||| threeCol
@ -519,11 +512,11 @@ myManageHook = composeAll
, className =? "guake" --> doIgnore
, className =? "barrier" --> doFloat
, className =? "net-runelite-client-RuneLite" --> doFloat
, className =? "processing-app-Base" --> doFloat
, className =? "processing-app-Base" --> doFloat
, className =? "Yad" --> doCenterFloat
, className =? "net-runelite-launcher-Launcher" --> doIgnore
, className =? "steam_app_221380" --> doIgnore
, className =? "zenity" --> doIgnore
, className =? "zenity" --> doIgnore
, resource =? "desktop_window" --> doIgnore
, (className =? "firefox" <&&> resource =? "Dialog")--> doFloat -- Float Firefox Dialog
, resource =? "kdesktop" --> doIgnore
@ -531,7 +524,7 @@ myManageHook = composeAll
, className =? "Steam" --> doShift ( myWorkspaces !! (7-1) )
, className =? "discord" --> doShift ( myWorkspaces !! (8-1) )
, className =? "telegram-desktop" --> doShift ( myWorkspaces !! (8-1) )
, className =? "slack" --> doShift ( myWorkspaces !! (8-1) )
, className =? "slack" --> doShift ( myWorkspaces !! (8-1) )
, className =? "Pavucontrol" --> doShift ( myWorkspaces !! (5-1) )]
------------------------------------------------------------------------
-- Event handling
@ -624,7 +617,7 @@ mainDesktop = do
-- hooks, layouts
layoutHook = showWName' myShowWNameTheme myLayout,
manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks,
handleEventHook = myEventHook <+> fullscreenEventHook,
handleEventHook = myEventHook,
-- logHook = myLogHook,
logHook = myLogHook <+> dynamicLogWithPP xmobarPP
{ ppOutput = \x -> hPutStrLn xmproc0 x
@ -671,7 +664,7 @@ xmonad $ ewmh $ docks def
-- hooks, layouts
layoutHook = showWName' myShowWNameTheme myLayout,
manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks,
handleEventHook = myEventHook <+> fullscreenEventHook,
handleEventHook = myEventHook,
-- logHook = myLogHook,
logHook = myLogHook <+> dynamicLogWithPP xmobarPP
{ ppOutput = \x -> hPutStrLn xmproc x