diff options
-rwxr-xr-x | dwim | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -98,6 +98,13 @@ for ($phrase) { fail 'header file not found'; } + if (/(?:\+\+\+|---) (\S+) .*?$@@ -(\d+)/ms) { + handle 'diff header'; + my ($p, $l) = ($1, $2); + $p = path($p)."/$p" if not $p =~ m{^/}; + run @EDITOR, "+$l", $p; + } + if (/^(\S+)$/) { handle 'maildir / directory / file'; my $p = path $1; |