about summary refs log tree commit diff
path: root/src/XMonad/Custom/Layout.hs
diff options
context:
space:
mode:
authorazahi <azahi@teknik.io>2018-10-03 14:30:31 +0300
committerazahi <azahi@teknik.io>2018-10-03 14:30:31 +0300
commit7e19bd16b48bd009a3b4d0f029c445bb49d95615 (patch)
treeff4fc89baaef3a684294463e18569fd56996f3bd /src/XMonad/Custom/Layout.hs
parentRelease 0.2.1.1 (diff)
Move to 0.15
Fix windows not showing with fullscreen hooks
Add misc directory with stuff that should be moved to ~/.xmonad
Switch indentation style
Add submodules
Diffstat (limited to '')
-rw-r--r--src/XMonad/Custom/Layout.hs13
1 files changed, 3 insertions, 10 deletions
diff --git a/src/XMonad/Custom/Layout.hs b/src/XMonad/Custom/Layout.hs
index 3a0a107..9983b9c 100644
--- a/src/XMonad/Custom/Layout.hs
+++ b/src/XMonad/Custom/Layout.hs
@@ -40,23 +40,16 @@ import           XMonad.Layout.Tabbed
 import           XMonad.Layout.WindowNavigation
 
 applySpacing :: l a -> ModifiedLayout Spacing l a
-applySpacing = spacing gapBase
-
-applyGaps :: l a -> ModifiedLayout Gaps l a
-applyGaps = gaps [ (U, gapBase)
-                 , (D, gapBase)
-                 , (R, gapBase)
-                 , (L, gapBase)
-                 ]
+applySpacing = spacingRaw True (Border 12 12 12 12) True (Border 12 12 12 12) True
 
 data CustomTransformers = GAPS
                         deriving (Read, Show, Eq, Typeable)
 
 instance Transformer CustomTransformers Window where
-    transform GAPS x k = k (avoidStruts $ applyGaps $ applySpacing x) (const x)
+    transform GAPS x k = k (avoidStruts $ applySpacing x) (const x)
 
 layoutHook' = fullscreenFloat
-            $ lessBorders OnlyFloat
+            $ lessBorders OnlyLayoutFloat
             $ mkToggle (single NBFULL)
             $ avoidStruts
             $ mkToggle (single GAPS)

Consider giving Nix/NixOS a try! <3