xmonad.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig(additionalKeys)
import System.IO

main = do   
    xmproc <- spawnPipe "xmobar -x 1"
    spawn "xrandr --output HDMI-1 --auto --primary --output eDP-1 --auto --left-of HDMI-1 &" --dual monitor config
    spawn "xrandr --output HDMI-1-1 --auto --primary --output eDP-1-1 --auto --left-of HDMI-1-1 &" --dual monitor config

    let wallpaper_path = "/home/emre/Pictures/" --vintage-high-quality-photos/" -- SHORPY-52nd-street-1.jpg" -- SHORPY-mount-vernon-colorado.jpg"
    let wallpaper = "vaporwave.jpeg"-- "resized.jpg" -- "janet-delaney-portfolio/langton-folsom-howard-streets-1979.jpg" -- "SHORPY-mount-vernon-colorado.jpg" -- "SHORPY-52nd-street-1.jpg"
    let adj = "0"-- "-200" -- no spaces on either end!!
    spawn $ "xloadimage -onroot -at 0," ++adj++" " ++wallpaper_path++wallpaper++ " -at 1920,"++adj++" " ++wallpaper_path++wallpaper++ " &" --set wallpaper, note that the '$' is necessary for string concatenation

    xmonad $ docks def
		{ layoutHook = avoidStruts (Tall 1 (3/100) (1/2) ||| Full)  -- $  layoutHook def
        , logHook = dynamicLogWithPP xmobarPP
                        { ppOutput = hPutStrLn xmproc
                        , ppTitle = const "" -- xmobarColor "green" "" . shorten 30
						}
        , modMask = mod4Mask     -- Rebind Mod to the Windows key
        }  `additionalKeys`
			-- mod4: win/super key, mod1: alt
            [ ((0, 0x1008FF11), spawn "amixer -q sset -D pulse Master 10%-")
            , ((0, 0x1008FF13), spawn "amixer -q sset -D pulse Master 10%+")
            , ((shiftMask, 0x1008FF11), spawn "amixer -q sset -D pulse Master 5%-")
            , ((shiftMask, 0x1008FF13), spawn "amixer -q sset -D pulse Master 5%+")
            , ((0, 0x1008FF12), spawn "amixer -q sset -D pulse Master toggle")
            , ((0, 0x1008FF03), spawn "lux -s 10%")
            , ((0, 0x1008FF02), spawn "lux -a 10%")
            , ((shiftMask, 0x1008FF02), spawn "lux -a 5%")
            , ((shiftMask, 0x1008FF03), spawn "lux -s 5%")
            , ((mod4Mask, xK_n), spawn "nemo")
            , ((mod4Mask, xK_semicolon), spawn "cinnamon-settings")
            , ((mod4Mask, xK_i), spawn "zen")
            , ((mod4Mask, xK_o), spawn "okular")
            , ((mod4Mask, xK_u), spawn "gnome-terminal")
            , ((mod4Mask .|. controlMask, xK_3), spawn "gnome-screenshot -a")
            -- , ((mod1Mask .|. controlMask, xK_3), spawn "gnome-screenshot")
            , ((mod4Mask, xK_0), spawn "playerctl play-pause")
            , ((0, 0x1008FF14), spawn "playerctl play-pause")
            , ((0, 0x1008FF16), spawn "playerctl previous")
            , ((0, 0x1008FF17), spawn "playerctl next")
            , ((mod4Mask, xK_bracketleft), spawn "playerctl previous")
            , ((mod4Mask, xK_bracketright), spawn "playerctl next")
            , ((controlMask .|. mod4Mask, xK_s), spawn "systemctl suspend")
            , ((controlMask .|. mod4Mask .|. mod1Mask, xK_equal), spawn "shutdown now")
            , ((mod4Mask .|. shiftMask, xK_t), spawn "setxkbmap tr")
            , ((mod4Mask .|. shiftMask, xK_u), spawn "setxkbmap us")
            ]