understand adjusted view branch names
An adjusted view branch has a name like "refs/heads/adjusted/views/master(author=_)(unlocked)", so it is a view branch that has been converted to an adjusted branch. Made Logs.View support such branch names. So now git-annex sync and pre-commit handle updating metadata on commit in such a branch. Much remains to be done to fully support adjusted view branches, including actually applying the adjustment when updating the view branch. Sponsored-by: Graham Spencer on Patreon
This commit is contained in:
parent
2a966f49f2
commit
cc32e31161
9 changed files with 113 additions and 79 deletions
|
@ -22,10 +22,10 @@ seek = withWords (commandAction . start)
|
|||
|
||||
start :: [String] -> CommandStart
|
||||
start params = starting "vfilter" (ActionItemOther Nothing) (SeekInput params) $
|
||||
withCurrentView $ \view -> do
|
||||
withCurrentView $ \view madj -> do
|
||||
vu <- annexViewUnsetDirectory <$> Annex.getGitConfig
|
||||
let view' = filterView view $
|
||||
map (parseViewParam vu) (reverse params)
|
||||
next $ if visibleViewSize view' > visibleViewSize view
|
||||
then giveup "That would add an additional level of directory structure to the view, rather than filtering it. If you want to do that, use vadd instead of vfilter."
|
||||
else checkoutViewBranch view' narrowView
|
||||
else checkoutViewBranch view' madj narrowView
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue