Include branch failing information in project list

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index fb38f58570b0e4e47790a83ee76c4b214239bb63..b5fc2980a651690d4387877da815fe325c400aad 100644 (file)
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -159,7 +159,14 @@
    (format t "Refreshed project ~A~%" (car remaining-args)))))
 
 (defun list-projects ()
- (format t "~{~{~A  ~A~}~%~}" (communication:query `(candle:list-projects))))
+ (format t "~{~A~%~}"
+  (mapcar
+   (lambda (info)
+    (format nil "~A  ~A~A"
+     (car info)
+     (cadr info)
+     (if (zerop (caddr info)) "" (format nil " (~A branches ~c[1;31mfailing~c[0m)" (caddr info) #\Esc #\Esc))))
+   (communication:query `(candle:list-projects)))))
 
 (defun project-failures (args)
  (let