diff --git a/xmobarrc b/xmobarrc new file mode 100644 index 0000000..7727e77 --- /dev/null +++ b/xmobarrc @@ -0,0 +1,17 @@ +Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*" + , bgColor = "black" + , fgColor = "grey" + , position = Top + , lowerOnStart = True + , commands = [ Run Network "eth0" ["-L","0","-H","32","--normal","green","--high","red"] 10 + , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10 + , Run Memory ["-t","Mem: %"] 10 + , Run Swap [] 10 + , Run Com "uname" ["-s","-r"] "" 36000 + , Run Date "%a %b %_d %Y %H:%M:%S" "date" 10 + , Run StdinReader + ] + , sepChar = "%" + , alignSep = "}{" + , template = "%StdinReader% | %cpu% | %memory% * %swap% | %eth0% }{ %date% | %uname%" + } diff --git a/xmonad.hs b/xmonad.hs new file mode 100644 index 0000000..9989926 --- /dev/null +++ b/xmonad.hs @@ -0,0 +1,16 @@ +import XMonad +import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageDocks +import XMonad.Util.Run +import System.IO + +main = do + xmproc <- spawnPipe "xmobar" + xmonad $ defaultConfig { + manageHook = manageDocks <+> manageHook defaultConfig, + layoutHook = avoidStruts $ layoutHook defaultConfig, + logHook = dynamicLogWithPP $ xmobarPP { + ppOutput = hPutStrLn xmproc, + ppTitle = xmobarColor "green" "" . shorten 50 + } + }