Basic updates.

This commit is contained in:
CronyAkatsuki 2023-08-23 19:51:32 +02:00
parent 08c122f3fd
commit a3bd316ea2
12 changed files with 352 additions and 152 deletions

View file

@ -52,7 +52,7 @@ main = xmonad
myConfig = def
{ modMask = myModMask
, layoutHook = myLayoutHook
, manageHook = myManageHook
, manageHook = insertPosition End Newer <+> myManageHook
, handleEventHook = trayerAboveXmobarEventHook
, focusFollowsMouse = myFocusFollowsMouse
, terminal = myTerminal
@ -83,14 +83,15 @@ 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 "transmission-daemon"
spawnOnce "syncthing"
-- spawnOnce "lxsession"
-- spawnOnce "picom"
-- spawnOnce "clipmenud"
spawnOnce "lxsession"
spawnOnce "picom"
spawnOnce "clipmenud"
spawnOnce "dunst"
-- spawnOnce "discord --start-minimized"
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 27 -l")
setWMName "LG3D" -- Fix java programs
@ -99,6 +100,7 @@ myScratchPads :: [NamedScratchpad]
myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
, NS "wiki" spawnWiki findWiki manageWiki
, NS "notes" spawnNotes findNotes manageNotes
, NS "profanity" spawnProfanity findProfanity manageProfanity
]
where
spawnTerm = myTerminal ++ " --class scratchpad,scratchpad"
@ -109,7 +111,7 @@ myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
w = 0.8
t = 0.9 -h
l = 0.9 -w
spawnWiki = myTerminal ++ " -class wiki,wiki -e wiki"
spawnWiki = myTerminal ++ " --class wiki,wiki -e wiki"
findWiki = className =? "wiki"
manageWiki = customFloating $ W.RationalRect l t w h
where
@ -117,7 +119,7 @@ myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
w = 0.8
t = 0.9 -h
l = 0.9 -w
spawnNotes = myTerminal ++ " -class wiki,wiki -e notes"
spawnNotes = myTerminal ++ " --class wiki,wiki -e notes"
findNotes = className =? "notes"
manageNotes = customFloating $ W.RationalRect l t w h
where
@ -125,6 +127,15 @@ myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
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
--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
@ -139,11 +150,11 @@ mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True
tall = renamed [Replace "tall"]
$ withBorder myBorderWidth
$ windowNavigation
$ mySpacing 6
$ mySpacing 7
$ ResizableTall 1 (3/100) (1/2) []
monocle = renamed [Replace "monocle"]
$ withBorder myBorderWidth
$ mySpacing 6
$ mySpacing 7
$ windowNavigation
$ Full
floats = renamed [Replace "floats"]
@ -164,7 +175,7 @@ myLayoutHook = lessBorders OnlyScreenFloat
-- My manage hook
myManageHook :: ManageHook
myManageHook = composeAll
[ className =? "LibreWolf" --> doShiftAndGo ( myWorkspaces !! 0)
[ className =? "librewolf" --> doShiftAndGo ( myWorkspaces !! 0)
, className =? "newsboat" --> doShiftAndGo ( myWorkspaces !! 3)
, className =? "videos" --> doShiftAndGo ( myWorkspaces !! 3)
, className =? "ytfzf" --> doShiftAndGo ( myWorkspaces !! 3)
@ -173,22 +184,23 @@ myManageHook = composeAll
, className =? "Ferdium" --> doShiftAndGo ( myWorkspaces !! 4)
, className =? "discord" --> doShiftAndGo ( myWorkspaces !! 4)
, className =? "tutanota-desktop" --> doShiftAndGo ( myWorkspaces !! 4)
, className =? "Lutris" --> doShiftAndGo ( myWorkspaces !! 5) <+> doF W.swapUp
, className =? "Steam" --> doShiftAndGo ( myWorkspaces !! 5)
, className =? "Lutris" --> doShiftAndGo ( myWorkspaces !! 5)
, className =? "steam" --> doShiftAndGo ( myWorkspaces !! 5)
, className =? "heroic" --> doShiftAndGo ( myWorkspaces !! 5)
, className =? "cartridges" --> doShiftAndGo ( myWorkspaces !! 5)
, isDialog --> doCenterFloat <+> doF W.swapUp
, className =? "Gimp" --> doFloat
, className =? "confirm" --> doFloat
, className =? "file_progress" --> doFloat
, className =? "dialog" --> doFloat
, className =? "download" --> doFloat
, className =? "error" --> doFloat
, className =? "notification" --> doFloat
, className =? "splash" --> doFloat
, className =? "toolbar" --> doFloat
, className =? "pinentry-gtk-2" --> doFloat
, className =? "Yad" --> doCenterFloat
, className =? "badd" --> doCenterFloat
, 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
, isFullscreen --> doFullFloat <+> doF W.swapUp
, namedScratchpadManageHook myScratchPads
]
@ -215,6 +227,7 @@ myKeys = \c -> mkKeymap c $
, ("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-1", viewDesktop 0) -- Check workspace 1
, ("M-2", viewDesktop 1) -- Check workspace 2
, ("M-3", viewDesktop 2) -- Check workspace 3