pipe_input: Make subroutines for message prefix conditions

Make this more readable by giving names to these `index` tests.

1 files changed, 16 insertions, 2 deletions

diff --git a/vimput.pl b/vimput.pl
index 0305c6c..091a7d3 100644
--- a/vimput.pl
+++ b/vimput.pl
@@ -142,12 +142,12 @@ sub pipe_input {
 
 	my $input = <$read_handle>;
 
-	if (index($input, ERROR_PREFIX) == 0) {
+	if (is_error_message($input)) {
 		$input = substr($input, length(ERROR_PREFIX));
 
 		Irssi::print($input, MSGLEVEL_CLIENTERROR);
 	}
-	elsif (index($input, OK_PREFIX) == 0) {
+	elsif (is_ok_message($input)) {
 		$input = substr($input, length(OK_PREFIX));
 		chomp $input;
 
@@ -168,6 +168,20 @@ sub is_child_fork {
 }
 
 
+sub is_error_message {
+	my ($string) = @_;
+
+	return index($string, ERROR_PREFIX) == 0;
+}
+
+
+sub is_ok_message {
+	my ($string) = @_;
+
+	return index($string, OK_PREFIX) == 0;
+}
+
+
 # TODO: Find out if it's possible to do this is a command
 Irssi::signal_add_last 'gui key pressed' => sub {
 	my ($key) = @_;