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

new section for metadata

Browse source
This commit is contained in:
Joey Hess 2014-02-19 14:55:34 -04:00
parent 39ebfa1a2e
commit e7672f197e
6 changed files with 42 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/MetaData.hs
View file

@ -18,7 +18,7 @@ import Data.Time.Clock.POSIX
def :: [Command]
def = [withOptions [setOption] $ command "metadata" paramPaths seek
SectionUtility "sets metadata of a file"]
SectionMetaData "sets metadata of a file"]
setOption :: Option
setOption = Option ['s'] ["set"] (ReqArg mkmod "FIELD[+-]=VALUE") "set metadata"

2
Command/VAdd.hs
View file

@ -15,7 +15,7 @@ import Command.View (paramView, parseViewParam, checkoutViewBranch)
def :: [Command]
def = [notBareRepo $ notDirect $
command "vadd" paramView seek SectionUtility "refine current view"]
command "vadd" paramView seek SectionMetaData "refine current view"]
seek :: CommandSeek
seek = withWords start

2
Command/VPop.hs
View file

@ -18,7 +18,7 @@ import Command.View (checkoutViewBranch)
def :: [Command]
def = [notBareRepo $ notDirect $
command "vpop" (paramOptional paramNumber) seek SectionUtility
command "vpop" (paramOptional paramNumber) seek SectionMetaData
"switch back to previous view"]
seek :: CommandSeek

2
Command/View.hs
View file

@ -20,7 +20,7 @@ import Logs.View
def :: [Command]
def = [notBareRepo $ notDirect $
command "view" paramView seek SectionUtility "enter a view branch"]
command "view" paramView seek SectionMetaData "enter a view branch"]
seek :: CommandSeek
seek = withWords start