; http://dev.adiirc.com/boards/5/topics/475
; v0.4 by pereba

; Hide all idle channels and querys (no new message color):
;  /hidle

; Force unhide all windows if need:
;  /hidle -u

; Lets hide inactive windows after xx seconds on AdiIRC startup?!
on *:START: {
  .timerhidle 0 1 hidle
}

; Global timeout
alias -l timeout {
  return 120
}

; Restore windows on unloading script
on *:UNLOAD: hidle -u

alias F3 {
  hidle -u
}

alias hidle {
  scon -a dohidle $1
}

alias -l dohidle {
  var %w $window(*,0), %wtype, %wname, %wid, %wcolor, %widle

  while (%w) {
    %wtype = $istok(channel query,$window(*,%w).type,32)
    %wname = $window(*,%w)
    %wid = $window(*,%w).wid
    %wcolor = $istok(message highlight,$window(*,%w).sbcolor,32)
    %widle = $($+(%,hidle_,%wid),2)

    if (%wtype) && ($activewid != %wid) {

      if (%widle != 0) dec %hidle_ $+ %wid
      
      if (u isin $1) {
        window -w3 %wname
        set -e %hidle_ $+ %wid $timeout()
      }
      if (!%wcolor) && (!%widle) {
        window -w0 %wname
        set -e %hidle_ $+ %wid $timeout()
      }
      
    }
    
    dec %w
  }
}

; Unhide on focus
on *:ACTIVE:*: {
  var %lwid = $lactivewid
  
  if ($window(@ $+ %lwid).type isin channel querry) && (%lwid != $wid) set -e %hidle_ $+ %lwid 120  
  if (!$window($active).tbstate) && ($window($active).type isin channel querry) window -w3 $active
  if ($window($active).type == status) && (%lwid != $wid) .timer -m 1 1 dohidle -u
  
}

; Unhide on activity
on *:TEXT:*:#,?: {
  var %w = @ $+ $wid
  if (!$window(%w).tbstate) window -w3 %w
}

menu menubar {
  -
  Idle Windows
  .Hide no new message windows: hidle
  .Force unhide all: hidle -u
  .-
  .Auto hide control $chr(9) $iif($timer(Hidle),On,Off):toggle
}

alias -l toggle {
  if ($timer(hidle)) {
    scon -a hidle -u
    .timerhidle off
  }
  else {
    .timerhidle 0 1 hidle
  }
}