From ade0216bd08c2f9c1ed10c1c2274fd5b071c9c93 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 19 Feb 2014 14:14:44 -0400 Subject: pre-commit: Update metadata when committing changes to annexed files within a view. So the user can now switch to a view and then move files around within it to manage metadata. For example, moving a file into a new directory when in the tags=* view adds a tag to it. Implementation is fairly efficient. One diff-index, which is no more expensive than the first stage of a git commit, followed by possibly some cat-file --batch traffic to find the key (when deleting a file). Very similar to what's done in direct mode when committing. And like direct mode when updating the WC after a merge, it has to buffer the diff-tree values in order to make 2 passes over them. When not in a view, pre-commit now does one extra git symbolic-ref, which is tiny overhead. This commit was sponsored by Andrew Eskridge. --- Types/MetaData.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Types') diff --git a/Types/MetaData.hs b/Types/MetaData.hs index 601757315..617c122a6 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -22,12 +22,14 @@ module Types.MetaData ( toMetaValue, mkMetaValue, unsetMetaValue, + unsetMetaData, fromMetaValue, fromMetaData, newMetaData, updateMetaData, unionMetaData, differenceMetaData, + isSet, currentMetaData, currentMetaDataValues, metaDataValues, @@ -137,6 +139,10 @@ mkMetaValue = MetaValue unsetMetaValue :: MetaValue -> MetaValue unsetMetaValue (MetaValue _ s) = MetaValue (CurrentlySet False) s +{- Marks all MetaValues as no longer currently set. -} +unsetMetaData :: MetaData -> MetaData +unsetMetaData (MetaData m) = MetaData $ M.map (S.map unsetMetaValue) m + fromMetaField :: MetaField -> String fromMetaField (MetaField f) = f -- cgit v1.2.3