haskal
/
crossfire
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

improve client status table

This commit is contained in:
xenia 2021-01-10 02:46:48 -05:00
parent 01978e76d4
commit a8e8b574fc
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crossfire/client.rkt
View File

@ -171,6 +171,8 @@
(define (cmd-status) (define (cmd-status)
(define (fmt-list lst)
(if (empty? lst) "none" (~a lst)))
(define projects (define projects
(with-server-connection (with-server-connection
(get-projects))) (get-projects)))
@ -180,7 +182,7 @@
(project-info-name proj) (project-info-name proj)
(format "~a%" (inexact->exact (* 100 (project-info-progress proj)))) (format "~a%" (inexact->exact (* 100 (project-info-progress proj))))
(~a (project-info-matches proj)) (~a (project-info-matches proj))
(~a (project-info-agent-state proj))))]) (fmt-list (project-info-agent-state proj))))])
(if (empty? body) (if (empty? body)
'(("" " - no projects - " "" "" "")) '(("" " - no projects - " "" "" ""))
body)))) body))))