;; Small snippet to show the $submenu feature
menu channel,query,status {
Switch
.$iif($chan(0),Channel $iif($chan(0) > 0,( $+ $chan(0) $+ )))
..$submenu($_channel($1))
..$iif($chan(0) < 0,$style(1)) Close all ( $+ $chan(0) $+ ) Channels: if $input(Sure?,8,Sure?) == $true { partall Excess Flood }
.$iif(!$chan(0),No Channels Open) : $null
.$iif($query(0),Query $iif($query(0) > 0,( $+ $query(0) $+ )))
..$submenu($_query($1))
..$iif($query(0) < 0,$style(1)) Close all ( $+ $query(0) $+ ) Query's : if $input(Sure?,8,Sure?) == $true { close -m }
.$iif(!$query(0),No Querys Open) : $null
}
alias -l _channel {
if $1 == begin { return - }
if $1 isnum && $chan($1) { return $iif($chan($1) == $active,$style(2)) $iif($me isop $chan($1),@,$iif($me ishop $chan($1),%,$iif($me isvoice $chan($1),+)))) $+ $chan($1) $iif($chan($1) == $active,(active window)) : join $chan($1) }
if $1 == end { return - }
}
alias -l _query {
if $1 == begin { return - }
if $1 isnum && $query($1) { return $iif($query($1) == $active,$style(2)) $query($1) $iif($query($1) == $active,(active window)) : query $query($1) }
if $1 == end { return - }
}