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

          (re-find (re-matcher #"^[^@]+" (:owner j)))
          (:rtime j)
          (:utime j)
          (:state j)
          (:queue j)
          (:part j)


(defn prhead [msg]
  (str (format "\n%s\n\n" msg)
       (format fmtstr "Job ID" "Owner" "Req'd" "Used" "Procs" "Nodes" "S" "Queue" "Partition" "Job Name\n")
       (format fmtstr (d 8) (d 16) (d 8) (d 8) (d 5) (d 5) (d 1) (d 8) (d 9) (d 32))
       "\n"))

(defn prjobs [key,msg,s]
