colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Increase default gap size

Browse Source
This commit is contained in:
Ivan Malison 2017-07-22 20:14:35 -07:00
parent 0f3908c02d
commit 35750a2715
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/xmonad/xmonad.hs
View File

@ -1,7 +1,6 @@
{-# LANGUAGE DeriveDataTypeable, TypeSynonymInstances, {-# LANGUAGE DeriveDataTypeable, TypeSynonymInstances,
MultiParamTypeClasses, ExistentialQuantification, MultiParamTypeClasses, ExistentialQuantification,
FlexibleInstances, FlexibleContexts, StandaloneDeriving, FlexibleInstances, FlexibleContexts, ScopedTypeVariables #-}
ScopedTypeVariables #-}
module Main where module Main where
import qualified Control.Arrow as A import qualified Control.Arrow as A
@ -248,7 +247,7 @@ data MyToggles
instance Transformer MyToggles Window where instance Transformer MyToggles Window where
transform LIMIT x k = k (limitSlice 2 x) unmodifyLayout transform LIMIT x k = k (limitSlice 2 x) unmodifyLayout
transform GAPS x k = k (smartSpacing 5 x) unmodifyLayout transform GAPS x k = k (smartSpacing 10 x) unmodifyLayout
transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout
myToggles = [LIMIT, GAPS, MAGICFOCUS] myToggles = [LIMIT, GAPS, MAGICFOCUS]
@ -311,7 +310,7 @@ setToggleActive toggle active ws =
-- Ambiguous type reference without signature -- Ambiguous type reference without signature
setToggleActiveCurrent :: (Transformer t Window) => t -> Bool -> X () setToggleActiveCurrent :: (Transformer t Window) => t -> Bool -> X ()
setToggleActiveCurrent t a = void $ currentWorkspace >>= (setToggleActive t a) setToggleActiveCurrent t a = void $ currentWorkspace >>= setToggleActive t a
setToggleActiveAll :: (Transformer t Window) => t -> Bool -> X () setToggleActiveAll :: (Transformer t Window) => t -> Bool -> X ()
setToggleActiveAll t a = void $ mapWorkspaces (setToggleActive t a) setToggleActiveAll t a = void $ mapWorkspaces (setToggleActive t a)