new section for metadata
This commit is contained in:
parent
39ebfa1a2e
commit
e7672f197e
6 changed files with 42 additions and 38 deletions
|
@ -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"
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue