My first Haskell \o/

xmonad.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook
import XMonad.Layout.NoBorders
import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig(additionalKeys)
import System.IO


myPipeCmd = "@i3status@/bin/i3status | dzen2"
myDzenCmd = "@dzen2@/bin/dzen2 -p -xs 1 -ta -w 200 -x 500"
myDzenPP = dzenPP{ ppHidden = const "" }
toggleStruts XConfig {modMask = modMask} = (modMask, xK_n)

main = xmonad =<< statusBar myDzenCmd myDzenPP toggleStruts myConfig

myConfig = -- docks
    -- $ withUrgencyHook NoUrgencyHook
    def
        { terminal = "@st@/bin/st"
        , modMask = mod4Mask
        , borderWidth = 1
        , manageHook = manageDocks <+> manageHook defaultConfig
        , layoutHook = smartBorders $ layoutHook defaultConfig
	      , startupHook = spawn myPipeCmd
        } `additionalKeys`
        [ ((controlMask .|. mod1Mask, xK_l), spawn "loginctl lock-session")
        , ((mod4Mask, xK_Print), spawn "@scrot@/bin/scrot -s")
        , ((mod4Mask, xK_d), spawn "@rofi@/bin/rofi -combi-modi window,run -show combi")
        ]
f