Add support for user-specified patterns in Xresources.

1 files changed, 4 insertions, 0 deletions

diff --git a/reselect b/reselect
index 1a7d8e2..7f3bf79 100644
--- a/reselect
+++ b/reselect
@@ -278,6 +278,10 @@ sub on_start {
         message_id => $re_message_id,
     };
 
+    for (my $idx = 0; defined (my $res = $self->my_resource("pattern.$idx")); $idx++) {
+        $patterns->{"user.$idx"} = qr($res)x;
+    }
+
     $self->{patterns} = $patterns;
 
 }