wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Add magnifier toggle

Browse Source
This commit is contained in:
Ivan Malison 2021-08-03 13:03:23 -06:00
parent bcce0c9210
commit 3f6550d1f4
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dotfiles/config/xmonad/xmonad.hs
View File

@ -57,7 +57,6 @@ import XMonad.Hooks.FadeInactive
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.Minimize import XMonad.Hooks.Minimize
import qualified XMonad.Operations
import XMonad.Hooks.TaffybarPagerHints import XMonad.Hooks.TaffybarPagerHints
import XMonad.Hooks.WorkspaceHistory import XMonad.Hooks.WorkspaceHistory
import XMonad.Layout.Accordion import XMonad.Layout.Accordion
@ -67,6 +66,7 @@ import XMonad.Layout.LayoutCombinators
import XMonad.Layout.LayoutModifier import XMonad.Layout.LayoutModifier
import XMonad.Layout.LimitWindows import XMonad.Layout.LimitWindows
import XMonad.Layout.MagicFocus import XMonad.Layout.MagicFocus
import XMonad.Layout.Magnifier hiding (Toggle)
import XMonad.Layout.Minimize import XMonad.Layout.Minimize
import XMonad.Layout.MultiColumns import XMonad.Layout.MultiColumns
import XMonad.Layout.MultiToggle import XMonad.Layout.MultiToggle
@ -76,6 +76,7 @@ import qualified XMonad.Layout.Renamed as RN
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Main (launch) import XMonad.Main (launch)
import qualified XMonad.Operations
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.CustomKeys import XMonad.Util.CustomKeys
import qualified XMonad.Util.Dmenu as DM import qualified XMonad.Util.Dmenu as DM
@ -258,14 +259,16 @@ data MyToggles
= LIMIT = LIMIT
| GAPS | GAPS
| MAGICFOCUS | MAGICFOCUS
| MAGNIFY
deriving (Read, Show, Eq, Typeable) deriving (Read, Show, Eq, Typeable)
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 5 x) unmodifyLayout
transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout
transform MAGNIFY x k = k (magnify (1.3) (AllWins 1) True x) unmodifyLayout
myToggles = [LIMIT, GAPS, MAGICFOCUS] myToggles = [LIMIT, GAPS, MAGICFOCUS, MAGNIFY]
otherToggles = [NBFULL, MIRROR, NOBORDERS, SMARTBORDERS] otherToggles = [NBFULL, MIRROR, NOBORDERS, SMARTBORDERS]
toggleHandlers = [(Toggle GAPS, toggleAll)] toggleHandlers = [(Toggle GAPS, toggleAll)]
@ -378,6 +381,9 @@ myLayoutHook =
mkToggle1 GAPS . mkToggle1 GAPS .
mkToggle1 MAGICFOCUS . mkToggle1 MAGICFOCUS .
mkToggle1 NBFULL . mkToggle1 NBFULL .
mkToggle1 MAGNIFY .
mkToggle1 NOBORDERS .
mkToggle1 SMARTBORDERS .
lessBorders Screen $ fst layoutInfo lessBorders Screen $ fst layoutInfo
-- WindowBringer -- WindowBringer