metadata: Added -r to remove all current values of a field.
This commit is contained in:
parent
98fcc23e4f
commit
e520366c4d
5 changed files with 39 additions and 17 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue