From 68d11e12ad1c9df969d29438495ca91a423c3f86 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sat, 23 Nov 2024 19:41:00 -0500
Subject: [PATCH] heuristic tweaks

---
 src/algos/tclposting.tcl | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/src/algos/tclposting.tcl b/src/algos/tclposting.tcl
index abb4ca5..e427cd9 100644
--- a/src/algos/tclposting.tcl
+++ b/src/algos/tclposting.tcl
@@ -2,13 +2,8 @@ namespace eval ::algos::tclposting {
   variable log [logger::init algos::tclposting]
   proc intake {uri text data} {
     variable log
-    if {![regexp -- [join {
-      {\s[Tt]cl(/[Tt]k)?(\.|,|\s)}
-      {^[Tt]cl(/[Tt]k)?(,|\s)}
-      {\s[Tt]cl(/[Tt]k)?$}
-      {\sTk(\.|,|\s)}
-      {^Tk(,|\s)}
-      {\sTk$}
+    if {![regexp -nocase -- [join {
+      {\mtcl(/tk)?\M}
       {\.tcl}
       {tclsh}
       {tcl-lang}
@@ -16,8 +11,9 @@ namespace eval ::algos::tclposting {
       {tcllib}
       {tklib}
       {tcl\.tk}
-      {#tcllang}
-      {[Tt]kinter}} | ] $text]} \
+      {tcllang}
+      {tkinter}} | ] $text] &&
+      ![regexp -- {\mTk\M} $text]} \
     {
       return {}
     }
@@ -25,8 +21,11 @@ namespace eval ::algos::tclposting {
     if {[regexp -nocase -- [join {
       {Title Tk}
       {Comic-Con Tk}
-      {[Tt][Vv][Ss]?}
-      {[Tt]elevision}} | ] $text]} \
+      {\mtvs?\M}
+      {\d\d("|in)}
+      {television}
+      {DVDVR}
+      {wrestling}} | ] $text]} \
     {
       return {}
     }
-- 
2.45.2