hektor
/
dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Refactor

master
Hektor Misplon 2023-06-04 15:20:52 +02:00
parent b60c8514b7
commit 5a0b4ef2b8
1 changed files with 11 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
.xmonad/xmonad.hs
View File

@ -1,34 +1,24 @@
-- {{{ -- {{{
import XMonad import XMonad
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicProperty
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP import XMonad.Hooks.StatusBar.PP
import XMonad.Layout.Magnifier import XMonad.Layout.CenteredIfSingle
import qualified XMonad.Layout.Magnifier as Mag (MagnifyMsg (..))
import XMonad.Layout.NoBorders (hasBorder, smartBorders)
import XMonad.Layout.PerScreen
import XMonad.Layout.ResizableTile
import XMonad.Layout.Spacing
import XMonad.Layout.ThreeColumns
import XMonad.Layout.ToggleLayouts
( ToggleLayout (..),
toggleLayouts,
)
import XMonad.Layout.IndependentScreens import XMonad.Layout.IndependentScreens
import XMonad.Layout.WindowNavigation import XMonad.Layout.PerScreen
import XMonad.Layout.Renamed
import XMonad.Layout.ShowWName
import XMonad.Layout.ThreeColumns
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
import qualified XMonad.Util.Hacks as Hacks import qualified XMonad.Util.Hacks as Hacks
import XMonad.Util.Loggers import XMonad.Util.Loggers
import XMonad.Util.Paste import XMonad.Util.Paste
import XMonad.Util.Run
( spawnExternalProcess,
spawnPipe,
)
import XMonad.Util.Ungrab
-- }}} -- }}}
-- Statusbar {{{ -- Statusbar {{{
@ -146,8 +136,7 @@ myConfig =
{ terminal = "alacritty", { terminal = "alacritty",
-- Use Win key instead of Alt -- Use Win key instead of Alt
modMask = mod4Mask, modMask = mod4Mask,
-- , workspaces = ["α", "β", "γ", "δ", "ε", "ζ", "η"] workspaces = withScreen 1 myWorkspaces ++ withScreen 2 mySharedWorkspaces,
workspaces = withScreen 0 myWorkspaces ++ withScreen 1 mySharedWorkspaces,
-- Styling -- Styling
focusedBorderColor = "#000", focusedBorderColor = "#000",
normalBorderColor = "#0000", normalBorderColor = "#0000",
@ -263,6 +252,7 @@ resetTemp = spawn "echo 3000 > /tmp/temperature && redshift -x"
-- Main {{{ -- Main {{{
main :: IO ()
main = do xmonad main = do xmonad
$ ewmh $ ewmh
$ withEasySB $ withEasySB
@ -270,7 +260,6 @@ main = do xmonad
defToggleStrutsKey defToggleStrutsKey
myConfig myConfig
where where
sb1 = statusBarProp "xmobar" $ pure (pp' (S 0) pp) [sb1, sb2] = [statusBarProp "xmobar" $ pure (pp' (S i) pp) | i <- [0..1]]
sb2 = statusBarProp "xmobar" $ pure (pp' (S 1) pp)
-- }}} -- }}}