Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-08-10 10:01:14 +10:00
Code Issues Packages Projects Releases Wiki Activity

Playing with fullscreenevent and smartBorders.

Browse Source
This commit is contained in:
Derek Taylor
2021-04-14 00:26:46 -05:00
parent 48d285668d
commit f8539f7c92
2 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.xmonad/README.org
+9 -1
View File
@@ -252,6 +252,7 @@ mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True
-- mySpacing n sets the gap size around the windows. -- mySpacing n sets the gap size around the windows.
tall = renamed [Replace "tall"] tall = renamed [Replace "tall"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 12 $ limitWindows 12
@@ -259,6 +260,7 @@ tall = renamed [Replace "tall"]
$ ResizableTall 1 (3/100) (1/2) [] $ ResizableTall 1 (3/100) (1/2) []
magnify = renamed [Replace "magnify"] magnify = renamed [Replace "magnify"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ magnifier $ magnifier
@@ -267,16 +269,19 @@ magnify = renamed [Replace "magnify"]
$ ResizableTall 1 (3/100) (1/2) [] $ ResizableTall 1 (3/100) (1/2) []
monocle = renamed [Replace "monocle"] monocle = renamed [Replace "monocle"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 20 Full $ limitWindows 20 Full
floats = renamed [Replace "floats"] floats = renamed [Replace "floats"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 20 simplestFloat $ limitWindows 20 simplestFloat
grid = renamed [Replace "grid"] grid = renamed [Replace "grid"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 12 $ limitWindows 12
@@ -285,18 +290,21 @@ grid = renamed [Replace "grid"]
$ Grid (16/10) $ Grid (16/10)
spirals = renamed [Replace "spirals"] spirals = renamed [Replace "spirals"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ mySpacing' 8 $ mySpacing' 8
$ spiral (6/7) $ spiral (6/7)
threeCol = renamed [Replace "threeCol"] threeCol = renamed [Replace "threeCol"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 7 $ limitWindows 7
$ ThreeCol 1 (3/100) (1/2) $ ThreeCol 1 (3/100) (1/2)
threeRow = renamed [Replace "threeRow"] threeRow = renamed [Replace "threeRow"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 7 $ limitWindows 7
@@ -471,9 +479,9 @@ myKeys =
, ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout , ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout
, ("M-C-M1-<Up>", sendMessage Arrange) , ("M-C-M1-<Up>", sendMessage Arrange)
, ("M-C-M1-<Down>", sendMessage DeArrange) , ("M-C-M1-<Down>", sendMessage DeArrange)
, ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
, ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts , ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts
, ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder , ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder
, ("<F11>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
-- Increase/decrease windows in the master pane or the stack -- Increase/decrease windows in the master pane or the stack
, ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane , ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane
.xmonad/xmonad.hs
+9 -1
View File
@@ -192,6 +192,7 @@ mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True
-- mySpacing n sets the gap size around the windows. -- mySpacing n sets the gap size around the windows.
tall = renamed [Replace "tall"] tall = renamed [Replace "tall"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 12 $ limitWindows 12
@@ -199,6 +200,7 @@ tall = renamed [Replace "tall"]
$ ResizableTall 1 (3/100) (1/2) [] $ ResizableTall 1 (3/100) (1/2) []
magnify = renamed [Replace "magnify"] magnify = renamed [Replace "magnify"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ magnifier $ magnifier
@@ -207,16 +209,19 @@ magnify = renamed [Replace "magnify"]
$ ResizableTall 1 (3/100) (1/2) [] $ ResizableTall 1 (3/100) (1/2) []
monocle = renamed [Replace "monocle"] monocle = renamed [Replace "monocle"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 20 Full $ limitWindows 20 Full
floats = renamed [Replace "floats"] floats = renamed [Replace "floats"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 20 simplestFloat $ limitWindows 20 simplestFloat
grid = renamed [Replace "grid"] grid = renamed [Replace "grid"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 12 $ limitWindows 12
@@ -225,18 +230,21 @@ grid = renamed [Replace "grid"]
$ Grid (16/10) $ Grid (16/10)
spirals = renamed [Replace "spirals"] spirals = renamed [Replace "spirals"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ mySpacing' 8 $ mySpacing' 8
$ spiral (6/7) $ spiral (6/7)
threeCol = renamed [Replace "threeCol"] threeCol = renamed [Replace "threeCol"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 7 $ limitWindows 7
$ ThreeCol 1 (3/100) (1/2) $ ThreeCol 1 (3/100) (1/2)
threeRow = renamed [Replace "threeRow"] threeRow = renamed [Replace "threeRow"]
$ windowNavigation $ windowNavigation
$ smartBorders
$ addTabs shrinkText myTabTheme $ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest) $ subLayout [] (smartBorders Simplest)
$ limitWindows 7 $ limitWindows 7
@@ -371,9 +379,9 @@ myKeys =
, ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout , ("M-<Tab>", sendMessage NextLayout) -- Switch to next layout
, ("M-C-M1-<Up>", sendMessage Arrange) , ("M-C-M1-<Up>", sendMessage Arrange)
, ("M-C-M1-<Down>", sendMessage DeArrange) , ("M-C-M1-<Down>", sendMessage DeArrange)
, ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
, ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts , ("M-S-<Space>", sendMessage ToggleStruts) -- Toggles struts
, ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder , ("M-S-n", sendMessage $ MT.Toggle NOBORDERS) -- Toggles noborder
, ("<F11>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
-- Increase/decrease windows in the master pane or the stack -- Increase/decrease windows in the master pane or the stack
, ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane , ("M-S-<Up>", sendMessage (IncMasterN 1)) -- Increase number of clients in master pane