continue working on status bar a bit meow

haskell/xmobar/xmobar.hs

@@ -1,5 +1,22 @@
 import Xmobar
 
+-- TODOS:
+-- - custom cpu module
+-- - custom mem module
+-- - custom network/ping module with avg of n pings and blah
+-- - custom graph rendering based on braille characters
+-- - custom "ramp" thingies 
+-- - newsticker?
+-- - mail/message monitoring
+-- - if possible, different bars per workspace
+
+data CustomCpu = CustomCpu 
+  deriving (Read, Show)
+
+instance Exec CustomCpu where
+  alias CustomCpu = "cpu"
+  run CustomCpu = return "meow"
+
 fc code content = "<fc=" ++ code ++ ">" ++ content ++ "</fc>"
 
 sep = fc "#7c6f64"
@@ -15,10 +32,10 @@ config =
       fgColor = "#ebdbb2",
       commands =
         [ Run $ Memory ["t", "Mem: <usedratio>%"] 10,
-          Run $ Kbd [],
+          Run $ CustomCpu,
           Run $ Date (icon "\983277" ++ " %Y" ++ sep "-" ++ "%m" ++ sep "-" ++ "%d " ++ icon "\988236" ++ " %H" ++ sep ":" ++ "%M" ++ sep ":" ++ "%S ") "date" 10
         ],
-      template = "}{ %date%",
+      template = "%memory% }{ %cpu% }{ %date%",
       alignSep = "}{",
       position = TopH 24
     }