101 lines
3.8 KiB
Haskell
101 lines
3.8 KiB
Haskell
import Graphics.X11.ExtraTypes.XF86
|
|
import System.Taffybar.Hooks.PagerHints (pagerHints)
|
|
|
|
import XMonad hiding ( (|||) )
|
|
import XMonad.Actions.CycleWS
|
|
import XMonad.Actions.WindowBringer
|
|
import XMonad.Actions.WorkspaceNames
|
|
import XMonad.Config ()
|
|
import XMonad.Hooks.EwmhDesktops
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Hooks.FadeInactive
|
|
import XMonad.Layout.BoringWindows
|
|
import XMonad.Layout.LayoutCombinators
|
|
import XMonad.Layout.Minimize
|
|
import XMonad.Layout.MultiColumns
|
|
import XMonad.Layout.MultiToggle
|
|
import XMonad.Layout.MultiToggle.Instances
|
|
import XMonad.Layout.NoBorders
|
|
import XMonad.Layout.Spacing
|
|
import qualified XMonad.StackSet as W
|
|
import XMonad.Util.CustomKeys
|
|
import XMonad.Util.NamedWindows (getName)
|
|
|
|
main = xmonad $ ewmh $ pagerHints def
|
|
{ modMask = mod4Mask
|
|
, terminal = "urxvt"
|
|
, manageHook = manageDocks <+> manageHook def
|
|
, layoutHook = myLayoutHook
|
|
, logHook = myLogHook
|
|
, handleEventHook = docksEventHook <+> fullscreenEventHook
|
|
, startupHook = myStartup
|
|
, keys = customKeys (const []) addKeys
|
|
}
|
|
|
|
myLogHook = fadeInactiveLogHook 0.9
|
|
|
|
automaticallySetWorkspaceNames = do
|
|
ws <- gets windowset
|
|
mapM_ setWorkspaceNameToFocusedWindow (W.workspaces ws)
|
|
where setWorkspaceNameToFocusedWindow workspace = do
|
|
namedWindows <- mapM getName $ take 2 $ W.integrate' $ W.stack workspace
|
|
setWorkspaceName (W.tag workspace) (concatMap show namedWindows)
|
|
|
|
shiftThenView i = W.greedyView i . W.shift i
|
|
|
|
layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full ||| Tall 1 (3/100) (1/2)
|
|
|
|
myLayoutHook = avoidStruts . smartSpacing 10 . noBorders . minimize
|
|
. boringWindows . mkToggle (MIRROR ?? EOT) $ layouts
|
|
|
|
myStartup = spawn "systemctl --user start wm.target"
|
|
|
|
addKeys conf@XConfig {modMask = modm} =
|
|
[ ((modm, xK_p), spawn "rofi -show drun")
|
|
, ((modm .|. shiftMask, xK_p), spawn "rofi -show run")
|
|
, ((modm, xK_g), gotoMenuArgs' "rofi" ["-dmenu"])
|
|
, ((modm .|. controlMask, xK_t), spawn
|
|
"systemctl --user restart taffybar.service")
|
|
, ((modm, xK_b), bringMenuArgs' "rofi" ["-dmenu"])
|
|
, ((modm, xK_v), spawn "copyq paste")
|
|
, ((modm, xK_s), swapNextScreen)
|
|
, ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full")
|
|
, ((modm, xK_slash), sendMessage $ Toggle MIRROR)
|
|
, ((modm, xK_m), withFocused minimizeWindow)
|
|
, ((modm .|. shiftMask, xK_m), sendMessage RestoreNextMinimizedWin)
|
|
|
|
-- Hyper bindings
|
|
, ((mod3Mask, xK_e), moveTo Next EmptyWS)
|
|
, ((mod3Mask .|. shiftMask, xK_e), shiftTo Next EmptyWS)
|
|
, ((mod3Mask, xK_v), spawn "copyq_rofi.sh")
|
|
, ((mod3Mask, xK_p), spawn "system_password.sh")
|
|
|
|
-- playerctl
|
|
, ((mod3Mask, xK_f), spawn "playerctl play-pause")
|
|
, ((0, xF86XK_AudioPause), spawn "playerctl play-pause")
|
|
, ((mod3Mask, xK_d), spawn "playerctl next")
|
|
, ((0, xF86XK_AudioNext), spawn "playerctl next")
|
|
, ((mod3Mask, xK_a), spawn "playerctl previous")
|
|
, ((0, xF86XK_AudioPrev), spawn "playerctl previous")
|
|
|
|
-- volume control
|
|
, ((0, xF86XK_AudioRaiseVolume), spawn "pactl set-sink-volume 0 +05%")
|
|
, ((0, xF86XK_AudioLowerVolume), spawn "pactl set-sink-volume 0 -05%")
|
|
, ((0, xF86XK_AudioMute), spawn "pactl set-sink-mute 0 toggle")
|
|
, ((mod3Mask, xK_w), spawn "pactl set-sink-volume 0 +05%")
|
|
, ((mod3Mask, xK_s), spawn "pactl set-sink-volume 0 -05%")
|
|
|
|
] ++
|
|
|
|
-- Replace original moving stuff around + greedy view bindings
|
|
[((additionalMask .|. modm, key), windows $ function workspace)
|
|
| (workspace, key) <- zip (workspaces conf) [xK_1 .. xK_9]
|
|
, (function, additionalMask) <-
|
|
[ (W.greedyView, 0)
|
|
, (W.shift, shiftMask)
|
|
, (shiftThenView, controlMask)]]
|
|
|
|
-- Local Variables:
|
|
-- flycheck-ghc-args: ("-Wno-missing-signatures")
|
|
-- End:
|