alias clall {
  set %clall.curcid $cid
  set %clall.concount $scid(0)
  set %clall.i 1
  while (%clall.i <= %clall.concount) {
    scid $scon(%clall.i)
    set %clall.j 1
    window -g0 "status window"
    while (%clall.j <= $chan(0)) {
      window -g0 $chan(%clall.j)
      inc %clall.j 1
    }
    set %clall.j 1
    while (%clall.j <= $query(0)) {
      window -g0 $query(%clall.j)
      inc %clall.j 1
    }
    inc %clall.i 1
  }
  scid %clall.curcid
}