From d0f4cf618b95cf5b815cbfc0eb8949bc0324a504 Mon Sep 17 00:00:00 2001
From: Frank Duncan <frank@kank.net>
Date: Sat, 18 Dec 2021 10:58:08 -0600
Subject: [PATCH] Include branch failing information in project list

---
 src/main/cli.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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
-- 
2.25.1