diff options
| author | Azat Bahawi <azahi@teknik.io> | 2020-11-20 23:13:14 +0300 |
|---|---|---|
| committer | Azat Bahawi <azahi@teknik.io> | 2020-11-20 23:13:14 +0300 |
| commit | 4181e8c47883dc456db4310f42212262d5a8ad1a (patch) | |
| tree | 5c4f279b290b2cd8a2ac14488bfa2e7b7df12c85 /src/XMonad/Custom/Layout.hs | |
| parent | Sync submodules (diff) | |
bump dependencies + brittany/cabal-fmt
Diffstat (limited to '')
| -rw-r--r-- | src/XMonad/Custom/Layout.hs | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/XMonad/Custom/Layout.hs b/src/XMonad/Custom/Layout.hs index 70476a9..c7989b4 100644 --- a/src/XMonad/Custom/Layout.hs +++ b/src/XMonad/Custom/Layout.hs @@ -13,11 +13,11 @@ -- module XMonad.Custom.Layout - ( layoutHook - , CustomTransformers (..) - ) where + ( layoutHook + , CustomTransformers(..) + ) where -import XMonad hiding ( layoutHook ) +import XMonad hiding ( layoutHook ) import XMonad.Custom.Theme import XMonad.Hooks.ManageDocks import XMonad.Layout.Accordion @@ -39,21 +39,21 @@ applySpacing :: l a -> ModifiedLayout Spacing l a applySpacing = spacingRaw False (Border 6 6 6 6) True (Border 6 6 6 6) True data CustomTransformers = GAPS - deriving (Read, Show, Eq, Typeable) + deriving (Read, Show, Eq, Typeable) instance Transformer CustomTransformers Window where - transform GAPS x k = k (avoidStruts $ applySpacing x) (const x) + transform GAPS x k = k (avoidStruts $ applySpacing x) (const x) -layoutHook = fullscreenFloat - $ lessBorders OnlyLayoutFloat - $ mkToggle (single NBFULL) - $ avoidStruts - $ applySpacing +layoutHook = + fullscreenFloat + $ lessBorders OnlyLayoutFloat + $ mkToggle (single NBFULL) + $ avoidStruts + $ applySpacing -- $ mkToggle (single GAPS) - $ mkToggle (single REFLECTX) - $ mkToggle (single REFLECTY) - $ windowNavigation - $ addTabs shrinkText tabTheme - $ hiddenWindows - $ subLayout [] (Simplest ||| Accordion) - emptyBSP + $ mkToggle (single REFLECTX) + $ mkToggle (single REFLECTY) + $ windowNavigation + $ addTabs shrinkText tabTheme + $ hiddenWindows + $ subLayout [] (Simplest ||| Accordion) emptyBSP |