diff options
author | azahi <azahi@teknik.io> | 2018-06-29 10:58:41 +0300 |
---|---|---|
committer | azahi <azahi@teknik.io> | 2018-06-29 10:58:41 +0300 |
commit | e6811f16345abdeb2e97bb19f5e43eb06ace2369 (patch) | |
tree | 52b3d9e2a4ceae7e154fc48c940f3d67a0992a4f /src/XMonad/Custom/Layout.hs | |
parent | Fix resolver issue (diff) |
Bump to 0.2.0.1
Minor code tweaks Add header messages Change indentation Move per-module GHC_OPTIONS to their respective module
Diffstat (limited to 'src/XMonad/Custom/Layout.hs')
-rw-r--r-- | src/XMonad/Custom/Layout.hs | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/src/XMonad/Custom/Layout.hs b/src/XMonad/Custom/Layout.hs index 8f14926..0ad0de2 100644 --- a/src/XMonad/Custom/Layout.hs +++ b/src/XMonad/Custom/Layout.hs @@ -1,10 +1,25 @@ {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE TypeSynonymInstances #-} +{-# OPTIONS_GHC -Wno-missing-signatures #-} + +----------------------------------------------------------------------------- +-- | +-- Module : XMonad.Custom.Layout +-- Copyright : (c) azahi 2018 +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : azahi@teknik.io +-- Stability : unstable +-- Portability : unportable +-- +-- Custom target for layouts, sublayouts and layout transformers. +-- +------------------------------------------------------------------------ module XMonad.Custom.Layout ( layoutHook' - , Transformers (..) + , CustomTransformers (..) ) where import XMonad @@ -36,10 +51,10 @@ applyGaps = gaps [ (U, gapBase) , (L, gapBase) ] -data Transformers = GAPS - deriving (Read, Show, Eq, Typeable) +data CustomTransformers = GAPS + deriving (Read, Show, Eq, Typeable) -instance Transformer Transformers Window where +instance Transformer CustomTransformers Window where transform GAPS x k = k (avoidStruts $ applyGaps $ applySpacing x) (const x) layoutHook' = fullscreenFloat |