diff options
Diffstat (limited to 'src/Bottom.hs')
-rw-r--r-- | src/Bottom.hs | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/src/Bottom.hs b/src/Bottom.hs deleted file mode 100644 index 1c70548..0000000 --- a/src/Bottom.hs +++ /dev/null @@ -1,83 +0,0 @@ -module Bottom (config) where - -import Xmobar -import Config - -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 - -config cs p = (baseConfig p) { - position = BottomSize C 100 24 - , textOffset = 17 - , commands = [ Run (uptime p) - , Run brightness - , Run (weather "EGPH") -- LEGE, LEBL, KCV0 - , Run memory - , Run (batt p) - , Run (coreTemp p) - , Run (diskU p) - , Run (diskIO p) - , Run mbox - , Run masterVol - , Run captureVol - , Run kbd - ] ++ cs -} |