Permalink
Browse files

Add whitespace to the start of commands.

  • Loading branch information...
1 parent f717a38 commit 6c340b7d909746fee426f8b052b11c9879b21b32 @KenMacD committed Oct 12, 2011
Showing with 8 additions and 8 deletions.
  1. +8 −8 wwcmd.pl
View
@@ -2,7 +2,7 @@
use vars qw($VERSION %IRSSI);
use Irssi;
-$VERSION = '20111004';
+$VERSION = '20111011';
%IRSSI = (
authors => 'Kenny MacDermid',
contact => 'kenny.macdermid@gmail.com',
@@ -16,15 +16,15 @@
my $ignore_once = 0;
my @cmds;
-push(@cmds, qr/^win /);
-push(@cmds, qr/^win$/);
-push(@cmds, qr/^ls/);
-push(@cmds, qr/^:q/);
-push(@cmds, qr/^:wq/);
+push(@cmds, qr/^\s*win /);
+push(@cmds, qr/^\s*win$/);
+push(@cmds, qr/^\s*ls/);
+push(@cmds, qr/^\s*:q/);
+push(@cmds, qr/^\s*:wq/);
for my $cmd (Irssi::commands()) {
my $c = $cmd->{cmd};
- push(@cmds, qr/^$c$/);
- push(@cmds, qr/^$c /);
+ push(@cmds, qr/^\s*$c$/);
+ push(@cmds, qr/^\s*$c /);
}
sub send_text {

0 comments on commit 6c340b7

Please sign in to comment.