module Monitors where

import Xmobar
import Config

topProc p = TopProc (p <~> ["-t" , "<mboth3>  <mboth2>  <mboth1> \
                                   \· <both3>  <both2>  <both1>"
                           , "-w", "10", "-L" , "10", "-H", "80"]) 15

wireless p = Wireless "wlp2s0" (p <~> ["-t" , "<essid> <quality>"
                                      , "-W", "5", "-M", "15" , "-m", "2"
                                      , "-L", "20", "-H", "80"]) 20

multiCPU p = MultiCpu (p <~> ["-t", "<autototal>"
                             , "-S", "on", "-b", " ", "-f", "*"
                             , "-c", " " , "-L", "30", "-H", "70"
                             , "-p", "3", "-a", "l"]) 10

cpuFreq p = CpuFreq (p <~> ["-t" , "<cpu0> <cpu1> <cpu2> <cpu3>"
                           , "-L", "1", "-H", "2", "-S", "Off" , "-d", "2"]) 50

dynNetwork p = DynNetwork (p <~> ["-t", "↑ <tx> ↓ <rx>"
                                 , "-L", "20", "-H", "1024000"
                                 , "-m", "5", "-W", "10", "-S", "Off"]) 10

uptime p = Uptime (p <~> [ "-t" , "<days> <hours>", "-m", "3", "-c", "0", "-S"
                         , "On" , "-L", "10", "-H", "100"]) 600

weather st =
  Weather st ["-t", "<tempC>° <rh>%  <windKmh> <skyCondition> (<hour>)"
             , "-L","10", "-H", "25", "--normal", "black",
               "--high", "lightgoldenrod4", "--low", "darkseagreen4"] 18000

batt p =
  BatteryN ["BAT0"]
           ((p <~> ["-t", "<left>%<acstatus>"
                   , "-S", "Off", "-d", "0", "-m", "3"
                   , "-L", "10", "-H", "80", "-p", "3"])
            ++ [ "--"
               , "-i", "", "-O", " <timeleft> <watts>"
               , "-o", " <timeleft> <watts>"
               , "-H", "16", "-L", "10"
               , "-h", "sienna4", "-l", "gray20"]) 50 "b0"

coreTemp p =
  CoreTemp (p <~> ["-t", "<core1>° <core2>°"
                  , "-L", "50", "-H", "75", "-d", "0"]) 50

diskU p =
  DiskU [("dm-1", "<used>") , ("/media/sdb", " s <used>")]
        (p <~> ["-L", "20", "-H", "70", "-m", "1", "-p", "3"])
        20

diskIO p =
  DiskIO [("dm-1", "↑ <read> ↓ <write>")]
         (p <~> ["-L", "20", "-H", "5000", "-m", "5", "-p", "3"]) 10

mbox = MBox [ ("I", "inbox", "darkseagreen4")
            , ("B", "bigml.spool", "sienna4")
            , ("S", "bigsup.spool", "sienna4")
            , ("b", "bugml.spool", "sienna4")
            , ("G", "geiser.spool", "darkseagreen4")
            , ("X", "xmobar.spool", "darkseagreen4")
            , ("g", "gnu.spool", "")
            , ("k", "books.spool", "")
            , ("h", "hacking.spool", "")
            , ("c", "computers.spool", "")
            , ("w", "words.spool", "")
            , ("t", "think.spool", "")
            ] ["-d", "/home/jao/var/mail", "-p", " ", "-s", ""] "mbox"

masterVol =
  Volume "default" "Master"
                  ["-t", "<status> <volume>"
                  , "--", "-C", "black", "-c", "sienna4", "-O", ""
                  , "-o", " ×"] 10

captureVol = Volume "default" "Capture" ["-t", "<volume>"] 10

kbd = Kbd [("us", ""), ("us(intl)", "*")]

brightness = Brightness ["--", "-D", "intel_backlight"] 10

memory = Memory ["-t","<available> M", "-p", "2"] 20

tun0 = Network "tun0" ["-t", "<dev>:", "-x", ""] 20

laTime = DateZone "%H" "en_US" "US/Pacific" "laTime" 10
localTime = Date "%R" "datetime" 10

trayPadding = Com "padding-icon.sh" [] "tray" 20