1 files changed, 10 insertions(+), 11 deletions(-)

M 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 {}
     }