new section for metadata

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

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"

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

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

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