ternalStatusCmd :: String
externalStatusCmd = let
    fg = statusColorNormalFG
    bg = statusColorBG
    cmd arg0 args = unwords $ [arg0] ++ args
    status = cmd "status" $ quote <$> [fg, bg]
    dzenOptions = ["-dock", "-ta", "r", "-w", "800", "-x", "972"]
    fontName = "DejaVu Sans Mono"
    flags = [("fn", fontName), ("fg", fg), ("bg", bg)]
    displayOptions = (unwords . uncurry arg) <$> flags
    dzen2 = cmd "dzen2" $ dzenOptions ++ displayOptions
        in status ++ " | " ++ dzen2


externalStatusCmd :: String
externalStatusCmd = let
    fg = statusColorNormalFG
    bg = statusColorBG
    cmd arg0 args = unwords $ [arg0] ++ args
    status = cmd "status" $ quote <$> [fg, bg]
    dzenOptions = ["-dock", "-ta", "r", "-w", "800", "-x", "972"]
    fontName = "DejaVu Sans Mono"
    flags = [("fn", fontName), ("fg", fg), ("bg", bg)]
    displayOptions = (unwords . uncurry arg) <$> flags
    dzen2 = cmd "dzen2" $ dzenOptions ++ displayOptions
        in status ++ " | " ++ dzen2
externalStatusCmd = let
    fg = statusColorNormalFG
    bg = statusColorBG
    cmd arg0 args = unwords $ [arg0] ++ args
    status = cmd "status" $ quote <$> [fg, bg]
    dzenOptions = ["-dock", "-ta", "r", "-w", "800", "-x", "972"]
    fontName = "DejaVu Sans Mono"
    flags = [("fn", fontName), ("fg", fg), ("bg", bg)]
    displayOptions = (unwords . uncurry arg) <$> flags
    dzen2 = cmd "dzen2" $ dzenOptions ++ displayOptions
        in status ++ " | " ++ dzen2