sravan/xmonad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
xmonad/xmonad.hs
Sravan Balaji a6d1175a5a Fix Spacing, Rofi Keybindings, & Use ~/.scripts 
- Fix spacing around and between windows
- Add keybindings for rofi-rbw & control center
- Replace keybindings for actions with rofi menu
- Move system restore processes to the end of startup hook
- Use scripts in ~/.scripts with command line arguments where possible
- Remove unnecessary shebangs at the start of scripts
- Replace polybar powermenu with clickable icon that launches rofi
2021-05-16 14:17:24 -04:00

276 lines
11 KiB
Haskell
Raw Blame History

import XMonad hiding ( (|||) )
import XMonad.Layout.LayoutCombinators (JumpToLayout(..), (|||))
import XMonad.Config.Desktop
import Data.Monoid
import System.Exit
import qualified XMonad.StackSet as W
import qualified Data.Map as M
-- util
import XMonad.Util.Run (safeSpawn, unsafeSpawn, runInTerm, spawnPipe)
import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig (additionalKeysP, additionalMouseBindings)
-- hooks
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksStartupHook, manageDocks, ToggleStruts(..))
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers (isFullscreen, isDialog, doFullFloat, doCenterFloat, doRectFloat)
import XMonad.Hooks.Place (placeHook, withGaps, smart)
-- actions
import XMonad.Actions.CopyWindow
import XMonad.Actions.CycleWS
-- layout
import XMonad.Layout.NoBorders
import XMonad.Layout.Spacing (spacingRaw, Border(Border))
import XMonad.Layout.GridVariants (Grid(Grid))
import XMonad.Layout.ResizableTile
myTerminal = "kitty"
myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True
myClickJustFocuses :: Bool
myClickJustFocuses = False
myBorderWidth = 2
myNormalBorderColor = "#4D4D4D"
myFocusedBorderColor = "#BD93F9"
myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
myModMask = mod4Mask
myKeys =
[
-- dwm-like add window to a specific workspace
("M-" ++ m ++ k, windows $ f i)
| (i, k) <- zip (myWorkspaces) (map show [1 :: Int ..])
, (f, m) <- [(W.view, ""), (W.shift, "S-"), (copy, "S-C-")]
]
++
[
-- dwm-like add/remove window to/from all workspaces
("M-C-S-a", windows copyToAll) -- copy window to all workspaces
, ("M-C-S-z", killAllOtherCopies) -- kill copies of window on other workspaces
-- modify tiled window size
, ("M-a", sendMessage MirrorShrink) -- decrease vertical window size
, ("M-z", sendMessage MirrorExpand) -- increase vertical window size
-- toggle struts for xmobar
, ("M-s", sendMessage ToggleStruts)
-- switch directly to a layout with and without flattening floating windows
, ("M-f", sendMessage $ JumpToLayout "Full")
, ("M-S-f", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Full"])
, ("M-t", sendMessage $ JumpToLayout "Spacing ResizableTall")
, ("M-S-t", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Spacing ResizableTall"])
, ("M-g", sendMessage $ JumpToLayout "Spacing Grid")
, ("M-S-g", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Spacing Grid"])
-- cycle & move between screens
, ("M-,", prevScreen)
, ("M-S-,", shiftPrevScreen)
, ("M-C-S-,", swapPrevScreen)
, ("M-.", nextScreen)
, ("M-S-.", shiftNextScreen)
, ("M-C-S-.", swapNextScreen)
-- launch rofi
, ("M-p", spawn "rofi -show combi")
, ("M-S-p", spawn "/home/sravan/.scripts/control-center.sh --rofi")
, ("M-c", spawn "rofi -show clipboard")
, ("M-b", spawn "rofi-rbw")
-- volume control
, ("<XF86AudioRaiseVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ +1%") -- increase volume
, ("<XF86AudioLowerVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ -1%") -- decrease volume
, ("<XF86AudioMute>", spawn "pactl set-sink-mute @DEFAULT_SINK@ toggle") -- mute volume
-- media control
, ("<XF86AudioPlay>", spawn "/home/sravan/.scripts/playerctl.sh --play-pause") -- play / pause
, ("M-m", spawn "/home/sravan/.scripts/playerctl.sh --rofi") -- rofi menu
-- notification control
, ("M-n", spawn "/home/sravan/.scripts/dunst.sh --rofi") -- rofi menu
-- session control
, ("M-q", spawn "/home/sravan/.scripts/session.sh --rofi") -- rofi menu
-- close focused window
, ("M-S-c", kill) -- regular kill
, ("M-C-S-c", spawn "xkill") -- force kill
-- compositor control
, ("M-<Esc>", spawn "/home/sravan/.scripts/picom.sh --rofi")
-- screenshot
, ("<Print>", spawn "flameshot gui")
]
myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
-- mod-button1, Set the window to floating mode and move by dragging
[ ((modm, button1), (\w -> focus w >> mouseMoveWindow w
>> windows W.shiftMaster))
-- mod-button2, Raise the window to the top of the stack
, ((modm, button2), (\w -> focus w >> windows W.shiftMaster))
-- mod-button3, Set the window to floating mode and resize by dragging
, ((modm, button3), (\w -> focus w >> mouseResizeWindow w
>> windows W.shiftMaster))
-- you may also bind events to the mouse scroll wheel (button4 and button5)
]
myLayout =
avoidStruts ( tiled ||| grid ||| monocle )
where
-- Gaps around and between windows
-- Changes only seem to apply if I log out then in again
-- Dimensions are given as (Border top bottom right left)
mySpacing = spacingRaw False -- Only for >1 window
-- The bottom edge seems to look narrower than it is
(Border 10 15 15 15) -- Size of screen edge gaps
True -- Enable screen edge gaps
(Border 10 10 10 10) -- Size of window gaps
True -- Enable window gaps
-- default tiling algorithm partitions the screen into two panes
nmaster = 1
delta = 3/100
tiled_ratio = 1/2
tiled = mySpacing $ ResizableTall nmaster delta tiled_ratio []
-- grid
grid_ratio = 16/9
grid = mySpacing $ Grid grid_ratio
-- monocle
-- monocle = smartBorders (Full)
monocle = noBorders (Full)
myManageHook = composeAll
[ className =? "MPlayer" --> doFloat
, className =? "Gimp" --> doFloat
, resource =? "desktop_window" --> doIgnore
, resource =? "kdesktop" --> doIgnore
, title =? "Picture in picture" --> doFloat
]
myPlacement = withGaps (16,0,16,0) (smart (0.5,0.5))
myEventHook = ewmhDesktopsEventHook
myStartupHook = do
-- System Tray Applications
spawnOnce "nyrna &" -- Nyrna Application Suspend
spawnOnce "blueman-applet &" -- Blueman Bluetooth Manager
spawnOnce "nm-applet &" -- Network Manager Applet
spawnOnce "kdeconnect-indicator &" -- KDE Connect
spawnOnce "flameshot &" -- Flameshot Screenshot Tool
spawnOnce "xfce4-power-manager &" -- XFCE4 Power Manager
-- Background Processes
spawnOnce "/home/sravan/.scripts/picom.sh --on &" -- Picom Compositor
spawnOnce "/home/sravan/.scripts/dunst.sh --on &" -- Dunst Notification Daemon
spawnOnce "greenclip daemon &" -- Greenclip Clipboard Manager
spawnOnce "redshift -x &" -- Reset redshift display gamma
spawnOnce "redshift-gtk &" -- Redshift Blue Light Filter
spawnOnce "/usr/lib/polkit-gnome/polkit-gnome-authentication-agent-1 &" -- GNOME Polkit Authentication Agent
spawnOnce "light-locker --lock-on-suspend --lock-on-lid &" -- screen lock for lightdm
-- System Restore Processes
spawnOnce "/home/sravan/.screenlayout/default.sh &" -- restore default screen layout
spawnOnce "nitrogen --restore &" -- restore wallpaper
spawnOnce "numlockx on &" -- enable numlock
main = do
-- launches polybar
spawn "/home/sravan/.xmonad/polybar/launch.sh &"
-- launches xmonad
xmonad $ docks $ ewmh desktopConfig
{ manageHook = manageDocks <+> myManageHook <+> placeHook myPlacement <+> manageHook desktopConfig
, startupHook = myStartupHook
, layoutHook = myLayout
, borderWidth = myBorderWidth
, terminal = myTerminal
, modMask = myModMask
, normalBorderColor = myNormalBorderColor
, focusedBorderColor = myFocusedBorderColor
, handleEventHook = myEventHook
, focusFollowsMouse = myFocusFollowsMouse
, clickJustFocuses = myClickJustFocuses
, workspaces = myWorkspaces
, mouseBindings = myMouseBindings
-- , logHook = myLogHook
-- , keys = myKeys
}
`additionalKeysP` myKeys
help :: String
help = unlines ["The default modifier key is 'alt'. Default keybindings:",
"",
"-- launching and killing programs",
"mod-Shift-Enter Launch xterminal",
"mod-p Launch dmenu",
"mod-Shift-p Launch gmrun",
"mod-Shift-c Close/kill the focused window",
"mod-Space Rotate through the available layout algorithms",
"mod-Shift-Space Reset the layouts on the current workSpace to default",
"mod-n Resize/refresh viewed windows to the correct size",
"",
"-- move focus up or down the window stack",
"mod-Tab Move focus to the next window",
"mod-Shift-Tab Move focus to the previous window",
"mod-j Move focus to the next window",
"mod-k Move focus to the previous window",
"mod-m Move focus to the master window",
"",
"-- modifying the window order",
"mod-Return Swap the focused window and the master window",
"mod-Shift-j Swap the focused window with the next window",
"mod-Shift-k Swap the focused window with the previous window",
"",
"-- resizing the master/slave ratio",
"mod-h Shrink the master area",
"mod-l Expand the master area",
"",
"-- floating layer support",
"mod-t Push window back into tiling; unfloat and re-tile it",
"",
"-- increase or decrease number of windows in the master area",
"mod-comma (mod-,) Increment the number of windows in the master area",
"mod-period (mod-.) Deincrement the number of windows in the master area",
"",
"-- quit, or restart",
"mod-Shift-q Quit xmonad",
"mod-q Restart xmonad",
"mod-[1..9] Switch to workSpace N",
"",
"-- Workspaces & screens",
"mod-Shift-[1..9] Move client to workspace N",
"mod-{w,e,r} Switch to physical/Xinerama screens 1, 2, or 3",
"mod-Shift-{w,e,r} Move client to screen 1, 2, or 3",
"",
"-- Mouse bindings: default actions bound to mouse events",
"mod-button1 Set the window to floating mode and move by dragging",
"mod-button2 Raise the window to the top of the stack",
"mod-button3 Set the window to floating mode and resize by dragging"]
Reference in New Issue View Git Blame Copy Permalink