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

Update XMonad config

Browse Source
This commit is contained in:
daniele 2024-04-03 20:02:40 +02:00
parent b5fd9401ac
commit ca8789f3bb
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514
1 changed files with 59 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
.config/xmonad/xmonad.hs
View File

@ -29,6 +29,7 @@ import XMonad.Layout.Renamed
-- Util -- Util
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
import XMonad.Util.Loggers import XMonad.Util.Loggers
import XMonad.Util.NamedScratchpad
import XMonad.Util.SpawnOnce import XMonad.Util.SpawnOnce
-- Extra keys -- Extra keys
@ -45,40 +46,75 @@ main = xmonad
$ myConfig $ myConfig
-- Variables -- Variables
myModMask = mod4Mask myModMask :: KeyMask
myModMask = mod4Mask
myTerminal :: String myTerminal :: String
myTerminal = "kitty" 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)
]
where
spawnTerminal = myTerminal ++ " -T kitty-float"
spawnMusic = myTerminal ++ " -T ncmpcpp ncmpcpp"
-- Config -- Config
myConfig = def myConfig = def
{ modMask = myModMask { modMask = myModMask
, terminal = myTerminal , terminal = myTerminal
, workspaces = myWorkspaces , workspaces = myWorkspaces
, focusedBorderColor = "#006700" , focusedBorderColor = myFocusBorderColor
, normalBorderColor = "#000000" , normalBorderColor = myNormBorderColor
, layoutHook = myLayout , layoutHook = myLayoutHook
, startupHook = myStartupHook , startupHook = myStartupHook
, manageHook = myManageHook , manageHook = myManageHook
} }
`additionalKeysP` `additionalKeysP`
[ ("M-S-l" , spawn "slock" ) [ ("M-S-l" , spawn "slock" )
, ("M-<Print>" , unGrab *> spawn "gnome-screenshot -i" ) , ("<Print>" , unGrab *> (spawn $ "scrot " ++ myScreenshotDir ++ myScreenshotName) )
, ("M-d" , spawn "dmenu_run" ) , ("S-<Print>" , unGrab *> (spawn $ "scrot -s " ++ myScreenshotDir ++ myScreenshotName) )
, ("M-p" , spawn "passmenu -i" ) , ("M-S-<Print>" , unGrab *> (spawn $ "scrot -u " ++ myScreenshotDir ++ myScreenshotName) )
, ("M-f" , sendMessage $ JumpToLayout "Tabbed" ) , ("M-d" , spawn "dmenu_run" )
, ("M-i" , spawn "setxkbmap -layout it,us,sk -variant ,,qwerty" ) , ("M-p" , spawn "passmenu -i" )
, ("M-u" , spawn "setxkbmap -layout us,it,sk -variant ,,qwerty" ) , ("M-f" , sendMessage $ JumpToLayout "Tabbed" )
, ("M-s" , spawn "setxkbmap -layout sk,it,us -variant qwerty,," ) , ("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` `additionalKeys`
[ ((0, xF86XK_AudioMute) , spawn "pactl set-sink-mute $(pactl get-default-sink) toggle" ) [ ((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_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_AudioRaiseVolume) , spawn "pactl set-sink-volume $(pactl get-default-sink) +10%" )
, ((0, xF86XK_Calculator) , spawn "galculator" ) , ((0, xF86XK_Calculator) , spawn "galculator" )
, ((0, xF86XK_HomePage) , spawn "vivaldi" ) , ((0, xF86XK_HomePage) , spawn myBrowser )
, ((0, xF86XK_Mail) , spawn "kitty mutt" ) , ((0, xF86XK_Mail) , spawn $ myTerminal ++ " mutt" )
, ((0, xF86XK_Tools) , spawn "kitty ncmpcpp" ) , ((0, xF86XK_Tools) , namedScratchpadAction myScratchpads "Music" )
] ]
++ ++
[((myModMask .|. mask, key), f sc) [((myModMask .|. mask, key), f sc)
@ -91,7 +127,7 @@ myWorkspaces :: [String]
myWorkspaces = [ "1:\xf489 ", "2:\xe743 ", "3:\xf1b6 ", "4:\xf10b ", "5:\xead9 ", "6:\xeb69 " ] ++ map show [7..9] myWorkspaces = [ "1:\xf489 ", "2:\xe743 ", "3:\xf1b6 ", "4:\xf10b ", "5:\xead9 ", "6:\xeb69 " ] ++ map show [7..9]
-- Layout -- Layout
myLayout = onWorkspace "2:\xe743 " myWebLayout $ onWorkspace "3:\xf1b6 " myGamesLayout $ myDefaultLayout myLayoutHook = onWorkspace "2:\xe743 " myWebLayout $ onWorkspace "3:\xf1b6 " myGamesLayout $ myDefaultLayout
where where
myWebLayout = avoidStruts $ myTabbed ||| tiled ||| Mirror tiled ||| threeCol ||| Grid ||| spiral(0.856) myWebLayout = avoidStruts $ myTabbed ||| tiled ||| Mirror tiled ||| threeCol ||| Grid ||| spiral(0.856)
myGamesLayout = avoidStruts $ Full myGamesLayout = avoidStruts $ Full
@ -112,8 +148,8 @@ myLayout = onWorkspace "2:\xe743 " myWebLayout $ onWorkspace "3:\xf1b6 " myGames
delta = 3/100 delta = 3/100
-- Xmobar -- Xmobar
xmobar1 = statusBarProp "xmobar -x 0 ~/.config/xmobar/xmobarrc_laptop" (pure myXmobarPP) xmobar1 = statusBarProp "xmobar -x 0 ~/.config/xmobar/xmobarrc_laptop" (pure myXmobarPP)
xmobar2 = statusBarProp "xmobar -x 1 ~/.config/xmobar/xmobarrc_hdmi" (pure myXmobarPP) xmobar2 = statusBarProp "xmobar -x 1 ~/.config/xmobar/xmobarrc_hdmi" (pure myXmobarPP)
myXmobarPP :: PP myXmobarPP :: PP
myXmobarPP = def myXmobarPP = def
@ -133,9 +169,8 @@ myXmobarPP = def
ppWindow :: String -> String ppWindow :: String -> String
ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 25 ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 25
blue, lowWhite, darkgreen, red, white, yellow :: String -> String lowWhite, darkgreen, red, white, yellow :: String -> String
darkgreen = xmobarColor "#013220" "" darkgreen = xmobarColor "#013220" ""
blue = xmobarColor "#bd93f9" ""
white = xmobarColor "#f8f8f2" "" white = xmobarColor "#f8f8f2" ""
yellow = xmobarColor "#f1fa8c" "" yellow = xmobarColor "#f1fa8c" ""
red = xmobarColor "#ff5555" "" red = xmobarColor "#ff5555" ""
@ -144,6 +179,7 @@ myXmobarPP = def
-- Autostart -- Autostart
myStartupHook :: X () myStartupHook :: X ()
myStartupHook = do myStartupHook = do
spawnOnce "xcompmgr -c -C -t-5 -l-5 -r4.2 -o.55"
spawnOnce "xsetroot -cursor_name left_ptr" spawnOnce "xsetroot -cursor_name left_ptr"
spawnOnce "mons -e left && ~/.fehbg" spawnOnce "mons -e left && ~/.fehbg"
spawnOnce "xautolock -time 10 -locker slock -detectsleep" spawnOnce "xautolock -time 10 -locker slock -detectsleep"
@ -156,7 +192,6 @@ myStartupHook = do
spawnOnce "nm-applet" spawnOnce "nm-applet"
spawnOnce "discover-overlay" spawnOnce "discover-overlay"
spawnOnce "arch-audit-gtk" spawnOnce "arch-audit-gtk"
spawnOnce "xcompmgr"
spawnOnce "dunst" spawnOnce "dunst"
-- Manage hook -- Manage hook
@ -166,15 +201,13 @@ myManageHook = composeAll
, className =? "Gpodder" --> doShift "5:\xead9 " , className =? "Gpodder" --> doShift "5:\xead9 "
, className =? "Signal" --> doShift "4:\xf10b " , className =? "Signal" --> doShift "4:\xf10b "
, className =? "Vivaldi-stable" --> doShift "2:\xe743 " , className =? "Vivaldi-stable" --> doShift "2:\xe743 "
, className =? "Windscribe2" --> doShift "9"
, className =? "Windscribe2" --> doRectFloat (W.RationalRect 0.4 0.4 0.6 0.6)
, className =? "Xmessage" --> doFloat , className =? "Xmessage" --> doFloat
, className =? "Xreader" --> doShift "6:\xeb69 " , className =? "Xreader" --> doShift "6:\xeb69 "
, className =? "Xscreensaver-settings" --> doFloat , className =? "Xscreensaver-settings" --> doFloat
, className =? "Xviewer" --> doFloat , className =? "Xviewer" --> doFloat
, className =? "calibre" --> doShift "6:\xeb69 " , className =? "calibre" --> doShift "6:\xeb69 "
, className =? "discord" --> doShift "4:\xf10b " , className =? "discord" --> doShift "4:\xf10b "
, className =? "kitty" --> doShift "1:\xf489 " , className =? myTerminal --> doShift "1:\xf489 "
, className =? "libreoffice-calc" --> doShift "6:\xeb69 " , className =? "libreoffice-calc" --> doShift "6:\xeb69 "
, className =? "libreoffice-writer" --> doShift "6:\xeb69 " , className =? "libreoffice-writer" --> doShift "6:\xeb69 "
, className =? "mpv" --> doFullFloat , className =? "mpv" --> doFullFloat
@ -184,4 +217,4 @@ myManageHook = composeAll
, className =? "transmission-gtk" --> doShift "2:\xe743 " , className =? "transmission-gtk" --> doShift "2:\xe743 "
, isDialog --> doFloat , isDialog --> doFloat
, isFullscreen --> doFullFloat , isFullscreen --> doFullFloat
] ] <+> namedScratchpadManageHook myScratchpads