metadata: Added -r to remove all current values of a field.

This commit is contained in:
Joey Hess 2016-02-29 13:00:46 -04:00
parent 98fcc23e4f
commit e520366c4d
Failed to extract signature
5 changed files with 39 additions and 17 deletions

View file

@ -46,10 +46,14 @@ optParser desc = MetaDataOptions
( long "tag" <> short 't' <> metavar "TAG"
<> help "set a tag"
))
<|> (DelMeta tagMetaField . toMetaValue <$> strOption
<|> (DelMeta tagMetaField . Just . toMetaValue <$> strOption
( long "untag" <> short 'u' <> metavar "TAG"
<> help "remove a tag"
))
<|> option (eitherReader (\f -> DelMeta <$> mkMetaField f <*> pure Nothing))
( long "remove" <> short 'r' <> metavar "FIELD"
<> help "remove all values of a field"
)
seek :: MetaDataOptions -> CommandSeek
seek o = do