X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=blobdiff_plain;f=src%2Fmain%2Fcli.lisp;h=b5fc2980a651690d4387877da815fe325c400aad;hp=fb38f58570b0e4e47790a83ee76c4b214239bb63;hb=d0f4cf618b95cf5b815cbfc0eb8949bc0324a504;hpb=1f486261df0bbc1d8c10265e4736356934aa1b57

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index fb38f58..b5fc298 100644
--- 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