From: Frank Duncan <frank@kank.net>
Date: Sat, 18 Dec 2021 16:58:08 +0000 (-0600)
Subject: Include branch failing information in project list
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=commitdiff_plain;h=d0f4cf618b95cf5b815cbfc0eb8949bc0324a504

Include branch failing information in project list
---

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