findkeys: Support --largerthan and --smallerthan

Sponsored-by: Brett Eisenberg on Patreon
This commit is contained in:
Joey Hess 2023-11-28 11:51:43 -04:00
parent ab59b618c2
commit f3f864fc6d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 21 additions and 1 deletions

View file

@ -266,6 +266,7 @@ annexedMatchingOptions = concat
keyMatchingOptions :: [AnnexOption]
keyMatchingOptions = concat
[ keyMatchingOptions'
, sizeMatchingOptions Limit.LimitAnnexFiles
, anythingNothingOptions
, combiningOptions
, timeLimitOption
@ -398,7 +399,11 @@ fileMatchingOptions' lb =
<> help "limit to files whose content is the same as another file matching the glob pattern"
<> hidden
)
, annexOption (setAnnexState . Limit.addLargerThan lb) $ strOption
] ++ sizeMatchingOptions lb
sizeMatchingOptions :: Limit.LimitBy -> [AnnexOption]
sizeMatchingOptions lb =
[ annexOption (setAnnexState . Limit.addLargerThan lb) $ strOption
( long "largerthan" <> metavar paramSize
<> help "match files larger than a size"
<> hidden