Apply hlint hints

All hints are applied in one single commit, as a commit per hint would
result in 80+ separate commits—tihs is really just too much noise.

Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe
2021-06-06 16:11:17 +02:00
parent b96899afb6
commit bd5b969d9b
222 changed files with 1119 additions and 1193 deletions

View File

@@ -1,4 +1,4 @@
{-# LANGUAGE MultiParamTypeClasses, PatternGuards, TypeSynonymInstances #-}
{-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances #-}
{- |
Module : XMonad.Layout.TrackFloating
@@ -42,12 +42,12 @@ import qualified XMonad.StackSet as W
import qualified Data.Traversable as T
data TrackFloating a = TrackFloating (Maybe Window)
newtype TrackFloating a = TrackFloating (Maybe Window)
deriving (Read,Show)
instance LayoutModifier TrackFloating Window where
modifyLayoutWithUpdate (TrackFloating mw) ws@(W.Workspace{ W.stack = ms }) r
modifyLayoutWithUpdate (TrackFloating mw) ws@W.Workspace{ W.stack = ms } r
= do
xCur <- gets (W.peek . W.view (W.tag ws) . windowset)
let isF = xCur /= (W.focus <$> ms)
@@ -67,12 +67,12 @@ instance LayoutModifier TrackFloating Window where
on the window named by the WM_TRANSIENT_FOR property on the floating window.
-}
useTransientFor :: l a -> ModifiedLayout UseTransientFor l a
useTransientFor x = ModifiedLayout UseTransientFor x
useTransientFor = ModifiedLayout UseTransientFor
data UseTransientFor a = UseTransientFor deriving (Read,Show,Eq)
instance LayoutModifier UseTransientFor Window where
modifyLayout _ ws@(W.Workspace{ W.stack = ms }) r = do
modifyLayout _ ws@W.Workspace{ W.stack = ms } r = do
m <- gets (W.peek . W.view (W.tag ws) . windowset)
d <- asks display
parent <- join <$> T.traverse (io . getTransientForHint d) m
@@ -128,7 +128,7 @@ window regardless of which tiled window was focused before.
-}
trackFloating :: l a -> ModifiedLayout TrackFloating l a
trackFloating layout = ModifiedLayout (TrackFloating Nothing) layout
trackFloating = ModifiedLayout (TrackFloating Nothing)
{- $layoutModifier
It also corrects focus issues for full-like layouts inside other layout