xmobar - A Minimalistic Text Based Status Bar

monitor arguments

    cabal install xmobar
    cabal install xmobar --flags="all_extensions"
git clone git://github.com/jaor/xmobar
    cabal install -fall_extensions
    runhaskell Setup.lhs configure

    # To enable UTF-8 support run:
    runhaskell Setup.lhs configure --flags="with_utf8"

    # To enable both XFT and UTF-8 support run:
    runhaskell Setup.lhs configure --flags="with_xft"

    # To enable all extensions
    runhaskell Setup.lhs configure --flags="all_extensions"
    runhaskell Setup.lhs build
    runhaskell Setup.lhs install # possibly to be run as root
font = "xft:Times New Roman-10:italic"
    xmobar /path/to/config &
    xmobar &
   position = BottomW C 75
   position = BottomP 120 0
   position = Static { xpos = 0 , ypos = 0, width = 1024, height = 15 }
  position = Top
xmobar -B white -a right -F blue -t '%LIPB%' -c '[Run Weather "LIPB" [] 36000]'
Usage: xmobar [OPTION...] [FILE]
Options:
  -h, -?        --help                 This help
  -V            --version              Show version information
  -f font name  --font=font name       The font name
  -B bg color   --bgcolor=bg color     The background color. Default black
  -F fg color   --fgcolor=fg color     The foreground color. Default grey
  -o            --top                  Place xmobar at the top of the screen
  -b            --bottom               Place xmobar at the bottom of the screen
  -d            --dock                 Try to start xmobar as a dock
  -a alignsep   --alignsep=alignsep    Separators for left, center and right text
                                       alignment. Default: '}{'
  -s char       --sepchar=char         The character used to separate commands in
                                       the output template. Default '%'
  -t template   --template=template    The output template
  -c commands   --commands=commands    The list of commands to be executed
  -C command    --add-command=command  Add to the list of commands to be executed
  -x screen     --screen=screen        On which X screen number to start

Mail bug reports and suggestions to <xmobar@projects.haskell.org>
    dbus-send \
        --session \
        --dest=org.Xmobar.Control \
        --type=method_call \
        --print-reply \
        '/org/Xmobar/Control' \
        org.Xmobar.Control.SendSignal \
        "string:Toggle"
    # send to another screen, reveal and toggle the persistent flag
    dbus-send [..] \
        "string:ChangeScreen" "string:Reveal 0" "string:TogglePersistent"
((0, xK_Alt_L   ), return ())
import qualified XMonad.Util.ExtensibleState as XS

data DockToggleTime = DTT { lastTime :: Time } deriving (Eq, Show, Typeable)

instance ExtensionClass DockToggleTime where
    initialValue = DTT 0

toggleDocksHook :: Int -> KeySym -> Event -> X All
toggleDocksHook to ks ( KeyEvent { ev_event_display = d
                                 , ev_event_type    = et
                                 , ev_keycode       = ekc
                                 , ev_time          = etime
                                 } ) =
        io (keysymToKeycode d ks) >>= toggleDocks >> return (All True)
    where
    toggleDocks kc
        | ekc == kc && et == keyPress = do
            safeSendSignal ["Reveal 0", "TogglePersistent"]
            XS.put ( DTT etime )
        | ekc == kc && et == keyRelease = do
            gap <- XS.gets ( (-) etime . lastTime )
            safeSendSignal [ "TogglePersistent"
                           , "Hide " ++ show (if gap < 400 then to else 0)
                           ]
        | otherwise = return ()

    safeSendSignal s = catchX (io $ sendSignal s) (return ())
    sendSignal    = withSession . callSignal
    withSession mc = connectSession >>= \c -> callNoReply c mc >> disconnect c
    callSignal :: [String] -> MethodCall
    callSignal s = ( methodCall
                     ( objectPath_    "/org/Xmobar/Control" )
                     ( interfaceName_ "org.Xmobar.Control"  )
                     ( memberName_    "SendSignal"          )
                   ) { methodCallDestination = Just $ busName_ "org.Xmobar.Control"
                     , methodCallBody        = map toVariant s
                     }

toggleDocksHook _ _ _ = return (All True)

myDocksEventHook :: Event -> X All
myDocksEventHook e = do
    when (et == mapNotify || et == unmapNotify) $
        whenX ((not `fmap` (isClient w)) <&&> runQuery checkDock w) refresh
    return (All True)
    where w  = ev_window e
          et = ev_event_type e
 <icon=/path/to/bitmap.xbm/>
 <action=command>
[Run Memory ["-t","Mem: <usedratio>%"] 10, Run Swap [] 10]
template="<icon=/home/jao/.xmobar/mem.xbm/><memory> <swap>"
template="<action=xclock>%date%</action>
Run Weather "EGPF" ["-t", "<station>: <tempC>C"] 36000
Glasgow Airport: 16.0C
 Run BatteryP ["BAT0"]
              ["-t", "<acstatus><watts> (<left>%)",
               "-L", "10", "-H", "80", "-p", "3",
               "--", "-O", "<fc=green>On</fc> - ", "-o", "",
               "-L", "-15", "-H", "-5",
               "-l", "red", "-m", "blue", "-h", "green"]
              600
 DiskU [("/", "<used>/<size>"), ("sdb1", "<usedbar>")]
       ["-L", "20", "-H", "50", "-m", "1", "-p", "3",]
       20
 DiskIO [("/", "<read> <write>"), ("sdb1", "<total>")] [] 10
 Run ThermalZone 0 ["-t","<id>: <temp>C"] 30
 Run Thermal "THRM" ["-t","iwl4965-temp: <temp>C"] 50
 Run CpuFreq ["-t", "Freq:<cpu0>|<cpu1>GHz", "-L", "0", "-H", "2",
              "-l", "lightblue", "-n","white", "-h", "red"] 50
 Run CoreTemp ["-t", "Temp:<core0>|<core1>C",
               "-L", "40", "-H", "60",
               "-l", "lightblue", "-n", "gray90", "-h", "red"] 50
 Run MPD ["-t",
          "<composer> <title> (<album>) <track>/<plength> <statei> ",
          "--", "-P", ">>", "-Z", "|", "-S", "><"] 10
 Run Mpris1 "clementine" ["-t", "<artist> - [<tracknumber>] <title>"] 10
 Run Mpris2 "clementine" ["-t", "<artist> - [<composer>] <title>"] 10
 Run Mail [("inbox", "~/var/mail/inbox"),
           ("lists", "~/var/mail/lists")]
          "mail"
 Run MBox [("I ", "inbox", "red"), ("O ", "~/foo/mbox", "")]
          ["-d", "/var/mail/", "-p", " "] "mbox"
Run Kbd [("us(dvorak)", "DV"), ("us", "US")]
    Run Com "uname" ["-s","-r"] "" 0
    Run Com "date" ["+\"%a %b %_d %H:%M\""] "mydate" 600
Run BufferedPipeReader "bpr"
    [ (  0, False, "/tmp/xmobar_window"  )
    , ( 15,  True, "/tmp/xmobar_status"  )
    ]
main = do
  spawn "xmobar"
  xmonad $ defaultConfig {
    logHook = dynamicLogString defaultPP >>= xmonadPropLog
  }
    start :: e -> (String -> IO ()) -> IO ()
    run   :: e -> IO String
    rate  :: e -> Int
    alias :: e -> String
    instance Exec Date where
        alias (Date _ a _) = a
        start (Date f _ r) = date f r

    date :: String -> Int -> (String -> IO ()) -> IO ()
    date format r callback = do go
        where go = do
                t <- toCalendarTime =<< getClockTime
                callback $ formatCalendarTime defaultTimeLocale format t
                tenthSeconds r >> go
    import Plugins
import Plugins.HelloWorld
runnableTypes :: Command :*: Monitors :*: HelloWorld :*: ()
runnableTypes = undefined
xmobar Plugins/helloworld.config
    Run HelloWorld
    %helloWorld%
import Plugins.Monitors
 runnableTypes :: Command :*: Monitors :*: ()
 runnableTypes = undefined
 runnableTypes :: Command :*: ()
 runnableTypes = undefined