xmonad.hs + obtoxmd

### my current xmonad.hs ###

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

myTrayer = "killall trayer; trayer --edge top --align right --widthtype request --SetDockType true --SetPartialStrut true --transparent true --alpha 0 --tint 0x000000 --expand true --heighttype pixel --height 17"
--main
main = do
replace
trayproc <- spawnPipe myTrayer
xmproc <- spawnPipe "/home/tuxhat/.cabal/bin/xmobar -x 1 /home/tuxhat/.xmobarrc"
--xmproc <- spawnPipe "/home/tuxhat/.cabal/bin/xmobar -x 1 /home/tuxhat/.xmobarrc2"
--config
xmonad $ defaultConfig
        { manageHook = manageDocks <+> manageHook defaultConfig
        , layoutHook = avoidStruts $ layoutHook defaultConfig
        , workspaces = ["1:irc", "2:net", "3:music", "4:slsk", "5:edit", "6:fm", "7:video", "8:bit", "9:dev"]
        , normalBorderColor = "cyan"
        , focusedBorderColor = "magenta"
        , terminal = "xterm"
        , modMask = mod1Mask     -- Rebind Mod to the Windows key
        , logHook = dynamicLogWithPP xmobarPP
            { ppOutput = hPutStrLn xmproc
            , ppTitle = xmobarColor "magenta" "" . shorten 50

        }
      }  `additionalKeys`
        [ ((mod1Mask, xK_t), spawn "xterm")
        , ((mod1Mask, xK_d), restart "/home/tuxhat/obtoxmd" True)
        , ((mod1Mask, xK_m), spawn "xterm -e sh scrnoff.sh")   --Off Blank Screen
        , ((mod1Mask, xK_b), spawn "xterm -e sh scrnon.sh")    --On  Blank Screen
        , ((mod1Mask, xK_g), spawn "gedit")
        , ((mod1Mask, xK_c), spawn "xterm -e sh clock.sh")
        , ((mod1Mask, xK_i), spawn "xterm -e weechat-curses")
        , ((mod1Mask, xK_w), spawn "google-chrome")
        , ((mod1Mask, xK_f), spawn "pcmanfm")
        , ((mod1Mask, xK_p), spawn "dmenu_run -i")
        , ((mod1Mask, xK_e), spawn "xterm -e vim")
        , ((mod1Mask, xK_o), spawn "openshot")
        , ((mod1Mask, xK_v), spawn "vlc")
        , ((mod1Mask, xK_s), spawn "/home/tuxhat/SoulSeek")
        , ((mod1Mask, xK_z), spawn "lxappearance")
        , ((mod1Mask, xK_n), spawn "nitrogen")
        , ((mod1Mask, xK_a), spawn "deadbeef")
        , ((mod1Mask, xK_x), spawn "transmission-gtk")
        ]

### obtoxmd shell script ###
#!/bin/sh
openbox
xmonad