autojoin channels

on *:connect:{ .timer 1 10 join -n %aj. [ $+ [ $network ] ] }
menu status {
  Autojoin on $network
  .List
  ..$submenu($channel_list($1))
  .Join list now:join -n %aj. [ $+ [ $network ] ]
}

menu channel {
  Autojoin on $network
  .Add $chan:set $+(%,aj,.,$network) $addtok($eval($+(%,aj,.,$network),2),$chan,44)
  .Remove $chan:set $+(%,aj,.,$network) $remtok($eval($+(%,aj,.,$network),2),$chan,44)
  .-
  .Join list now:join -n %aj. [ $+ [ $network ] ]
  .-
  .$submenu($channel_list($1))
}

alias channel_list {
  if ($istok(begin end,$1,32)) return -
  else return $gettok($($+(%,aj.,$network),2),$1,44) :noop
}