xmonad.hs

gistfile1.txt

  import XMonad
import XMonad.Config.Desktop
import XMonad.Config.Mate
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.InsertPosition
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeysP)
import XMonad.Actions.FloatKeys
import XMonad.Layout
import XMonad.Layout.Fullscreen(fullscreenFull)
import XMonad.Layout.NoBorders
import XMonad.Layout.ResizableTile
import XMonad.Actions.PhysicalScreens
import System.IO
import qualified Data.Map as M
import qualified XMonad.StackSet as W

main = do
    xmonad $ mateConfig { 
        borderWidth = 3,
        terminal = "gnome-terminal",
        normalBorderColor = "#cccccc",
        focusedBorderColor = "#cd8b00",
        manageHook = manageDocks <+> myManageHook <+> manageHook mateConfig,
        handleEventHook = mconcat [ docksEventHook, fullscreenEventHook, handleEventHook mateConfig ],
        layoutHook = myLayouts,
        modMask = mod4Mask,
        keys = myKeys <+> keys mateConfig
        } 
        `additionalKeysP`
        [ 
        ("M1-S-w", spawn "chromium")
        , ("M1-S-f", spawn "firefox")
        , ("M1-S-p", spawn "caja")
        , ("M1-S-c", spawn "gnome-calculator")
        , ("<XF86Calculator>", spawn "gnome-calculator")
        , ("M-x", spawn "playerctl play-pause")
        , ("M-z", spawn "playerctl previous")
        , ("M-c", spawn "playerctl next")
        , ("<XF86AudioPlay>", spawn "playerctl play-pause")
        , ("<XF86AudioPrev>", spawn "playerctl previous")
        , ("<XF86AudioNext>", spawn "playerctl next")
        ]

myManageHook = composeAll
    [ insertPosition Below Newer
    ]

myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList
             [
              ((modm,               xK_d     ), withFocused (keysResizeWindow (30,30) (1,1)))
              , ((modm,               xK_a     ), withFocused (keysResizeWindow (30,0) (1,1)))
              , ((modm .|. shiftMask, xK_a     ), withFocused (keysResizeWindow (-30,0) (1,1)))
              , ((modm,               xK_s     ), withFocused (keysResizeWindow (0,30) (1,1)))
              , ((modm .|. shiftMask, xK_s     ), withFocused (keysResizeWindow (0,-30) (1,1)))
              , ((modm .|. shiftMask, xK_d     ), withFocused (keysResizeWindow (-30,-30) (1,1)))
              , ((modm, xK_p), spawn "synapse")
              , ((modm .|. shiftMask, xK_p), spawn "synapse")
              , ((modm .|. shiftMask, xK_m), spawn "/home/david/local/bin/sptfy")
              , ((modm .|. shiftMask, xK_q), spawn "mate-session-save --logout-dialog")
              , ((modm, xK_Print), spawn "scrot -s")
              , ((0, xK_Print), spawn "scrot")
              , ((modm, xK_w), viewScreen 0 >> windows W.focusMaster)
              , ((modm, xK_e), viewScreen 1 >> windows W.focusMaster)
              , ((modm, xK_r), viewScreen 2 >> windows W.focusMaster)
              , ((modm .|. shiftMask, xK_w), sendToScreen 0)
              , ((modm .|. shiftMask, xK_e), sendToScreen 1)
              , ((modm .|. shiftMask, xK_r), sendToScreen 2)
             ]

myLayouts = avoidStruts (smartBorders tiled ||| smartBorders (Mirror tiled)) ||| noBorders (fullscreenFull Full)
            where
                tiled = ResizableTall 1 (2/100) (1/2) []