[MLton-commit] r5694

[Vesa Karvonen]

Tweaked status display.
----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/bg-build-mode.el

----------------------------------------------------------------------

Modified: mlton/trunk/ide/emacs/bg-build-mode.el
===================================================================
--- mlton/trunk/ide/emacs/bg-build-mode.el	2007-06-29 12:57:27 UTC (rev 5693)
+++ mlton/trunk/ide/emacs/bg-build-mode.el	2007-06-29 13:05:37 UTC (rev 5694)
@@ -361,21 +361,16 @@
           (mapc (function
                  (lambda (project)
                    (let ((file (car project)))
-                   (insert (if (assoc file bg-build-live-builds) "L" " ")
+                   (insert (let ((n (length (member project bg-build-build-queue))))
+                             (if (zerop n) "  " (format "%2d" n)))
+                           (if (assoc file bg-build-live-builds) "L" " ")
                            (if (assoc file bg-build-finished-builds) "F" " ")
-                           "     | "
+                           "   | "
                            (bg-build-prj-name project) " (" file ")"
                            "\n"))))
                 bg-build-projects)
           (insert "\n"
                   "Total of " (number-to-string bg-build-counter) " builds started.\n")
-          (when bg-build-build-queue
-            (insert "\n"
-                    "Build queue:\n\n")
-            (mapc (function
-                   (lambda (project)
-                     (insert "  " (bg-build-prj-name project) "\n")))
-                  bg-build-build-queue))
           (setq buffer-read-only t)
           (goto-char point))))))