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

list standard groups in vicfg

Browse source
This commit is contained in:
Joey Hess 2013-05-23 14:54:59 -04:00
parent cfe07a2573
commit cf7fec4b46
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Command/Vicfg.hs
View file

@ -21,6 +21,7 @@ import Types.Group
import Logs.Trust import Logs.Trust
import Logs.Group import Logs.Group
import Logs.PreferredContent import Logs.PreferredContent
import Types.StandardGroups
import Remote import Remote
def :: [Command] def :: [Command]
@ -94,20 +95,23 @@ genCfg cfg descs = unlines $ concat [intro, trust, groups, preferredcontent]
trust = settings cfgTrustMap trust = settings cfgTrustMap
[ "" [ ""
, com "Repository trust configuration" , com "Repository trust configuration"
, com "(Valid trust levels: " ++ , com "(Valid trust levels: " ++ trustlevels ++ ")"
unwords (map showTrustLevel [Trusted .. DeadTrusted]) ++
")"
] ]
(\(t, u) -> line "trust" u $ showTrustLevel t) (\(t, u) -> line "trust" u $ showTrustLevel t)
(\u -> lcom $ line "trust" u $ showTrustLevel SemiTrusted) (\u -> lcom $ line "trust" u $ showTrustLevel SemiTrusted)
where
trustlevels = unwords $ map showTrustLevel [Trusted .. DeadTrusted]
groups = settings cfgGroupMap groups = settings cfgGroupMap
[ "" [ ""
, com "Repository groups" , com "Repository groups"
, com $ "(Standard groups: " ++ grouplist ++ ")"
, com "(Separate group names with spaces)" , com "(Separate group names with spaces)"
] ]
(\(s, u) -> line "group" u $ unwords $ S.toList s) (\(s, u) -> line "group" u $ unwords $ S.toList s)
(\u -> lcom $ line "group" u "") (\u -> lcom $ line "group" u "")
where
grouplist = unwords $ map fromStandardGroup [minBound..]
preferredcontent = settings cfgPreferredContentMap preferredcontent = settings cfgPreferredContentMap
[ "" [ ""

1
doc/todo/wishlist:_vicfg_possible_repo_group_names.mdwn
View file

@ -13,3 +13,4 @@ The same is not currently done for repository groups
Thanks. Thanks.
> [[done]] --[[Joey]]