suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

raco pkg show: mention auto-installed when no non-auto are installed

Browse Source 
In the case that packages are only auto-installed in a particular
scope, `raco pkg show` should just say "[none]", instead of adding the
note about auto-installed packages that are not being shown.
This commit is contained in:
Matthew Flatt 2014-12-16 08:26:09 -07:00
parent f8c6090d37
commit 2b62ffe90b
1 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
racket/collects/pkg/private/show.rkt
View File

@ -65,28 +65,27 @@
empty))))
(if (null? to-show)
(printf " [none]\n")
(begin
(table-display
long?
(list* 'right 'right 'middle
(if dir? '(left) '()))
(list*
(list* (format "~aPackage~a"
indent
(if auto-shown? "[*=auto]" ""))
"Checksum"
"Source"
(if dir? '("Directory") '()))
to-show))
(unless (or only-pkgs show-auto?)
(define n (for/sum ([pkg (in-list pkgs)]
#:when (pkg-info-auto? (hash-ref db pkg)))
1))
(unless (zero? n)
(printf "~a[~a auto-installed package~a not shown]\n"
indent
n
(if (= n 1) "" "s")))))))
(table-display
long?
(list* 'right 'right 'middle
(if dir? '(left) '()))
(list*
(list* (format "~aPackage~a"
indent
(if auto-shown? "[*=auto]" ""))
"Checksum"
"Source"
(if dir? '("Directory") '()))
to-show)))
(unless (or only-pkgs show-auto?)
(define n (for/sum ([pkg (in-list pkgs)]
#:when (pkg-info-auto? (hash-ref db pkg)))
1))
(unless (zero? n)
(printf "~a[~a auto-installed package~a not shown]\n"
indent
n
(if (= n 1) "" "s")))))
(define (table-display long? dots-poses l)
(define how-many-cols (length (first l)))