import Xmobar
import Config
import Monitors

-- <fn=1> 💡 </fn>
config p = (baseConfig p) {
  position = TopSize C 100 (defaultHeight - 1)
  , textOffset = defaultHeight - 8
  , textOffsets = [defaultHeight - 9, defaultHeight - 9,
                   defaultHeight - 6, defaultHeight - 8]
  , border = BottomB
  , alpha = 255
  , commands = [ Run (topProc' p)
               , Run (multiCPU p)
               , Run memory
               , Run (diskU p)
               , Run (diskIO p)
               , Run (coreTemp p)
               , Run brightness
               , Run (batt p)
               , Run (wireless p)
               , Run (dynNetwork p)
               , Run tun0
               , Run (weather "EGPH") -- LEGE, LEBL, KCV0
               , Run mail
               , Run masterVol
               , Run captureVol
               , Run laTime
               , Run localTime
               ]
  , template = " |batt0| |bright|\
               \ <action=`toggle-app.sh nm-applet`>|tun0||wlp2s0wi|</action> \
               \ |dynnetwork| \
               \ <action=`toggle-app.sh blueman-tray`><fn=1>🎧</fn></action>\
               \<action=`toggle-app.sh pasystray`>|default:Master|\
               \ |default:Capture|</action>  |EGPH|\
               \ |mail| {} \
               \  |top| |multicpu|  |multicoretemp|\
               \   |diskio| |disku| |memory| \
               \ <fn=2>🕓  </fn>|datetime| |laTime| "
}

main :: IO ()
main =
  palette >>= configFromArgs . config >>= xmobar