sravan/xmonad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Layout Set Struts & Volume Control Keybindings

Browse Source 
- Update layout keybindings to always set struts on
- Add keybinding to set full mode with struts off (true fullscreen)
- Update volume buttons to use pactl script
- Add keybinding to launch volume control rofi menu
This commit is contained in:
Sravan Balaji
2021-05-24 20:07:27 -04:00
parent f1a1d837c3
commit 1acc6a0755
2 changed files with 64 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
README.org
View File

@@ -31,7 +31,7 @@
-- hooks
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksStartupHook, manageDocks, ToggleStruts(..))
import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksStartupHook, manageDocks, ToggleStruts(..), SetStruts(..))
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers (isFullscreen, isDialog, doFullFloat, doCenterFloat, doRectFloat)
import XMonad.Hooks.Place (placeHook, withGaps, smart)
@@ -236,22 +236,42 @@ These default keybindings are left for reference, but are not actually used in m
-- toggle struts for xmobar
, ("M-s", sendMessage ToggleStruts)
-- switch directly to a layout with and without flattening floating windows
, ("M-f", sendMessage $ JumpToLayout "Full")
-- full mode w/ all gaps
, ("M-f", sequence_
[ sendMessage $ JumpToLayout "Full"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- full mode w/ all gaps and flatten floating windows
, ("M-S-f", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Full"])
, ("M-t", sendMessage $ JumpToLayout "Spacing ResizableTall")
, sendMessage $ JumpToLayout "Full"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- full mode w/ no gaps and flatten floating windows
, ("M-C-S-f", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Full"
, sendMessage $ SetStruts [] [minBound .. maxBound]])
-- tall mode w/ all gaps
, ("M-t", sequence_
[ sendMessage $ JumpToLayout "Spacing ResizableTall"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- tall mode w/ all gaps and flatten floating windows
, ("M-S-t", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Spacing ResizableTall"])
, ("M-g", sendMessage $ JumpToLayout "Spacing Grid")
, sendMessage $ JumpToLayout "Spacing ResizableTall"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- grid mode w/ all gaps
, ("M-g", sequence_
[ sendMessage $ JumpToLayout "Spacing Grid"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- grid mode w/ all gaps and flatten floating windows
, ("M-S-g", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Spacing Grid"])
, sendMessage $ JumpToLayout "Spacing Grid"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- cycle & move between screens
, ("M-,", prevScreen)
@@ -268,9 +288,10 @@ These default keybindings are left for reference, but are not actually used in m
, ("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
, ("<XF86AudioRaiseVolume>", spawn "/home/sravan/.scripts/pactl.sh --raise") -- increase volume
, ("<XF86AudioLowerVolume>", spawn "/home/sravan/.scripts/pactl.sh --lower") -- decrease volume
, ("<XF86AudioMute>", spawn "/home/sravan/.scripts/pactl.sh --mute") -- mute volume
, ("M-v", spawn "/home/sravan/.scripts/pactl.sh --rofi") -- rofi menu
-- media control
, ("<XF86AudioPlay>", spawn "/home/sravan/.scripts/playerctl.sh --play-pause") -- play / pause

43
xmonad.hs
View File

@@ -13,7 +13,7 @@ import XMonad.Util.EZConfig (additionalKeysP, additionalMouseBindings)
-- hooks
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksStartupHook, manageDocks, ToggleStruts(..))
import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksStartupHook, manageDocks, ToggleStruts(..), SetStruts(..))
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers (isFullscreen, isDialog, doFullFloat, doCenterFloat, doRectFloat)
import XMonad.Hooks.Place (placeHook, withGaps, smart)
@@ -65,22 +65,42 @@ myKeys =
-- toggle struts for xmobar
, ("M-s", sendMessage ToggleStruts)
-- switch directly to a layout with and without flattening floating windows
, ("M-f", sendMessage $ JumpToLayout "Full")
-- full mode w/ all gaps
, ("M-f", sequence_
[ sendMessage $ JumpToLayout "Full"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- full mode w/ all gaps and flatten floating windows
, ("M-S-f", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Full"])
, ("M-t", sendMessage $ JumpToLayout "Spacing ResizableTall")
, sendMessage $ JumpToLayout "Full"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- full mode w/ no gaps and flatten floating windows
, ("M-C-S-f", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Full"
, sendMessage $ SetStruts [] [minBound .. maxBound]])
-- tall mode w/ all gaps
, ("M-t", sequence_
[ sendMessage $ JumpToLayout "Spacing ResizableTall"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- tall mode w/ all gaps and flatten floating windows
, ("M-S-t", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Spacing ResizableTall"])
, ("M-g", sendMessage $ JumpToLayout "Spacing Grid")
, sendMessage $ JumpToLayout "Spacing ResizableTall"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- grid mode w/ all gaps
, ("M-g", sequence_
[ sendMessage $ JumpToLayout "Spacing Grid"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- grid mode w/ all gaps and flatten floating windows
, ("M-S-g", sequence_
[ withFocused $ windows . W.sink
, refresh
, sendMessage $ JumpToLayout "Spacing Grid"])
, sendMessage $ JumpToLayout "Spacing Grid"
, sendMessage $ SetStruts [minBound .. maxBound] []])
-- cycle & move between screens
, ("M-,", prevScreen)
@@ -97,9 +117,10 @@ myKeys =
, ("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
, ("<XF86AudioRaiseVolume>", spawn "/home/sravan/.scripts/pactl.sh --raise") -- increase volume
, ("<XF86AudioLowerVolume>", spawn "/home/sravan/.scripts/pactl.sh --lower") -- decrease volume
, ("<XF86AudioMute>", spawn "/home/sravan/.scripts/pactl.sh --mute") -- mute volume
, ("M-v", spawn "/home/sravan/.scripts/pactl.sh --rofi") -- rofi menu
-- media control
, ("<XF86AudioPlay>", spawn "/home/sravan/.scripts/playerctl.sh --play-pause") -- play / pause