   (let [j (jobraw job)]
     {:jobid (xjobid j)
      :name  (xname  j)
+     :nodes (xnodes j)
      :owner (xowner j)
-     :part  (xpart j)
+     :part  (xpart  j)
+     :procs (xprocs j)
      :queue (xqueue j)
      :rtime (xrtime j)
      :state (xstate j)

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

(def fmtstr "%-8s %-16s %-8s %-8s %-1s %-8s %-9s %s")

(declare tags tree xml xtime)

(defn contents [job]  (map #(:content %) job))
(defn d        [n]    (apply str (repeat n "-")))

  (do
    (.setFont ta (Font. "Monospaced" (Font/PLAIN) 12))
    (doto fr
      (.setSize 800 600)
      (.setLayout (BorderLayout.))
      (.add ta BorderLayout/CENTER)
      (.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
