alias theme {
  var %lasteventtime = $hget(THEME.timestamps,$1)
  hadd -m THEME.timestamps $1 $asctime(yy:mm:dd:HH:nn)
  return $iif(%lasteventtime == $hget(THEME.timestamps,$1), $str($chr(160),18), $+($in3,$asctime(hh:nnt),$out3) $str($chr(160),3))
}