From d7176233da673ea5d92eadcbf52323b5d8419cfd Mon Sep 17 00:00:00 2001 From: azahi Date: Mon, 8 Oct 2018 21:18:13 +0300 Subject: 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 --- src/XMonad/Custom/Layout.hs | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) (limited to 'src/XMonad/Custom/Layout.hs') 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 -- cgit 1.4.1