Remove unnded config files.
This commit is contained in:
parent
312a5ee970
commit
194a8acf09
@ -1,305 +0,0 @@
|
|||||||
-- Base
|
|
||||||
import XMonad
|
|
||||||
import System.Exit
|
|
||||||
import qualified XMonad.StackSet as W
|
|
||||||
|
|
||||||
-- Actions
|
|
||||||
import XMonad.Actions.CycleWS (toggleWS')
|
|
||||||
import XMonad.Actions.MouseResize
|
|
||||||
import XMonad.Actions.SinkAll (sinkAll)
|
|
||||||
|
|
||||||
-- Data
|
|
||||||
import qualified Data.Map as M
|
|
||||||
import Data.Maybe (isJust)
|
|
||||||
|
|
||||||
-- Hooks
|
|
||||||
import XMonad.Hooks.ManageHelpers
|
|
||||||
import XMonad.Hooks.StatusBar
|
|
||||||
import XMonad.Hooks.StatusBar.PP
|
|
||||||
import XMonad.Hooks.EwmhDesktops
|
|
||||||
import XMonad.Hooks.SetWMName
|
|
||||||
import XMonad.Hooks.InsertPosition
|
|
||||||
|
|
||||||
-- Layout modifiers
|
|
||||||
import XMonad.Layout.Renamed
|
|
||||||
import XMonad.Layout.Spacing
|
|
||||||
import XMonad.Layout.NoBorders
|
|
||||||
import XMonad.Layout.SimplestFloat
|
|
||||||
import XMonad.Layout.LayoutModifier
|
|
||||||
import XMonad.Layout.ResizableTile
|
|
||||||
import XMonad.Layout.PerWorkspace
|
|
||||||
import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
|
|
||||||
|
|
||||||
-- Utils
|
|
||||||
import XMonad.Util.Loggers
|
|
||||||
import XMonad.Util.NamedScratchpad
|
|
||||||
import XMonad.Util.SpawnOnce
|
|
||||||
import XMonad.Util.EZConfig
|
|
||||||
import XMonad.Util.Hacks
|
|
||||||
|
|
||||||
-- main loop
|
|
||||||
main :: IO ()
|
|
||||||
main = xmonad
|
|
||||||
. ewmhFullscreen
|
|
||||||
. ewmh
|
|
||||||
. withEasySB (statusBarProp "xmobar ~/.config/xmobar/xmobarrc" (pure myXmobarPP)) toggleStrutsKey
|
|
||||||
$ myConfig
|
|
||||||
where
|
|
||||||
toggleStrutsKey :: XConfig Layout -> (KeyMask, KeySym)
|
|
||||||
toggleStrutsKey XConfig{ modMask = m } = (m, xK_F11)
|
|
||||||
|
|
||||||
-- My config
|
|
||||||
myConfig = def
|
|
||||||
{ modMask = myModMask
|
|
||||||
, layoutHook = myLayoutHook
|
|
||||||
, manageHook = insertPosition End Newer <+> myManageHook
|
|
||||||
, handleEventHook = trayerAboveXmobarEventHook
|
|
||||||
, focusFollowsMouse = myFocusFollowsMouse
|
|
||||||
, terminal = myTerminal
|
|
||||||
, borderWidth = myBorderWidth
|
|
||||||
, normalBorderColor = myNormalBorderColor
|
|
||||||
, focusedBorderColor = myFocusedBorderColor
|
|
||||||
, keys = myKeys
|
|
||||||
, workspaces = myWorkspaces
|
|
||||||
, startupHook = myStartupHook
|
|
||||||
}
|
|
||||||
|
|
||||||
-- My variables
|
|
||||||
myModMask = mod4Mask
|
|
||||||
myTerminal = "alacritty"
|
|
||||||
myBorderWidth = 2
|
|
||||||
|
|
||||||
myFocusFollowsMouse :: Bool
|
|
||||||
myFocusFollowsMouse = False
|
|
||||||
|
|
||||||
myNormalBorderColor = "#737994"
|
|
||||||
myFocusedBorderColor = "#c6d0f5"
|
|
||||||
|
|
||||||
myWorkspaces = ["一","二","三","四","五","六","七","八","九"]
|
|
||||||
|
|
||||||
-- My startup hook
|
|
||||||
myStartupHook :: X ()
|
|
||||||
myStartupHook = do
|
|
||||||
spawn "killall trayer-srg" -- kill current trayer on each restart
|
|
||||||
spawnOnce "sxhkd -c $HOME/.config/sxhkd/general"
|
|
||||||
spawnOnce "gentoo-pipewire-launcher"
|
|
||||||
spawnOnce "transmission-daemon"
|
|
||||||
spawnOnce "syncthing"
|
|
||||||
spawnOnce "picom"
|
|
||||||
spawnOnce "clipmenud"
|
|
||||||
spawnOnce "dunst"
|
|
||||||
spawnOnce "keepassxc"
|
|
||||||
spawnOnce "/usr/libexec/polkit-gnome-authentication-agent-1"
|
|
||||||
spawn ("sleep 2 && trayer-srg --edge top --align right --widthtype request --padding 6 --iconspacing 7 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 --tint 0x303446 --height 24 -l")
|
|
||||||
setWMName "LG3D" -- Fix java programs
|
|
||||||
|
|
||||||
-- My scratchpads
|
|
||||||
myScratchPads :: [NamedScratchpad]
|
|
||||||
myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
|
|
||||||
, NS "wiki" spawnWiki findWiki manageWiki
|
|
||||||
, NS "notes" spawnNotes findNotes manageNotes
|
|
||||||
, NS "profanity" spawnProfanity findProfanity manageProfanity
|
|
||||||
, NS "godot" spawnGodot findGodot manageGodot
|
|
||||||
]
|
|
||||||
where
|
|
||||||
spawnTerm = myTerminal ++ " --class scratchpad,scratchpad"
|
|
||||||
findTerm = className =? "scratchpad"
|
|
||||||
manageTerm = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.8
|
|
||||||
w = 0.8
|
|
||||||
t = 0.9 -h
|
|
||||||
l = 0.9 -w
|
|
||||||
spawnWiki = myTerminal ++ " --class wiki,wiki -e wiki"
|
|
||||||
findWiki = className =? "wiki"
|
|
||||||
manageWiki = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.8
|
|
||||||
w = 0.8
|
|
||||||
t = 0.9 -h
|
|
||||||
l = 0.9 -w
|
|
||||||
spawnNotes = myTerminal ++ " --class wiki,wiki -e notes"
|
|
||||||
findNotes = className =? "notes"
|
|
||||||
manageNotes = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.8
|
|
||||||
w = 0.8
|
|
||||||
t = 0.9 -h
|
|
||||||
l = 0.9 -w
|
|
||||||
spawnProfanity = myTerminal ++ " --class profanity,profanity -e profanity"
|
|
||||||
findProfanity = className =? "profanity"
|
|
||||||
manageProfanity = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.8
|
|
||||||
w = 0.8
|
|
||||||
t = 0.9 -h
|
|
||||||
l = 0.9 -w
|
|
||||||
spawnGodot = myTerminal ++ " --class godot,godot -e nvim --listen /tmp/godot.pipe"
|
|
||||||
findGodot = className =? "godot"
|
|
||||||
manageGodot = customFloating $ W.RationalRect l t w h
|
|
||||||
where
|
|
||||||
h = 0.8
|
|
||||||
w = 0.8
|
|
||||||
t = 0.9 -h
|
|
||||||
l = 0.9 -w
|
|
||||||
|
|
||||||
|
|
||||||
--Makes setting the spacingRaw simpler to write. The spacingRaw module adds a configurable amount of space around windows.
|
|
||||||
mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
|
|
||||||
mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True
|
|
||||||
|
|
||||||
-- Below is a variation of the above except no borders are applied
|
|
||||||
-- if fewer than two windows. So a single window has no gaps.
|
|
||||||
mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
|
|
||||||
mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True
|
|
||||||
|
|
||||||
-- My layouts
|
|
||||||
tall = renamed [Replace "tall"]
|
|
||||||
$ withBorder myBorderWidth
|
|
||||||
$ mySpacing 4
|
|
||||||
$ ResizableTall 1 (3/100) (1/2) []
|
|
||||||
monocle = renamed [Replace "monocle"]
|
|
||||||
$ withBorder myBorderWidth
|
|
||||||
$ mySpacing 4
|
|
||||||
$ Full
|
|
||||||
floats = renamed [Replace "floats"]
|
|
||||||
$ withBorder myBorderWidth
|
|
||||||
$ simplestFloat
|
|
||||||
|
|
||||||
myLayoutHook = lessBorders OnlyScreenFloat
|
|
||||||
$ mouseResize
|
|
||||||
$ windowArrange
|
|
||||||
$ myDefaultLayout
|
|
||||||
where
|
|
||||||
myDefaultLayout = onWorkspaces [(myWorkspaces !! 0), (myWorkspaces !! 3), (myWorkspaces !! 4)] (monocle ||| floats ||| tall)
|
|
||||||
$ onWorkspace (myWorkspaces !! 5) (floats ||| tall ||| monocle)
|
|
||||||
$ tall
|
|
||||||
||| monocle
|
|
||||||
||| floats
|
|
||||||
|
|
||||||
-- My manage hook
|
|
||||||
myManageHook :: ManageHook
|
|
||||||
myManageHook = composeAll
|
|
||||||
[ className =? "qutebrowser" --> doShiftAndGo ( myWorkspaces !! 0)
|
|
||||||
, className =? "newsboat" --> doShiftAndGo ( myWorkspaces !! 3)
|
|
||||||
, className =? "videos" --> doShiftAndGo ( myWorkspaces !! 3)
|
|
||||||
, className =? "ytfzf" --> doShiftAndGo ( myWorkspaces !! 3)
|
|
||||||
, className =? "lf" --> doShiftAndGo ( myWorkspaces !! 3)
|
|
||||||
, className =? "thunderbird" --> doShiftAndGo ( myWorkspaces !! 4)
|
|
||||||
, className =? "Ferdium" --> doShiftAndGo ( myWorkspaces !! 4)
|
|
||||||
, className =? "discord" --> doShiftAndGo ( myWorkspaces !! 4)
|
|
||||||
, className =? "tutanota-desktop" --> doShiftAndGo ( myWorkspaces !! 4)
|
|
||||||
, className =? "Lutris" --> doShiftAndGo ( myWorkspaces !! 5)
|
|
||||||
, className =? "steam" --> doShiftAndGo ( myWorkspaces !! 5)
|
|
||||||
, className =? "heroic" --> doShiftAndGo ( myWorkspaces !! 5)
|
|
||||||
, className =? "cartridges" --> doShiftAndGo ( myWorkspaces !! 5)
|
|
||||||
, className =? "Cemu" --> doShiftAndGo ( myWorkspaces !! 5)
|
|
||||||
, className =? "xemu" --> doShiftAndGo ( myWorkspaces !! 5)
|
|
||||||
, className =? "librewolf" --> doShiftAndGo ( myWorkspaces !! 8)
|
|
||||||
, isDialog --> doCenterFloat <+> doF W.swapUp
|
|
||||||
, className =? "Gimp" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "confirm" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "file_progress" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "dialog" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "download" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "error" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "notification" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "splash" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "toolbar" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "pinentry-gtk-2" --> doFloat <+> doF W.swapUp
|
|
||||||
, className =? "Yad" --> doCenterFloat <+> doF W.swapUp
|
|
||||||
, className =? "badd" --> doCenterFloat <+> doF W.swapUp
|
|
||||||
, className =? "filepicker" --> doRectFloat (W.RationalRect (1/12) (1/12) (5/6) (5/6)) <+> doF W.swapUp
|
|
||||||
, isFullscreen --> doFullFloat
|
|
||||||
, namedScratchpadManageHook myScratchPads
|
|
||||||
]
|
|
||||||
where
|
|
||||||
doShiftAndGo ws = doF (W.greedyView ws) <+> doShift ws
|
|
||||||
|
|
||||||
-- My keybindings in a nice readable format
|
|
||||||
myKeys = \c -> mkKeymap c $
|
|
||||||
[ ("M-S-q", kill) -- kill active window
|
|
||||||
, ("M-<Space>", sendMessage NextLayout) -- cycle layout
|
|
||||||
, ("M-S-<Space>", withFocused toggleFloat) -- toggle floating state of a window
|
|
||||||
, ("M-j", windows W.focusDown) -- Move focus down
|
|
||||||
, ("M-k", windows W.focusUp) -- Move focus up
|
|
||||||
, ("M-S-<Return>", windows W.swapMaster) -- Move Focused window to master
|
|
||||||
, ("M-S-j", windows W.swapDown) --Move window down the stack
|
|
||||||
, ("M-S-k", windows W.swapUp) -- Move window up the stack
|
|
||||||
, ("M-h", sendMessage Shrink) -- Shrink master
|
|
||||||
, ("M-l", sendMessage Expand) -- Expand master
|
|
||||||
, ("M-,", sendMessage (IncMasterN 1)) -- Increase master count
|
|
||||||
, ("M-.", sendMessage (IncMasterN (-1))) -- Decrease msaster count
|
|
||||||
, ("M-C-e", io (exitWith ExitSuccess)) -- Quit xmonad
|
|
||||||
, ("M-S-r", spawn "xmonad --recompile && xmonad --restart") -- Restart xmonad
|
|
||||||
, ("M-<Tab>", toggleWS' ["NSP"]) -- Toogle last used workspace, ignoring named scratchpad
|
|
||||||
, ("M-s t", namedScratchpadAction myScratchPads "terminal") -- Toggle scratchpad
|
|
||||||
, ("M-s w", namedScratchpadAction myScratchPads "wiki") -- Toggle scratchpad
|
|
||||||
, ("M-s n", namedScratchpadAction myScratchPads "notes") -- Toggle scratchpad
|
|
||||||
, ("M-s p", namedScratchpadAction myScratchPads "profanity") -- Toggle scratchpad
|
|
||||||
, ("M-s g", namedScratchpadAction myScratchPads "godot") -- Toggle scratchpad
|
|
||||||
, ("M-1", viewDesktop 0) -- Check workspace 1
|
|
||||||
, ("M-2", viewDesktop 1) -- Check workspace 2
|
|
||||||
, ("M-3", viewDesktop 2) -- Check workspace 3
|
|
||||||
, ("M-4", viewDesktop 3) -- Check workspace 4
|
|
||||||
, ("M-5", viewDesktop 4) -- Check workspace 5
|
|
||||||
, ("M-6", viewDesktop 5) -- Check workspace 6
|
|
||||||
, ("M-7", viewDesktop 6) -- Check workspace 7
|
|
||||||
, ("M-8", viewDesktop 7) -- Check workspace 8
|
|
||||||
, ("M-9", viewDesktop 8) -- Check workspace 9
|
|
||||||
, ("M-S-1", shiftWindow 0) -- Send window to workspace 1
|
|
||||||
, ("M-S-2", shiftWindow 1) -- Send window to workspace 2
|
|
||||||
, ("M-S-3", shiftWindow 2) -- Send window to workspace 3
|
|
||||||
, ("M-S-4", shiftWindow 3) -- Send window to workspace 4
|
|
||||||
, ("M-S-5", shiftWindow 4) -- Send window to workspace 5
|
|
||||||
, ("M-S-6", shiftWindow 5) -- Send window to workspace 6
|
|
||||||
, ("M-S-7", shiftWindow 6) -- Send window to workspace 7
|
|
||||||
, ("M-S-8", shiftWindow 7) -- Send window to workspace 8
|
|
||||||
, ("M-S-9", shiftWindow 8) -- Send window to workspace 9
|
|
||||||
, ("M-C-1", shiftAndView 0) -- Send window and check workspace 1
|
|
||||||
, ("M-C-2", shiftAndView 1) -- Send window and check workspace 2
|
|
||||||
, ("M-C-3", shiftAndView 2) -- Send window and check workspace 3
|
|
||||||
, ("M-C-4", shiftAndView 3) -- Send window and check workspace 4
|
|
||||||
, ("M-C-5", shiftAndView 4) -- Send window and check workspace 5
|
|
||||||
, ("M-C-6", shiftAndView 5) -- Send window and check workspace 6
|
|
||||||
, ("M-C-7", shiftAndView 6) -- Send window and check workspace 7
|
|
||||||
, ("M-C-8", shiftAndView 7) -- Send window and check workspace 8
|
|
||||||
, ("M-C-9", shiftAndView 8) -- Send window and check workspace 9
|
|
||||||
, ("M-f", sinkAll) -- Nuke solution for simplestFloat layout
|
|
||||||
]
|
|
||||||
where
|
|
||||||
toggleFloat w = windows (\s -> if M.member w (W.floating s)
|
|
||||||
then W.sink w s
|
|
||||||
else (W.float w (W.RationalRect (1/6) (1/6) (2/3) (2/3)) s))
|
|
||||||
viewDesktop d = windows $ W.greedyView $ myWorkspaces !! d
|
|
||||||
shiftWindow w = windows $ W.shift $ myWorkspaces !! w
|
|
||||||
shiftAndView w = windows $ W.greedyView (myWorkspaces !! w) . W.shift (myWorkspaces !! w)
|
|
||||||
|
|
||||||
-- My xmobar workspace and other things config
|
|
||||||
myXmobarPP :: PP
|
|
||||||
myXmobarPP = filterOutWsPP ["NSP"]
|
|
||||||
$ def
|
|
||||||
{ ppSep = magenta " • "
|
|
||||||
, ppWsSep = " "
|
|
||||||
, ppTitleSanitize = xmobarStrip
|
|
||||||
, ppCurrent = xmobarBorder "Bottom" "#89b4fa" 2
|
|
||||||
, ppHidden = white
|
|
||||||
, ppHiddenNoWindows = lowWhite
|
|
||||||
, ppUrgent = red . wrap (yellow "!") (yellow "!")
|
|
||||||
, ppOrder = \[ws, l, _, wins] -> [ws, l, wins]
|
|
||||||
, ppExtras = [logTitles formatFocused formatUnfocused]
|
|
||||||
}
|
|
||||||
where
|
|
||||||
formatFocused = wrap (white "[") (white "]") . magenta . ppWindow
|
|
||||||
formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . blue . ppWindow
|
|
||||||
|
|
||||||
ppWindow :: String -> String
|
|
||||||
ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 25
|
|
||||||
|
|
||||||
blue, lowWhite, magenta, red, white, yellow :: String -> String
|
|
||||||
magenta = xmobarColor "#eba0ac" ""
|
|
||||||
blue = xmobarColor "#cba6f7" ""
|
|
||||||
white = xmobarColor "#cdd6f4" ""
|
|
||||||
yellow = xmobarColor "#f9e2af" ""
|
|
||||||
red = xmobarColor "#f38ba8" ""
|
|
||||||
lowWhite = xmobarColor "#585b70" ""
|
|
||||||
Loading…
Reference in New Issue
Block a user