; http://dev.adiirc.com/boards/5/topics/475
; Version 0.5

; TODO MAKE CHANGE WINDOW HIDE STATUS ONLY IF NEED TO AVOID UNCOLAPSING AND OTHER THINGS

alias -l hidle.version {
  return v0.5
}

; 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: {
  if ($exists($hidle.file)) hload -m hidle $hidle.file
  else {
    freshstart
  }
  .timerhidle -o 0 1 hidle
}

alias -l freshstart {
  hmake hidle
}

alias -l hidle.file {
  return $qt($adiircdir\hidle_Windows.dat)
}

alias -l hidle.save {
  hsave hidle $hidle.file
}

; Global timeout
alias -l hidle.timeout {
  return 60
}

; 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, %wstate

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

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

      if (%widle) dec %hidle_ $+ %wid
      
      if (u isin $1) {
        window -w3 %wname
        set -e %hidle_ $+ %wid $hidle.timeout()
      }
      elseif (!%wcolor) && (!%widle) && (%wstate) {

        ; skip hidding if Status is active and window is from same network, otherwise you will need to togle focus to get 'Unhide windows on focus network status' working.
        if ($active == Status Window) && (%wcid == $activecid) { }
        else {
          window -w0 %wname
          set -e %hidle_ $+ %wid $hidle.timeout()
        }
      }
      
    }
    
    dec %w
  }
}

; Unhide on focus
on *:ACTIVE:*: {
  if ($hget(hidle,unhide_on_status_focus).data == $null) return
  
  var %lwid = $lactivewid

  if ($window(@ $+ %lwid).type isin channel query) && (%lwid != $wid) set -e %hidle_ $+ %lwid $hidle.timeout()  
  if (!$window($active).tbstate) && ($window($active).type isin channel query) window -w3 $active
  if ($window($active).type == status) && (%lwid != $wid) .timer -m 1 1 dohidle -u
  
}

; Unhide on activity
on *:TEXT:*:#,?: {
  if (!$halted) {
    wunhide
  }
}

on *:ACTION:*:#,?: {
  if (!$halted) {
    wunhide
  }
}

alias -l wunhide {
  var %w = @ $+ $wid
  if (!$window(%w).tbstate) window -w3 %w
}

menu menubar {
  -
  Idle Windows
  .$style(2) $chr(91) Global config - hidle $hidle.version $chr(93):noop
  .-
  .$chr(28) Auto hide control $chr(9) $iif($timer(Hidle),On,Off):toggle
  .$chr(28) Global timeout in seconds $chr(9) $iif($hget(hidle,global_timeout).data,$v1,$hidle.timeout())): var %v $input(Global timeout in seconds for $crlf $+ $crlf $+ Send empty value to restore original config,oeq,hidle,$iif($hget(hidle,global_timeout).data,$v1)) | if (%v isnum 1-) hadd -m hidle global_timeout %v | if ($remove(%v,$chr(32)) == $null) hadd -m hidle global_timeout $hidle.timeout() | hidle.save
  .$chr(28) Unhide windows on focus network status $chr(9) $iif($hget(hidle,unhide_on_status_focus).data,$v1,No)): var %v $input(Unhide windows on focus network status?,oqm,hidle,,Yes,No) | hadd -m hidle unhide_on_status_focus %v | hidle.save
  .-
  .$iif($window($active).type isin channel query,$style(2) $chr(91) $active @ $network $chr(93) custom rules):noop
  .-
  .$iif($window($active).type isin channel query,$chr(28) Timeout $chr(9) $iif($hget(hidle,# $+ @ $+ $network).data,$v1,Follow global)): var %v $input(Timeout in seconds for $active $crlf $+ $crlf $+ Send empty value to follow global config,oeq,hidle,$iif($hget(hidle,# $+ @ $+ $network).data,$v1)) | if (%v isnum 1-) hadd -m hidle # $+ @ $+ $network %v | if ($remove(%v,$chr(32)) == $null) hdel hidle # $+ @ $+ $network | hidle.save
  .$iif($window($active).type isin channel query,$chr(28) Exclude channel (stay visible) $chr(9) $iif(# $+ @ $+ $network isin $hget(hidle,exclusions).data,Yes,No)): hadd -m hidle exclusions $iif(# $+ @ $+ $network isin $hget(hidle,exclusions).data, $remtok($hget(hidle,exclusions).data,# $+ @ $+ $network,1,32) , $addtok($hget(hidle,exclusions).data,# $+ @ $+ $network,32) )) | hidle.save
  .-
  .$style(2) $chr(91) Manual tools $chr(93):noop
  .-
  .$chr(28) Hide read windows (no new message): hidle
  .$chr(28) Force unhide all: hidle -u
}

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