aboutsummaryrefslogtreecommitdiffstats
path: root/tinyurl-tabcomplete/complete-tiny-url.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tinyurl-tabcomplete/complete-tiny-url.pl')
-rw-r--r--tinyurl-tabcomplete/complete-tiny-url.pl29
1 files changed, 29 insertions, 0 deletions
diff --git a/tinyurl-tabcomplete/complete-tiny-url.pl b/tinyurl-tabcomplete/complete-tiny-url.pl
new file mode 100644
index 0000000..def9440
--- /dev/null
+++ b/tinyurl-tabcomplete/complete-tiny-url.pl
@@ -0,0 +1,29 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+use Regexp::Common qw/URI/;
+use WWW::Shorten::TinyURL;
+
+$VERSION = '2.1';
+%IRSSI = (
+ authors => 'Shabble',
+ contact => 'shabble+irssi /at/ metavore /dot/ org',
+ name => 'Shorten URLs using Tab',
+ description => '',
+ license => 'WTFPL',
+);
+
+sub do_complete {
+ my ($strings, $window, $word, $linestart, $want_space) = @_;
+ return if $word eq '';
+ if ($word =~ m/$RE{URI}{HTTP}{-keep}/) {
+ my $uri = makeashorterlink($1);
+ push @$strings, $uri if $uri;
+ $$want_space = 1;
+ Irssi::signal_stop();
+ }
+}
+
+Irssi::signal_add_first( 'complete word', \&do_complete);
+