2 files changed, 21 insertions(+), 1 deletions(-)

M src/algos/tclposting.tcl
M src/ws.tcl

@@ 17,15 17,34 @@ namespace eval ::algos::tclposting {
     {
       return [dict get $data commit record createdAt]
     }
+
+    # bare minimum
     if {![regexp -nocase -- {\mtcl(/tk)?\M} $text] &&
         ![regexp -- {\mTk\M} $text]} return
 
+    # blocklist
     if {[regexp -nocase -- [join {
+      {SYTRAL}
+      {F[eê]te ?des ?Lumi[eè]res}
+      {m[eé]tro}
+      {\mLyon(naise?s?)?\M}
+      {TCL\+Ve?Lo?}
+
+      {Wok Mix}
+
+      {youtu\.?be(\.com)[^ ]+(tk|tcl)}
+
       {Title Tk}
+      {Tk (you|DM)\M}
       {Comic-Con Tk}
       {\mtvs?\M}
       {\d\d( ?"|( |-|)in(ch)?)}
       {television}
+      {Projector}
+
+      {tcl-bookreviews}
+      {TopTenTuesday}
+
       {DVDVR}
       {wrestling}
       {tk mclaren}} | ] $text]} return

@@ 270,8 270,9 @@ namespace eval ::ws::c {
           [set callback($sock)] $sock close [dict get $frame data]
         }
       }
-    } return]} {
+    } result options]} {
       ${log}::error "error in websocket callback for ${sock}: $result"
+      ${log}::error "options: $options"
     }
   }
 }