import Xmobar

import Data.List (intercalate)
  

main :: IO ()
main = xmobar config
  where
    config = defaultConfig
      { font             = "xft:FiraCode Nerd Font Mono:style=Regular:pixelsize=21"
      , position         = OnScreen 0 $ TopP 0 307
      , bgColor          = "black"
      , fgColor          = "#808080"
      , overrideRedirect = False
      , template =
          let left = intercalate " | "
                [ "%XMonadWorkspaces%"
                , "%XMonadLayout%"
                , "%XMonadTitle%"
                ]
              right = intercalate " | "
                [ {- "%status%"
                , -} "%battery%"
                , "%kbd%"
                , "%worktime%"
                , "%worktime-today%"
                , "%date%"
                ]
           in left <> "}{" <> right
      , commands =
          [ Run $ NamedXPropertyLog "_XMONAD_WORKSPACES" "XMonadWorkspaces"
          , Run $ NamedXPropertyLog "_XMONAD_LAYOUT" "XMonadLayout"
          , Run $ NamedXPropertyLog "_XMONAD_TITLE" "XMonadTitle"
          , Run $ Date "%a %b %_d %H:%M:%S %Y" "date" 50
          , Run $ Com "worktime" [] "worktime" 1500
          , Run $ Com "worktime" ["today"] "worktime-today" 1500
          , Run $ Com "ssh" ["status.odin"] "status" 600
          , Run $ Kbd [("us(dvp)", "dvp")]
          , Run $ Battery
            [ "--template", "<watts> <left> (<timeleft>) AC <acstatus>"
            , "--suffix", "On"
            , "--Low", "10"
            , "--High", "80"
            , "--low", "darkred"
            , "--normal", "darkorange"
            , "--high", "darkgreen"
            , "-p", "3"
            ] 50
          ]
      }