Adding window swallowing to Xmonad.

This commit is contained in:
Derek Taylor 2022-08-21 14:01:25 -05:00
parent 8a6e455df6
commit 036afabc6e
5 changed files with 12 additions and 19 deletions

View File

@ -147,6 +147,7 @@
;;nix ; I hereby declare "nix geht mehr!" ;;nix ; I hereby declare "nix geht mehr!"
;;ocaml ; an objective camel ;;ocaml ; an objective camel
(org (org
+dragndrop
+journal ; enable org journal +journal ; enable org journal
+pretty ; replace asterisks with pretty org bullets +pretty ; replace asterisks with pretty org bullets
+publish) ; create static websites with org +publish) ; create static websites with org

View File

@ -1,14 +1,14 @@
[xin_1] [xin_1]
file=/home/dt/wallpapers/0100.jpg file=/home/dt/wallpapers/0258.jpg
mode=0 mode=0
bgcolor=#000000 bgcolor=#000000
[xin_0] [xin_0]
file=/home/dt/wallpapers/0100.jpg file=/home/dt/wallpapers/0258.jpg
mode=0 mode=0
bgcolor=#000000 bgcolor=#000000
[xin_2] [xin_2]
file=/home/dt/wallpapers/0100.jpg file=/home/dt/wallpapers/0258.jpg
mode=0 mode=0
bgcolor=#000000 bgcolor=#000000

View File

@ -1,8 +1,8 @@
[geometry] [geometry]
posx=1928 posx=3840
posy=28 posy=0
sizex=1900 sizex=1920
sizey=1040 sizey=1080
[nitrogen] [nitrogen]
view=icon view=icon

View File

@ -77,6 +77,7 @@ import XMonad.Hooks.ServerMode
import XMonad.Hooks.SetWMName import XMonad.Hooks.SetWMName
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP import XMonad.Hooks.StatusBar.PP
import XMonad.Hooks.WindowSwallowing
import XMonad.Hooks.WorkspaceHistory import XMonad.Hooks.WorkspaceHistory
-- Layouts -- Layouts
@ -837,12 +838,7 @@ main = do
-- the xmonad, ya know...what the WM is named after! -- the xmonad, ya know...what the WM is named after!
xmonad $ addDescrKeys' ((mod4Mask, xK_F1), showKeybindings) myKeys $ ewmh $ docks $ def xmonad $ addDescrKeys' ((mod4Mask, xK_F1), showKeybindings) myKeys $ ewmh $ docks $ def
{ manageHook = myManageHook <+> manageDocks { manageHook = myManageHook <+> manageDocks
--, handleEventHook = docks , handleEventHook = swallowEventHook (className =? "Alacritty" <||> className =? "st-256color" <||> className =? "XTerm") (return True)
-- Uncomment this line to enable fullscreen support on things like YouTube/Netflix.
-- This works perfect on SINGLE monitor systems. On multi-monitor systems,
-- it adds a border around the window if screen does not have focus. So, my solution
-- is to use a keybinding to toggle fullscreen noborders instead. (M-<Space>)
-- <+> fullscreenEventHook
, modMask = myModMask , modMask = myModMask
, terminal = myTerminal , terminal = myTerminal
, startupHook = myStartupHook , startupHook = myStartupHook

View File

@ -33,6 +33,7 @@ import XMonad.Hooks.ServerMode
import XMonad.Hooks.SetWMName import XMonad.Hooks.SetWMName
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP import XMonad.Hooks.StatusBar.PP
import XMonad.Hooks.WindowSwallowing
import XMonad.Hooks.WorkspaceHistory import XMonad.Hooks.WorkspaceHistory
-- Layouts -- Layouts
@ -685,12 +686,7 @@ main = do
-- the xmonad, ya know...what the WM is named after! -- the xmonad, ya know...what the WM is named after!
xmonad $ addDescrKeys' ((mod4Mask, xK_F1), showKeybindings) myKeys $ ewmh $ docks $ def xmonad $ addDescrKeys' ((mod4Mask, xK_F1), showKeybindings) myKeys $ ewmh $ docks $ def
{ manageHook = myManageHook <+> manageDocks { manageHook = myManageHook <+> manageDocks
--, handleEventHook = docks , handleEventHook = swallowEventHook (className =? "Alacritty" <||> className =? "st-256color" <||> className =? "XTerm") (return True)
-- Uncomment this line to enable fullscreen support on things like YouTube/Netflix.
-- This works perfect on SINGLE monitor systems. On multi-monitor systems,
-- it adds a border around the window if screen does not have focus. So, my solution
-- is to use a keybinding to toggle fullscreen noborders instead. (M-<Space>)
-- <+> fullscreenEventHook
, modMask = myModMask , modMask = myModMask
, terminal = myTerminal , terminal = myTerminal
, startupHook = myStartupHook , startupHook = myStartupHook