Add day to metadata when annex.genmetadata is enabled.
Thanks, Sean T Parsons
This commit is contained in:
parent
64f1c09526
commit
e8eacf96d5
5 changed files with 11 additions and 2 deletions
|
@ -60,10 +60,11 @@ dateMetaData :: UTCTime -> MetaData -> MetaData
|
|||
dateMetaData mtime old = MetaData $ M.fromList $ filter isnew
|
||||
[ (yearMetaField, S.singleton $ toMetaValue $ show y)
|
||||
, (monthMetaField, S.singleton $ toMetaValue $ show m)
|
||||
, (dayMetaField, S.singleton $ toMetaValue $ show d)
|
||||
]
|
||||
where
|
||||
isnew (f, _) = S.null (currentMetaDataValues f old)
|
||||
(y, m, _d) = toGregorian $ utctDay mtime
|
||||
(y, m, d) = toGregorian $ utctDay mtime
|
||||
|
||||
{- Parses field=value, field+=value, field-=value, field?=value -}
|
||||
parseModMeta :: String -> Either String ModMeta
|
||||
|
|
|
@ -9,6 +9,7 @@ module Annex.MetaData.StandardFields (
|
|||
tagMetaField,
|
||||
yearMetaField,
|
||||
monthMetaField,
|
||||
dayMetaField,
|
||||
lastChangedField,
|
||||
mkLastChangedField,
|
||||
isLastChangedField
|
||||
|
@ -27,6 +28,9 @@ yearMetaField = mkMetaFieldUnchecked "year"
|
|||
monthMetaField :: MetaField
|
||||
monthMetaField = mkMetaFieldUnchecked "month"
|
||||
|
||||
dayMetaField :: MetaField
|
||||
dayMetaField = mkMetaFieldUnchecked "day"
|
||||
|
||||
lastChangedField :: MetaField
|
||||
lastChangedField = mkMetaFieldUnchecked lastchanged
|
||||
|
||||
|
|
|
@ -7,6 +7,8 @@ git-annex (6.20171019) UNRELEASED; urgency=medium
|
|||
instead.
|
||||
* stack.yaml: Added nix packages section.
|
||||
Thanks, Sean T Parsons
|
||||
* Add day to metadata when annex.genmetadata is enabled.
|
||||
Thanks, Sean T Parsons
|
||||
|
||||
-- Joey Hess <id@joeyh.name> Tue, 24 Oct 2017 13:12:52 -0400
|
||||
|
||||
|
|
|
@ -11,3 +11,5 @@ There's also a tiny bit extra for stack.yaml which will only affect people who h
|
|||
### Have you had any luck using git-annex before? (Sometimes we get tired of reading bug reports all day and a lil' positive end note does wonders)
|
||||
|
||||
git-annex is awesome, I lean on it heavily nearly every single day.
|
||||
|
||||
> [[merged|done]]. Thanks for the patch! --[[Joey]]
|
||||
|
|
|
@ -911,7 +911,7 @@ Here are all the supported configuration settings.
|
|||
Set this to `true` to make git-annex automatically generate some metadata
|
||||
when adding files to the repository.
|
||||
|
||||
In particular, it stores year and month metadata, from the file's
|
||||
In particular, it stores year, month, and day metadata, from the file's
|
||||
modification date.
|
||||
|
||||
When importfeed is used, it stores additional metadata from the feed,
|
||||
|
|
Loading…
Reference in a new issue