   (let [t (xtime j :resources_used)] (if (nil? t) "-" t)))
 
 (defn -main [& args]
-  (let [user         (myname)
+  (let [user         (or (first args) (get (System/getenv) "USER"))
         panel        (JPanel. (BorderLayout.))
         text-area    (JTextArea. waitmsg)
         button       (JButton. "Sleep")

  (let [fns (map #(ns-resolve 'qmon.core (symbol (str "x" (name %)))) headkeys)
        raw (fn [job] (zipmap (map #(:tag %) job) (map #(:content %) job)))]
    (zipmap headkeys (map #(% (raw job)) fns))))

(defn myname []
  (if (first *command-line-args*)
    (first *command-line-args*)
    (get (System/getenv) "USER")))

(defn myjobs [user]
  (let [alljobs (map :content (filter #(= (:tag %) :Job) (tree)))

                       (.setText button (if x "Wake" "Sleep" ))
                       (if-not x (.setText text-area waitmsg))
                       (not x))]
    (println user)
    (do
      (doto text-area
        (.setFont (Font. "Monospaced" (Font/PLAIN) 12))
