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

M src/algos/tclposting.tcl

@@ 2,8 2,9 @@ namespace eval ::algos::tclposting {
   variable log [logger::init algos::tclposting]
   proc intake {uri text data} {
     variable log
-    if {![regexp -nocase -- [join {
-      {\mtcl(/tk)?\M}
+
+    # high high confidence strings
+    if {[regexp -nocase -- [join {
       {\.tcl}
       {tclsh}
       {tcl-lang}


@@ 12,11 13,12 @@ namespace eval ::algos::tclposting {
       {tklib}
       {tcl\.tk}
       {tcllang}
-      {tkinter}} | ] $text] &&
-      ![regexp -- {\mTk\M} $text]} \
+      {tkinter}} | ] $text]} \
     {
-      return
+      return [dict get $data commit record createdAt]
     }
+    if {![regexp -nocase -- {\mtcl(/tk)?\M} $text] &&
+        ![regexp -- {\mTk\M} $text]} return
 
     if {[regexp -nocase -- [join {
       {Title Tk}


@@ 26,12 28,11 @@ namespace eval ::algos::tclposting {
       {television}
       {DVDVR}
       {wrestling}
-      {tk mclaren}} | ] $text]} \
-    {
-      return
-    }
+      {tk mclaren}} | ] $text]} return
 
-    if {[regexp -nocase -- {chin(a|ese)} $text] && [regexp -nocase -- {theater|movie} $text]} return
+    # "TCL Chinese Theater"
+    if {[regexp -nocase -- {chin(a|ese)} $text] &&
+        [regexp -nocase -- {theater|movie} $text]} return
 
     return [dict get $data commit record createdAt]
   }