From 45b4726bb4064d001f09b40b8ecf6a82b6c55ec1 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Tue, 26 Nov 2024 22:39:08 -0500
Subject: [PATCH] more heuristic tweaks

---
 src/algos/tclposting.tcl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/algos/tclposting.tcl b/src/algos/tclposting.tcl
index ea507cd..d3fe799 100644
--- a/src/algos/tclposting.tcl
+++ b/src/algos/tclposting.tcl
@@ -13,13 +13,15 @@ namespace eval ::algos::tclposting {
       {tklib}
       {tcl\.tk}
       {tcllang}
-      {tkinter}} | ] $text]} \
+      {tkinter}
+      {tcl/tk}
+      {tk/tcl}} | ] $text]} \
     {
       return [dict get $data commit record createdAt]
     }
 
     # bare minimum
-    if {![regexp -nocase -- {\mtcl(/tk)?\M} $text] &&
+    if {![regexp -nocase -- {\mtcl\M} $text] &&
         ![regexp -- {\mTk\M} $text]} return
 
     # blocklist
-- 
2.45.2