diff options
| -rw-r--r-- | neocities/cli.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/neocities/cli.scm b/neocities/cli.scm index adfdfa5..066ecfd 100644 --- a/neocities/cli.scm +++ b/neocities/cli.scm @@ -49,7 +49,11 @@ (exit 1)) (let-values (((response body) (neocities-info %api))) (if (neocities-success? body) - (display (assoc-ref body "info")) ;; TODO Display in table + (format #t "~:{~a: ~a~&~}" + (map (lambda (el) (list (car el) (cdr el))) + (let ((info (assoc-ref body "info"))) + (assoc-set! info "tags" + (string-join (vector->list (assoc-ref info "tags")) ", "))))) (format (current-error-port) "~A~&" (assoc-ref body "message"))))) (define (neocities-cmd-delete args) |