From d36fcaad2a726fa49cd3573a18261dc2b32e2a81 Mon Sep 17 00:00:00 2001
From: Anton Khirnov <anton@khirnov.net>
Date: Wed, 9 Jun 2021 11:06:53 +0200
Subject: Add support for user-specified patterns in Xresources.

---
 reselect | 4 ++++
 1 file changed, 4 insertions(+)

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;
 
 }
-- 
cgit v1.2.3