mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

status: Now displays trusted, untrusted, and semitrusted repositories separately.

Browse source
This commit is contained in:
Joey Hess 2011-11-14 16:14:17 -04:00
commit aa4fbbdd33
3 changed files with 16 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Command/Status.hs
View file

@ -24,6 +24,7 @@ import Annex.Content
import Types.Key import Types.Key
import Backend import Backend
import Logs.UUID import Logs.UUID
import Logs.Trust
import Remote import Remote
-- a named computation that produces a statistic -- a named computation that produces a statistic
@ -52,7 +53,9 @@ stats :: [Stat]
stats = stats =
[ supported_backends [ supported_backends
, supported_remote_types , supported_remote_types
, remote_list , remote_list Trusted "trusted"
, remote_list UnTrusted "untrusted"
, remote_list SemiTrusted "semitrusted"
, tmp_size , tmp_size
, bad_data_size , bad_data_size
, local_annex_keys , local_annex_keys
@ -90,10 +93,13 @@ supported_remote_types :: Stat
supported_remote_types = stat "supported remote types" $ supported_remote_types = stat "supported remote types" $
return $ unwords $ map R.typename Remote.remoteTypes return $ unwords $ map R.typename Remote.remoteTypes
remote_list :: Stat remote_list :: TrustLevel -> String -> Stat
remote_list = stat "known repositories" $ lift $ do remote_list level desc = stat n $ lift $ do
s <- prettyPrintUUIDs "repos" =<< M.keys <$> uuidMap us <- M.keys <$> uuidMap
return $ '\n':init s s <- prettyPrintUUIDs n =<< fst <$> trustPartition level us
return $ if null s then "none" else '\n':init s
where
n = desc ++ " repositories"
local_annex_size :: Stat local_annex_size :: Stat
local_annex_size = stat "local annex size" $ local_annex_size = stat "local annex size" $

2
debian/changelog vendored
View file

@ -7,6 +7,8 @@ git-annex (3.20111112) UNRELEASED; urgency=low
* init: When run in an already initalized repository, and without * init: When run in an already initalized repository, and without
a description specified, don't delete the old description. a description specified, don't delete the old description.
* Optimised union merging; now only runs git cat-file once. * Optimised union merging; now only runs git cat-file once.
* status: Now displays trusted, untrusted, and semitrusted repositories
separately.
-- Joey Hess <joeyh@debian.org> Sat, 12 Nov 2011 14:50:21 -0400 -- Joey Hess <joeyh@debian.org> Sat, 12 Nov 2011 14:50:21 -0400

3
doc/bugs/wishlist:_query_things_like_description__44___trust_level.mdwn
View file

@ -1 +1,4 @@
It would be helpful to have a way to query things like a repository's description and trust level, without having to poke in the git-annex branch. For example, "git annex describe ." currently clears the description but could print the current one instead. It would be helpful to have a way to query things like a repository's description and trust level, without having to poke in the git-annex branch. For example, "git annex describe ." currently clears the description but could print the current one instead.
> `git annex status` now breaks down the repository list by type. [[done]]
> --[[Joey]]