From: Frank Duncan 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/?a=commitdiff_plain;h=d0f4cf618b95cf5b815cbfc0eb8949bc0324a504;p=candle 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