diff options
author | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
---|---|---|
committer | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
commit | d7176233da673ea5d92eadcbf52323b5d8419cfd (patch) | |
tree | f603bee246db9a0ca0d5c89933b34064f76495cf /src/XMonad/Custom/Layout.hs | |
parent | Clean up Actions (diff) |
Rework Custom
Change the names of high-order functoins Remove named keybindings Add check executable for keybindings Expand xmonad-ng library Bump to 0.15.1
Diffstat (limited to 'src/XMonad/Custom/Layout.hs')
-rw-r--r-- | src/XMonad/Custom/Layout.hs | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/src/XMonad/Custom/Layout.hs b/src/XMonad/Custom/Layout.hs index 9983b9c..f0a763b 100644 --- a/src/XMonad/Custom/Layout.hs +++ b/src/XMonad/Custom/Layout.hs @@ -16,17 +16,16 @@ ----------------------------------------------------------------------------- module XMonad.Custom.Layout - ( layoutHook' + ( layoutHook , CustomTransformers (..) ) where -import XMonad +import XMonad hiding (layoutHook) import XMonad.Custom.Theme import XMonad.Hooks.ManageDocks import XMonad.Layout.Accordion import XMonad.Layout.BinarySpacePartition import XMonad.Layout.Fullscreen -import XMonad.Layout.Gaps import XMonad.Layout.Hidden import XMonad.Layout.LayoutModifier import XMonad.Layout.MultiToggle @@ -48,15 +47,15 @@ data CustomTransformers = GAPS instance Transformer CustomTransformers Window where transform GAPS x k = k (avoidStruts $ applySpacing x) (const x) -layoutHook' = fullscreenFloat - $ lessBorders OnlyLayoutFloat - $ mkToggle (single NBFULL) - $ avoidStruts - $ mkToggle (single GAPS) - $ mkToggle (single REFLECTX) - $ mkToggle (single REFLECTY) - $ windowNavigation - $ addTabs shrinkText tabTheme - $ hiddenWindows - $ subLayout [] (Simplest ||| Accordion) - emptyBSP +layoutHook = fullscreenFloat + $ lessBorders OnlyLayoutFloat + $ mkToggle (single NBFULL) + $ avoidStruts + $ mkToggle (single GAPS) + $ mkToggle (single REFLECTX) + $ mkToggle (single REFLECTY) + $ windowNavigation + $ addTabs shrinkText tabTheme + $ hiddenWindows + $ subLayout [] (Simplest ||| Accordion) + emptyBSP |