From 388df811f6abe52d79c87729d6cdfdc02ab9103b Mon Sep 17 00:00:00 2001
From: John <john@ankarstrom.se>
Date: Mon, 3 Jun 2019 02:00:19 +0200
Subject: rename dwim.pl to dwim

---
 dwim    | 123 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 dwim.pl | 123 ----------------------------------------------------------------
 2 files changed, 123 insertions(+), 123 deletions(-)
 create mode 100755 dwim
 delete mode 100755 dwim.pl

diff --git a/dwim b/dwim
new file mode 100755
index 0000000..6e9ce00
--- /dev/null
+++ b/dwim
@@ -0,0 +1,123 @@
+#!/usr/bin/perl
+
+# dwim (do what i mean) is my own plan9-like plumber
+
+use v5.24;
+use warnings;
+use strict;
+use Path::ExpandTilde;
+use subs qw/path env handle fail arguments/;
+
+my ($phrase, %o) = arguments "usage: $0 parse\n", 1, d => 0;
+$phrase = `xsel -o` if not defined $phrase;
+
+my @LAUNCHER = split /\s/, env(OPENER => "urxvtc -e");
+my @EDITOR = split /\s/, env(EDITOR => "vi");
+my @MAILER = split /\s/, env(MAILER => "mutt");
+my @MAILDIR_VIEWER = split /\s/, env(MAILDIR_VIEWER => "mutt -f");
+my $MAILROOT = env(MAILROOT => "/home/john/mail/");
+
+our $handler;
+
+for ($phrase) {
+	if (/^(https?:\/\/.+)$/) {
+		handle "web address";
+		exec "firefox", "$1"
+	}
+
+	if (/^(mailto:\/\/.+)$/ or /^(.+@.+\.\w+)$/) {
+		handle "e-mail address";
+		exec @MAILER, "$1"
+	}
+
+	if (/^(.+):(\d+)(:.*?)?$/) {
+		handle "file:line";
+		my $p = path($1);
+		exec @LAUNCHER, @EDITOR, "-c", ":$2", "$p"
+	}
+
+	if (/^(.+) line (\d+)\.?$/) {
+		handle "file \" line \" line (like perl)";
+		my $p = path($1);
+		exec @LAUNCHER, @EDITOR, "-c", ":$2", "$p"
+	}
+
+	if (/^(.+):(.+)$/) {
+		handle "file:query (like grep)";
+		my $p = path($1);
+		exec @LAUNCHER, @EDITOR, "-c", "/$2", "$p" if -e $p;
+		fail "file not found" if $o{d};
+		# otherwise fall through
+	}
+
+	if (/^([^\s]+)$/) {
+		handle "maildir / directory / file";
+		my $p = path($1);
+		exec @LAUNCHER, @MAILDIR_VIEWER, "$p" if $p =~ /^$MAILROOT/; # maildir
+		exec @LAUNCHER, @EDITOR, "$p" if -e $p; #file
+		fail "file not found" if $o{d};
+		# otherwise fall through
+	}
+
+	# otherwise
+	die "no handler matched by: $phrase\n"
+}
+
+sub path {
+	my $n = shift;
+	$n = expand_tilde($n);
+	return $n if $n =~ /^\// or $n =~ /^~/;
+	my $d = `xtitle`;
+	chomp $d;
+	die "couldn't retrieve current directory\n" if ! -d $d and ! -d ($d = dirname $d);
+	return "$d/$n";
+}
+
+# take K => V and return environment variable K if defined, otherwise V
+sub env {
+	my %h = @_;
+	my $k = (keys %h)[0];
+	return $ENV{$k} if defined ${ENV}{$k};
+	return $h{$k};
+}
+
+sub handle {
+	$handler = shift;
+	print STDERR "$handler MATCHED\n" if $o{d};
+}
+
+sub fail {
+	my $msg = shift;
+	print STDERR "$handler FAILED: $msg\n";
+}
+
+# parse ARGV and return list of positionals and hash of option values
+sub arguments {
+	my $usage = shift;  # usage string
+	my $n = shift;      # number of positional arguments
+	my %options = @_;   # option specification
+
+	# parse options (end upon --)
+
+	while ($_ = shift @ARGV) {
+		last if /^--$/;
+		unshift @ARGV, $_ and last if not /^-/;
+
+		s/^-//;
+		if (defined $options{$_}) { $options{$_} = 1 }
+		else { die $usage; }
+	}
+
+	# fill @positionals with $n strings (with undef upon empty ARGV)
+
+	my @positionals;
+	my $i = 0;
+	while (++$i <= $n) {
+		if ($_ = shift @ARGV) { push @positionals, $_ }
+		else { push @positionals, undef }
+	}
+
+	die $usage if @ARGV; # all processing should be done
+
+	return @positionals, %options;
+}
diff --git a/dwim.pl b/dwim.pl
deleted file mode 100755
index 6e9ce00..0000000
--- a/dwim.pl
+++ /dev/null
@@ -1,123 +0,0 @@
-#!/usr/bin/perl
-
-# dwim (do what i mean) is my own plan9-like plumber
-
-use v5.24;
-use warnings;
-use strict;
-use Path::ExpandTilde;
-use subs qw/path env handle fail arguments/;
-
-my ($phrase, %o) = arguments "usage: $0 parse\n", 1, d => 0;
-$phrase = `xsel -o` if not defined $phrase;
-
-my @LAUNCHER = split /\s/, env(OPENER => "urxvtc -e");
-my @EDITOR = split /\s/, env(EDITOR => "vi");
-my @MAILER = split /\s/, env(MAILER => "mutt");
-my @MAILDIR_VIEWER = split /\s/, env(MAILDIR_VIEWER => "mutt -f");
-my $MAILROOT = env(MAILROOT => "/home/john/mail/");
-
-our $handler;
-
-for ($phrase) {
-	if (/^(https?:\/\/.+)$/) {
-		handle "web address";
-		exec "firefox", "$1"
-	}
-
-	if (/^(mailto:\/\/.+)$/ or /^(.+@.+\.\w+)$/) {
-		handle "e-mail address";
-		exec @MAILER, "$1"
-	}
-
-	if (/^(.+):(\d+)(:.*?)?$/) {
-		handle "file:line";
-		my $p = path($1);
-		exec @LAUNCHER, @EDITOR, "-c", ":$2", "$p"
-	}
-
-	if (/^(.+) line (\d+)\.?$/) {
-		handle "file \" line \" line (like perl)";
-		my $p = path($1);
-		exec @LAUNCHER, @EDITOR, "-c", ":$2", "$p"
-	}
-
-	if (/^(.+):(.+)$/) {
-		handle "file:query (like grep)";
-		my $p = path($1);
-		exec @LAUNCHER, @EDITOR, "-c", "/$2", "$p" if -e $p;
-		fail "file not found" if $o{d};
-		# otherwise fall through
-	}
-
-	if (/^([^\s]+)$/) {
-		handle "maildir / directory / file";
-		my $p = path($1);
-		exec @LAUNCHER, @MAILDIR_VIEWER, "$p" if $p =~ /^$MAILROOT/; # maildir
-		exec @LAUNCHER, @EDITOR, "$p" if -e $p; #file
-		fail "file not found" if $o{d};
-		# otherwise fall through
-	}
-
-	# otherwise
-	die "no handler matched by: $phrase\n"
-}
-
-sub path {
-	my $n = shift;
-	$n = expand_tilde($n);
-	return $n if $n =~ /^\// or $n =~ /^~/;
-	my $d = `xtitle`;
-	chomp $d;
-	die "couldn't retrieve current directory\n" if ! -d $d and ! -d ($d = dirname $d);
-	return "$d/$n";
-}
-
-# take K => V and return environment variable K if defined, otherwise V
-sub env {
-	my %h = @_;
-	my $k = (keys %h)[0];
-	return $ENV{$k} if defined ${ENV}{$k};
-	return $h{$k};
-}
-
-sub handle {
-	$handler = shift;
-	print STDERR "$handler MATCHED\n" if $o{d};
-}
-
-sub fail {
-	my $msg = shift;
-	print STDERR "$handler FAILED: $msg\n";
-}
-
-# parse ARGV and return list of positionals and hash of option values
-sub arguments {
-	my $usage = shift;  # usage string
-	my $n = shift;      # number of positional arguments
-	my %options = @_;   # option specification
-
-	# parse options (end upon --)
-
-	while ($_ = shift @ARGV) {
-		last if /^--$/;
-		unshift @ARGV, $_ and last if not /^-/;
-
-		s/^-//;
-		if (defined $options{$_}) { $options{$_} = 1 }
-		else { die $usage; }
-	}
-
-	# fill @positionals with $n strings (with undef upon empty ARGV)
-
-	my @positionals;
-	my $i = 0;
-	while (++$i <= $n) {
-		if ($_ = shift @ARGV) { push @positionals, $_ }
-		else { push @positionals, undef }
-	}
-
-	die $usage if @ARGV; # all processing should be done
-
-	return @positionals, %options;
-}
-- 
cgit v1.2.3