diff options
author | Jesse Luehrs <doy@tozt.net> | 2023-10-08 12:09:20 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2023-10-08 12:59:10 -0400 |
commit | 49570c8dd03448240897b37b68567352b790f16f (patch) | |
tree | 6c192a52046d5d0dd1b84a838befd8e777cfeafb /local/.bin/clean-vim-undo | |
parent | 66939c71da756c1d9e07a88a4a8ea2a018650060 (diff) | |
download | conf-49570c8dd03448240897b37b68567352b790f16f.tar.gz conf-49570c8dd03448240897b37b68567352b790f16f.zip |
convert to stow
Diffstat (limited to 'local/.bin/clean-vim-undo')
-rwxr-xr-x | local/.bin/clean-vim-undo | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/local/.bin/clean-vim-undo b/local/.bin/clean-vim-undo new file mode 100755 index 0000000..efcd3aa --- /dev/null +++ b/local/.bin/clean-vim-undo @@ -0,0 +1,13 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +my $undodir = "$ENV{HOME}/.cache/vim/undo"; +opendir my $undo, $undodir + or die "can't open $undodir: $!"; + +for my $undofile (readdir($undo)) { + next unless -f "$undodir/$undofile"; + (my $file = $undofile) =~ s{%}{/}g; + unlink "$undodir/$undofile" unless -e $file && $file =~ m{^/}; +} |