fullscreen

This commit is contained in:
Sakooooo 2023-07-25 17:00:06 +03:00
parent 5cfa9af296
commit 45aee32847
Signed by: sako
GPG key ID: 3FD715D87D7725E0

View file

@ -26,6 +26,8 @@ import XMonad.Util.Run -- for xmobar startup
import XMonad.Util.Hacks as Hacks -- tray import XMonad.Util.Hacks as Hacks -- tray
import Graphics.X11.ExtraTypes.XF86 -- for keys import Graphics.X11.ExtraTypes.XF86 -- for keys
import XMonad.Util.Loggers -- smth import XMonad.Util.Loggers -- smth
import XMonad.Layout.MultiToggle -- fulllscreen
import XMonad.Layout.MultiToggle.Instances
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import qualified Data.Map as M import qualified Data.Map as M
@ -140,6 +142,9 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
, ((0, xF86XK_AudioLowerVolume), spawn "pactl set-sink-volume @DEFAULT_SINK@ -10%") , ((0, xF86XK_AudioLowerVolume), spawn "pactl set-sink-volume @DEFAULT_SINK@ -10%")
, ((0, xF86XK_AudioRaiseVolume), spawn "pactl set-sink-volume @DEFAULT_SINK@ +10%") , ((0, xF86XK_AudioRaiseVolume), spawn "pactl set-sink-volume @DEFAULT_SINK@ +10%")
-- Fullscreen
, ((modm, xK_f), sendMessage (Toggle "Full"))
-- Quit xmonad -- Quit xmonad
, ((modm .|. shiftMask, xK_q ), io exitSuccess) , ((modm .|. shiftMask, xK_q ), io exitSuccess)