#!/usr/bin/wish -f
# -*- Tcl -*-

# usage:
#  xbatmon-simple-tray
#    [WISH-OPTIONS... [-- TRAY-EMBED-OPTIONS... [-- XBATMON-SIMPLE-OPTIONS...]]]

source applet.tcl
source subproc.tcl
source args.tcl

proc cmdline {id orientation} {
    global argv
    return [concat [list xacpi-simple -into $id] $argv]
}

while {[args::next_special arg]} {
    switch -exact -- $arg {
	-- { break }
	default { args::badoption }
    }
}

applet::setup-subproc cmdline