diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-04 18:33:06 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-04 18:34:16 -0700 |
| commit | 35d088e41bc28eb45d2fd8d5179fb0e914a566fa (patch) | |
| tree | 51c71f0f3bf5fe65d2cc7f165a574cd610b10275 /perl5 | |
| parent | 4956e7658283e78387d7c279f34a5dd725966fbf (diff) | |
| download | dotfiles-35d088e41bc28eb45d2fd8d5179fb0e914a566fa.tar.gz | |
locmaint ignores loose ~/src files under git worktrees & add TODOs
Diffstat (limited to 'perl5')
| -rw-r--r-- | perl5/Local/Homedir.pm | 7 | ||||
| -rw-r--r-- | perl5/Local/MrRepo/Repo/Git.pm | 4 |
2 files changed, 7 insertions, 4 deletions
diff --git a/perl5/Local/Homedir.pm b/perl5/Local/Homedir.pm index 8d4be685..3030f4b0 100644 --- a/perl5/Local/Homedir.pm +++ b/perl5/Local/Homedir.pm @@ -209,10 +209,9 @@ sub say_block (*$$) { } sub is_repo { - my $repo = shift; - # usefully excludes git worktrees - # e.g. s.t. src_register_all ignores ~/src/emacs-snapshot - return -d "$repo/.git" || -d "$repo/.hg"; + my ($repo, $include_worktrees) = @_; + return -d "$repo/.git" || -d "$repo/.hg" + || $include_worktrees && -f "$repo/.git"; } 1; diff --git a/perl5/Local/MrRepo/Repo/Git.pm b/perl5/Local/MrRepo/Repo/Git.pm index 5c9737bc..c0890203 100644 --- a/perl5/Local/MrRepo/Repo/Git.pm +++ b/perl5/Local/MrRepo/Repo/Git.pm @@ -54,6 +54,10 @@ sub review { my $issues = 0; + # TODO Checks (1) and (2) should be done for each worktree. + # + # TODO Similarly, mr's git_status action might look at each worktree? + # 1. Check for a detached HEAD which is not contained in any local # or remote ref, and might therefore contain useful work try { |