   (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)))

  (let [t (xtime j :resources_used)] (if (nil? t) "-" t)))

(defn -main [& args]
  (let [user         (myname)
        panel        (JPanel. (BorderLayout.))
        text-area    (JTextArea. waitmsg)
        button       (JButton. "Sleep")

                       (.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))
