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!"
;;ocaml ; an objective camel
(org
+dragndrop
+journal ; enable org journal
+pretty ; replace asterisks with pretty org bullets
+publish) ; create static websites with org

View File

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

View File

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

View File

@ -77,6 +77,7 @@ import XMonad.Hooks.ServerMode
import XMonad.Hooks.SetWMName
import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP
import XMonad.Hooks.WindowSwallowing
import XMonad.Hooks.WorkspaceHistory
-- Layouts
@ -837,12 +838,7 @@ main = do
-- the xmonad, ya know...what the WM is named after!
xmonad $ addDescrKeys' ((mod4Mask, xK_F1), showKeybindings) myKeys $ ewmh $ docks $ def
{ manageHook = myManageHook <+> manageDocks
--, handleEventHook = docks
-- 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
, handleEventHook = swallowEventHook (className =? "Alacritty" <||> className =? "st-256color" <||> className =? "XTerm") (return True)
, modMask = myModMask
, terminal = myTerminal
, startupHook = myStartupHook

View File

@ -33,6 +33,7 @@ import XMonad.Hooks.ServerMode
import XMonad.Hooks.SetWMName
import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP
import XMonad.Hooks.WindowSwallowing
import XMonad.Hooks.WorkspaceHistory
-- Layouts
@ -685,12 +686,7 @@ main = do
-- the xmonad, ya know...what the WM is named after!
xmonad $ addDescrKeys' ((mod4Mask, xK_F1), showKeybindings) myKeys $ ewmh $ docks $ def
{ manageHook = myManageHook <+> manageDocks
--, handleEventHook = docks
-- 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
, handleEventHook = swallowEventHook (className =? "Alacritty" <||> className =? "st-256color" <||> className =? "XTerm") (return True)
, modMask = myModMask
, terminal = myTerminal
, startupHook = myStartupHook