         (map max headwidth datawidth)))))
 
 (defn jobinfo [job]
-  (let [fns (map #(ns-resolve *ns* (symbol (str "x" (name %)))) headkeys)
+  (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))))
 

  (:use [clojure.xml :only [parse]]))

(def headkeys [:jobid :owner :rtime :utime :procs :nodes :state :queue :part :name])
(def headvals ["Job ID" "Owner" "Requested" "Used" "Procs" "Nodes" "S" "Queue" "Partition" "Job Name"])

(declare split tree xprocs xres xtime)

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

(defn -main [& args]
  (let [user         (myname)
        panel        (JPanel. (BorderLayout.))
