projects
/
candle
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1f48626
)
Include branch failing information in project list
author
Frank Duncan <frank@kank.net>
Sat, 18 Dec 2021 16:58:08 +0000
(10:58 -0600)
committer
Frank Duncan <frank@kank.net>
Sat, 18 Dec 2021 16:58:08 +0000
(10:58 -0600)
src/main/cli.lisp
patch
|
blob
|
history
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 "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
(defun project-failures (args)
(let