namespace eval ::algos::tclposting {
  variable log [logger::init algos::tclposting]
  proc intake {uri text data} {
    variable log

    # high high confidence strings
    if {[regexp -nocase -- [join {
      {\.tcl}
      {tclsh}
      {tcl-lang}
      {tcltk}
      {tcllib}
      {tklib}
      {tcl\.tk}
      {tcllang}
      {tkinter}} | ] $text]} \
    {
      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}
      {Comic-Con Tk}
      {\mtvs?\M}
      {\d\d( ?"|( |-|)in(ch)?)}
      {television}
      {DVDVR}
      {wrestling}
      {tk mclaren}} | ] $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]
  }
}