diff options
| author | Azat Bahawi <azat@bahawi.net> | 2022-08-16 01:46:04 +0300 |
|---|---|---|
| committer | Azat Bahawi <azat@bahawi.net> | 2022-08-16 01:46:04 +0300 |
| commit | 3cd06b22069c009b8c5fea2d5fad5f996667d2e3 (patch) | |
| tree | 4b5f1cb453de13c560bc8aa5a57952713cf360aa /src/lib/XMonad/Custom/Layout.hs | |
| parent | absolute garbage wtf (diff) | |
huge update-o
Diffstat (limited to 'src/lib/XMonad/Custom/Layout.hs')
| -rw-r--r-- | src/lib/XMonad/Custom/Layout.hs | 54 |
1 files changed, 8 insertions, 46 deletions
diff --git a/src/lib/XMonad/Custom/Layout.hs b/src/lib/XMonad/Custom/Layout.hs index 8ed7d08..0ca3761 100644 --- a/src/lib/XMonad/Custom/Layout.hs +++ b/src/lib/XMonad/Custom/Layout.hs @@ -1,60 +1,22 @@ -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE TypeSynonymInstances #-} {-# OPTIONS_GHC -Wno-missing-signatures #-} -- | -- Module : XMonad.Custom.Layout -- Description : Layouts and such --- Copyright : (c) Azat Bahawi 2018-2021 +-- Copyright : (c) Azat Bahawi 2018-2022 -- SPDX-License-Identifier : GPL-3.0-or-later --- Maintainer : azahi@teknik.io +-- Maintainer : azat@bahawi.net -- Stability : experimental -- Portability : non-portable -- module XMonad.Custom.Layout - ( layoutHook - , CustomTransformers(..) + ( ngLayoutHook ) where -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.Hidden -import XMonad.Layout.LayoutModifier -import XMonad.Layout.MultiToggle -import XMonad.Layout.MultiToggle.Instances -import XMonad.Layout.NoBorders -import XMonad.Layout.Reflect -import XMonad.Layout.Simplest -import XMonad.Layout.Spacing -import XMonad.Layout.SubLayouts -import XMonad.Layout.Tabbed -import XMonad.Layout.WindowNavigation +import XMonad ( Full(Full) + , Tall(Tall) + , (|||) + ) -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) - -instance Transformer CustomTransformers Window where - transform GAPS x k = k (avoidStruts $ applySpacing x) (const x) - -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 +ngLayoutHook = Tall 1 (1 / 2) (3 / 100) ||| Full |