Merge branch 'master' into adjustedbranch
This commit is contained in:
commit
3b4557c754
35 changed files with 550 additions and 104 deletions
|
@ -46,10 +46,14 @@ optParser desc = MetaDataOptions
|
|||
( long "tag" <> short 't' <> metavar "TAG"
|
||||
<> help "set a tag"
|
||||
))
|
||||
<|> (AddMeta tagMetaField . mkMetaValue (CurrentlySet False) <$> 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