From e6811f16345abdeb2e97bb19f5e43eb06ace2369 Mon Sep 17 00:00:00 2001 From: azahi Date: Fri, 29 Jun 2018 10:58:41 +0300 Subject: Bump to 0.2.0.1 Minor code tweaks Add header messages Change indentation Move per-module GHC_OPTIONS to their respective module --- src/XMonad/Custom/Layout.hs | 23 +++++++++++++++++++---- 1 file changed, 19 insertions(+), 4 deletions(-) (limited to 'src/XMonad/Custom/Layout.hs') 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 -- cgit 1.4.1