223 lines
8.9 KiB
Haskell
223 lines
8.9 KiB
Haskell
-- Import
|
|
import XMonad
|
|
|
|
-- Actions
|
|
import XMonad.Actions.PhysicalScreens
|
|
import Data.Default
|
|
|
|
-- Hooks
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Hooks.EwmhDesktops
|
|
import XMonad.Hooks.InsertPosition
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Hooks.ManageHelpers
|
|
import XMonad.Hooks.StatusBar
|
|
import XMonad.Hooks.StatusBar.PP
|
|
|
|
-- Layouts
|
|
import XMonad.Layout.Grid
|
|
import XMonad.Layout.Spiral
|
|
import XMonad.Layout.Tabbed
|
|
import XMonad.Layout.ThreeColumns
|
|
|
|
-- Layout modifiers
|
|
import XMonad.Layout.LayoutCombinators
|
|
import XMonad.Layout.Magnifier
|
|
import XMonad.Layout.PerWorkspace
|
|
import XMonad.Layout.Renamed
|
|
|
|
-- Util
|
|
import XMonad.Util.EZConfig
|
|
import XMonad.Util.Loggers
|
|
import XMonad.Util.NamedScratchpad
|
|
import XMonad.Util.SpawnOnce
|
|
|
|
-- Extra keys
|
|
import Graphics.X11.ExtraTypes.XF86
|
|
|
|
import qualified XMonad.StackSet as W
|
|
|
|
-- Main
|
|
main :: IO ()
|
|
main = xmonad
|
|
. ewmhFullscreen
|
|
. ewmh
|
|
. withEasySB (xmobar1 <> xmobar2) defToggleStrutsKey
|
|
$ myConfig
|
|
|
|
-- Variables
|
|
myModMask :: KeyMask
|
|
myModMask = mod4Mask
|
|
|
|
myTerminal :: String
|
|
myTerminal = "kitty"
|
|
|
|
myBrowser :: String
|
|
myBrowser = "vivaldi"
|
|
|
|
myNormBorderColor :: String
|
|
myNormBorderColor = "#000000"
|
|
|
|
myFocusBorderColor :: String
|
|
myFocusBorderColor = "#006700"
|
|
|
|
myKeyboardLayoutIT :: String
|
|
myKeyboardLayoutIT = " -layout it"
|
|
myKeyboardLayoutUS = " -layout us"
|
|
myKeyboardLayoutSK = " -layout sk -variant qwerty"
|
|
|
|
myScreenshotDir :: String
|
|
myScreenshotDir = "/home/fuxino/Pictures/Screenshots/"
|
|
|
|
myScreenshotName :: String
|
|
myScreenshotName = "Screenshot-%Y-%m-%d-%H%M%S.png"
|
|
|
|
myScratchpads :: [NamedScratchpad]
|
|
myScratchpads =
|
|
[ NS "Windscribe" "windscribe" (className =? "Windscribe2") (customFloating $ W.RationalRect 0.4 0.4 0.6 0.6)
|
|
, NS "Terminal" spawnTerminal (title =? "kitty-float") (customFloating $ W.RationalRect 0.2 0.2 0.6 0.6)
|
|
, NS "Music" spawnMusic (title =? "ncmpcpp") (customFloating $ W.RationalRect 0.2 0.2 0.6 0.6)
|
|
, NS "Mail" spawnMail (title =? "mutt") (customFloating $ W.RationalRect 0.2 0.2 0.6 0.6)
|
|
]
|
|
where
|
|
spawnTerminal = myTerminal ++ " -T kitty-float"
|
|
spawnMusic = myTerminal ++ " -T ncmpcpp ncmpcpp"
|
|
spawnMail = myTerminal ++ " -T mutt mutt"
|
|
|
|
-- Config
|
|
myConfig = def
|
|
{ modMask = myModMask
|
|
, terminal = myTerminal
|
|
, workspaces = myWorkspaces
|
|
, focusedBorderColor = myFocusBorderColor
|
|
, normalBorderColor = myNormBorderColor
|
|
, layoutHook = myLayoutHook
|
|
, startupHook = myStartupHook
|
|
, manageHook = myManageHook
|
|
}
|
|
`additionalKeysP`
|
|
[ ("M-S-l" , spawn "slock" )
|
|
, ("<Print>" , unGrab *> (spawn $ "scrot " ++ myScreenshotDir ++ myScreenshotName) )
|
|
, ("S-<Print>" , unGrab *> (spawn $ "scrot -s " ++ myScreenshotDir ++ myScreenshotName) )
|
|
, ("M-S-<Print>" , unGrab *> (spawn $ "scrot -u " ++ myScreenshotDir ++ myScreenshotName) )
|
|
, ("M-d" , spawn "dmenu_run" )
|
|
, ("M-p" , spawn "passmenu -i" )
|
|
, ("M-f" , sendMessage $ JumpToLayout "Tabbed" )
|
|
, ("M-i" , spawn $ "setxkbmap" ++ myKeyboardLayoutIT )
|
|
, ("M-u" , spawn $ "setxkbmap" ++ myKeyboardLayoutUS )
|
|
, ("M-s" , spawn $ "setxkbmap" ++ myKeyboardLayoutSK )
|
|
, ("M-S-v" , namedScratchpadAction myScratchpads "Windscribe" )
|
|
, ("M-S-s" , namedScratchpadAction myScratchpads "Terminal" )
|
|
]
|
|
`additionalKeys`
|
|
[ ((0, xF86XK_AudioMute) , spawn "pactl set-sink-mute $(pactl get-default-sink) toggle" )
|
|
, ((0, xF86XK_AudioLowerVolume) , spawn "pactl set-sink-volume $(pactl get-default-sink) -10%" )
|
|
, ((0, xF86XK_AudioRaiseVolume) , spawn "pactl set-sink-volume $(pactl get-default-sink) +10%" )
|
|
, ((0, xF86XK_Calculator) , spawn "galculator" )
|
|
, ((0, xF86XK_HomePage) , spawn myBrowser )
|
|
, ((0, xF86XK_Mail) , namedScratchpadAction myScratchpads "Mail" )
|
|
, ((0, xF86XK_Tools) , namedScratchpadAction myScratchpads "Music" )
|
|
]
|
|
++
|
|
[((myModMask .|. mask, key), f sc)
|
|
| (key, sc) <- zip [xK_w, xK_e] [0..]
|
|
, (f, mask) <- [(viewScreen def, 0), (sendToScreen def, shiftMask)]
|
|
]
|
|
|
|
-- Workspaces
|
|
myWorkspaces :: [String]
|
|
myWorkspaces = [ "1:\xf489 ", "2:\xe743 ", "3:\xf1b6 ", "4:\xf10b ", "5:\xead9 ", "6:\xeb69 " ] ++ map show [7..9]
|
|
|
|
-- Layout
|
|
myLayoutHook = onWorkspace "2:\xe743 " myWebLayout $ onWorkspace "3:\xf1b6 " myGamesLayout $ myDefaultLayout
|
|
where
|
|
myWebLayout = avoidStruts $ myTabbed ||| tiled ||| Mirror tiled ||| threeCol ||| Grid ||| spiral(0.856)
|
|
myGamesLayout = avoidStruts $ Full
|
|
myDefaultLayout = avoidStruts $ tiled ||| Mirror tiled ||| myTabbed ||| threeCol ||| Grid ||| spiral(0.856)
|
|
threeCol
|
|
= renamed [Replace "ThreeCol"]
|
|
$ magnifiercz' 1.3
|
|
$ ThreeColMid nmaster delta ratio
|
|
myTabbed
|
|
= renamed [Replace "Tabbed"]
|
|
$ tabbed shrinkText myTabConfig
|
|
myTabConfig = def { activeColor = "#393939"
|
|
, inactiveColor = "#191b1c"
|
|
}
|
|
tiled = Tall nmaster delta ratio
|
|
nmaster = 1
|
|
ratio = 1/2
|
|
delta = 3/100
|
|
|
|
-- Xmobar
|
|
xmobar1 = statusBarProp "xmobar -x 0 ~/.config/xmobar/xmobarrc_laptop" (pure myXmobarPP)
|
|
xmobar2 = statusBarProp "xmobar -x 1 ~/.config/xmobar/xmobarrc_hdmi" (pure myXmobarPP)
|
|
|
|
myXmobarPP :: PP
|
|
myXmobarPP = def
|
|
{ ppSep = darkgreen " • "
|
|
, ppTitleSanitize = xmobarStrip
|
|
, ppCurrent = wrap " " "" . xmobarBorder "Top" "#8be9fd" 2
|
|
, ppHidden = white . wrap " " ""
|
|
, ppHiddenNoWindows = lowWhite . wrap " " ""
|
|
, ppUrgent = red . wrap (yellow "!") (yellow "!")
|
|
, ppOrder = \[ws, l, _, wins] -> [ws, l, wins]
|
|
, ppExtras = [logTitles formatFocused formatUnfocused]
|
|
}
|
|
where
|
|
formatFocused = wrap (white "[") (white "]") . darkgreen . ppWindow
|
|
formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . white . ppWindow
|
|
|
|
ppWindow :: String -> String
|
|
ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 25
|
|
|
|
lowWhite, darkgreen, red, white, yellow :: String -> String
|
|
darkgreen = xmobarColor "#013220" ""
|
|
white = xmobarColor "#f8f8f2" ""
|
|
yellow = xmobarColor "#f1fa8c" ""
|
|
red = xmobarColor "#ff5555" ""
|
|
lowWhite = xmobarColor "#bbbbbb" ""
|
|
|
|
-- Autostart
|
|
myStartupHook :: X ()
|
|
myStartupHook = do
|
|
spawnOnce "xcompmgr -c -C -t-5 -l-5 -r4.2 -o.55"
|
|
spawnOnce "xsetroot -cursor_name left_ptr"
|
|
spawnOnce "mons -e left && ~/.fehbg"
|
|
spawnOnce "xautolock -time 10 -locker slock -detectsleep"
|
|
spawnOnce "trayer --edge top --align right --SetDockType true \
|
|
\--SetPartialStrut true --expand true --width 7 \
|
|
\--transparent true --tint 0x1f2022 --height 18 \
|
|
\--monitor 0"
|
|
spawnOnce "redshift-gtk"
|
|
spawnOnce "udiskie"
|
|
spawnOnce "nm-applet"
|
|
spawnOnce "discover-overlay"
|
|
spawnOnce "arch-audit-gtk"
|
|
spawnOnce "dunst"
|
|
|
|
-- Manage hook
|
|
myManageHook :: ManageHook
|
|
myManageHook = composeAll
|
|
[ className =? "Galculator" --> doFloat
|
|
, className =? "Gpodder" --> doShift "5:\xead9 "
|
|
, className =? "Signal" --> doShift "4:\xf10b "
|
|
, className =? "Vivaldi-stable" --> doShift "2:\xe743 "
|
|
, className =? "Xmessage" --> doFloat
|
|
, className =? "Xreader" --> doShift "6:\xeb69 "
|
|
, className =? "Xscreensaver-settings" --> doFloat
|
|
, className =? "Xviewer" --> doFloat
|
|
, className =? "calibre" --> doShift "6:\xeb69 "
|
|
, className =? "discord" --> doShift "4:\xf10b "
|
|
, className =? myTerminal --> doShift "1:\xf489 "
|
|
, className =? "libreoffice-calc" --> doShift "6:\xeb69 "
|
|
, className =? "libreoffice-writer" --> doShift "6:\xeb69 "
|
|
, className =? "mpv" --> doFullFloat
|
|
, className =? "mpv" --> doShift "5:\xead9 "
|
|
, className =? "steam" --> doShift "3:\xf1b6 "
|
|
, className =? "steam_app_109600" --> doFloat
|
|
, className =? "transmission-gtk" --> doShift "2:\xe743 "
|
|
, isDialog --> doFloat
|
|
, isFullscreen --> doFullFloat
|
|
] <+> namedScratchpadManageHook myScratchpads
|