bug.n/src/View.ahk

/*
  bug.n -- tiling window management
  Copyright (c) 2010-2015 Joshua Fuhs, joten

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  GNU General Public License for more details.

  @license GNU General Public License version 3
           ../LICENSE.md or <http://www.gnu.org/licenses/>

  @version 9.0.0
*/

View_init(m, v)
{
  Global

  View_#%m%_#%v%_area_#0        := 0
  View_#%m%_#%v%_aWndId         := 0
  View_#%m%_#%v%_layout_#1      := 1
  View_#%m%_#%v%_layout_#2      := 1
  View_#%m%_#%v%_layoutAxis_#1  := Config_layoutAxis_#1
  View_#%m%_#%v%_layoutAxis_#2  := Config_layoutAxis_#2
  View_#%m%_#%v%_layoutAxis_#3  := Config_layoutAxis_#3
  View_#%m%_#%v%_layoutGapWidth := Config_layoutGapWidth
  View_#%m%_#%v%_layoutMFact    := Config_layoutMFactor
  View_#%m%_#%v%_layoutMX       := 1
  View_#%m%_#%v%_layoutMY       := 1
  View_#%m%_#%v%_layoutSymbol   := Config_layoutSymbol_#1
  View_#%m%_#%v%_margins        := "0;0;0;0"
  View_#%m%_#%v%_showStackArea  := True
  StringSplit, View_#%m%_#%v%_margin, View_#%m%_#%v%_margins, `;
  View_#%m%_#%v%_wndIds         := ""
}

View_activateWindow(i, d = 0) {
  Local aWndId, direction, failure, j, v, wndId, wndId0, wndIds

  Debug_logMessage("DEBUG[1] View_activateWindow(" . i . ", " . d . ")", 1)
  If (d = 0)
    Return

  WinGet, aWndId, ID, A
  Debug_logMessage("DEBUG[2] Active Windows ID: " . aWndId, 2, False)
  v := Monitor_#%Manager_aMonitor%_aView_#1
  Debug_logMessage("DEBUG[2] View (" . v . ") wndIds: " . View_#%Manager_aMonitor%_#%v%_wndIds, 2, False)
  StringTrimRight, wndIds, View_#%Manager_aMonitor%_#%v%_wndIds, 1
  StringSplit, wndId, wndIds, `;
  Debug_logMessage("DEBUG[2] wndId count: " . wndId0, 2, False)
  If (wndId0 > 1) {
    If Window_#%aWndId%_isFloating
      Window_set(aWndId, "Bottom", "")
    Loop, % wndId0 {
      If (wndId%A_Index% = aWndId) {
        j := A_Index
        Break
      }
    }
    Debug_logMessage("DEBUG[2] Current wndId index: " . j, 2, False)

    If (d > 0)
      direction = 1
    Else
      direction = -1
    i := Manager_loop(j, d, 1, wndId0)
    Loop, % wndId0 {
      Debug_logMessage("DEBUG[2] Next wndId index: " . i, 2, False)
      wndId := wndId%i%
      Window_set(wndId, "AlwaysOnTop", "On")
      Window_set(wndId, "AlwaysOnTop", "Off")

      ;; If there are hung windows on the screen, we still want to be able to cycle through them.
      failure := Manager_winActivate(wndId)
      If Not failure
        Break
      i := Manager_loop(i, direction, 1, wndId0)
    }
  }
}

View_addWindow(m, v, wndId) {
  Local i, mSplit, n, replace, search

  If Tiler_isActive(m, v) And ((Config_newWndPosition = "masterBottom") Or (Config_newWndPosition = "stackTop")) {
    n := View_getTiledWndIds(m, v)
    mSplit := View_#%m%_#%v%_layoutMX * View_#%m%_#%v%_layoutMY
    If (mSplit = 1 And Config_newWndPosition = "masterBottom")
      View_#%m%_#%v%_wndIds := wndId ";" . View_#%m%_#%v%_wndIds
    Else If ((Config_newWndPosition = "masterBottom" And n < mSplit) Or (Config_newWndPosition = "stackTop" And n <= mSplit))
      View_#%m%_#%v%_wndIds .= wndId ";"
    Else {
      If (Config_newWndPosition = "masterBottom")
        i := mSplit - 1
      Else
        i := mSplit
      search  := View_tiledWndId%i% ";"
      replace := search wndId ";"
      StringReplace, View_#%m%_#%v%_wndIds, View_#%m%_#%v%_wndIds, %search%, %replace%
    }
  }
  Else If (Config_newWndPosition = "bottom")
    View_#%m%_#%v%_wndIds .= wndId ";"
  Else
    View_#%m%_#%v%_wndIds := wndId ";" View_#%m%_#%v%_wndIds
}

View_arrange(m, v, setLayout = False) {
  Local fn, h, l, w, x, y

  Debug_logMessage("DEBUG[1] View_arrange(" . m . ", " . v . ")", 1)

  l := View_#%m%_#%v%_layout_#1
  fn := Config_layoutFunction_#%l%
  If fn {
    x := Monitor_#%m%_x + View_#%m%_#%v%_layoutGapWidth + View_#%m%_#%v%_margin4
    y := Monitor_#%m%_y + View_#%m%_#%v%_layoutGapWidth + View_#%m%_#%v%_margin1
    w := Monitor_#%m%_width - 2 * View_#%m%_#%v%_layoutGapWidth - View_#%m%_#%v%_margin4 - View_#%m%_#%v%_margin2
    h := Monitor_#%m%_height - 2 * View_#%m%_#%v%_layoutGapWidth - View_#%m%_#%v%_margin1 - View_#%m%_#%v%_margin3

    ;; All window actions are performed on independent windows. A delay won't help.
    SetWinDelay, 0
    If Config_dynamicTiling Or setLayout {
      View_getTiledWndIds(m, v)
      If (fn = "monocle") {
        ;; 'View_getLayoutSymbol_monocle'
        View_#%m%_#%v%_layoutSymbol := "[" View_tiledWndId0 "]"
        ;; 'View_arrange_monocle'
        Tiler_stackTiles(0, 0, 1, View_tiledWndId0, +1, 3, x, y, w, h, 0)
      } Else    ;; (fn = "tile")
        Tiler_layoutTiles(m, v, x, y, w, h)
    } Else If (fn = "tile") {
      Tiler_layoutTiles(m, v, x, y, w, h, "blank")
      If Config_continuouslyTraceAreas
        View_traceAreas(True)
    }
    SetWinDelay, 10
  }
  Else    ;; floating layout (no 'View_arrange_', following is 'View_getLayoutSymbol_')'
    View_#%m%_#%v%_layoutSymbol := Config_layoutSymbol_#%l%

  Bar_updateLayout(m)
}

View_getActiveWindow(m, v) {
  Local aWndId

  WinGet, aWndId, ID, A
  If WinExist("ahk_id" aWndId) And InStr(View_#%m%_#%v%_wndIds, aWndId ";") And Window_isProg(aWndId)
    Return, aWndId
  Else
    Return, 0
}

View_getTiledWndIds(m, v)
{
  Local n, tiledWndIds, wndIds

  StringTrimRight, wndIds, View_#%m%_#%v%_wndIds, 1
  Loop, PARSE, wndIds, `;
  {
    If Not Window_#%A_LoopField%_isFloating And WinExist("ahk_id " A_LoopField) and Not Window_isHung(A_LoopField)
    {
      n += 1
      tiledWndIds .= A_LoopField ";"
    }
  }
  View_tiledWndIds := tiledWndIds
  StringTrimRight, tiledWndIds, tiledWndIds, 1
  StringSplit, View_tiledWndId, tiledWndIds, `;

  Return, n
}

View_ghostWindow(m, v, bodyWndId, ghostWndId)
{
  Local search, replace

  search := bodyWndId ";"
  replace := search ghostWndId ";"
  StringReplace, View_#%m%_#%v%_wndIds, View_#%m%_#%v%_wndIds, %search%, %replace%
}

View_moveWindow(i=0, d=0) {
  Local aWndId, m, v

  WinGet, aWndId, ID, A
  m := Manager_aMonitor
  v := Monitor_#%m%_aView_#1
  If Tiler_isActive(Manager_aMonitor, v) And InStr(Manager_managedWndIds, aWndId ";") And Not (i = 0 And d = 0) And (i <= View_#%m%_#%v%_area_#0) {
    If (i = 0)
      i := Manager_loop(Window_#%aWndId%_area, d, 1, View_#%m%_#%v%_area_#0)
    Window_move(aWndId, View_#%m%_#%v%_area_#%i%_x, View_#%m%_#%v%_area_#%i%_y, View_#%m%_#%v%_area_#%i%_width, View_#%m%_#%v%_area_#%i%_height)
    Window_#%aWndId%_area := i
    Manager_setCursor(aWndId)
  }
}

View_setGapWidth(i, d = 0) {
  Local v

  v := Monitor_#%Manager_aMonitor%_aView_#1
  If (i = 0) And (d != 0)
    i := View_#%Manager_aMonitor%_#%v%_layoutGapWidth
  i += d
  If (i >= 0 And i < Monitor_#%Manager_aMonitor%_height And i < Monitor_#%Manager_aMonitor%_width) {
    i := Ceil(i / 2) * 2
    View_#%Manager_aMonitor%_#%v%_layoutGapWidth := i
    Return, 1
  } Else
    Return, 0
}

View_setLayout(i, d = 0) {
  Local v

  v := Monitor_#%Manager_aMonitor%_aView_#1
  If (i = -1)
    i := View_#%Manager_aMonitor%_#%v%_layout_#2
  Else If (i = 0)
    i := View_#%Manager_aMonitor%_#%v%_layout_#1
  i := Manager_loop(i, d, 1, Config_layoutCount)
  If (i > 0) And (i <= Config_layoutCount) {
    If Not (i = View_#%Manager_aMonitor%_#%v%_layout_#1) {
      View_#%Manager_aMonitor%_#%v%_layout_#2 := View_#%Manager_aMonitor%_#%v%_layout_#1
      View_#%Manager_aMonitor%_#%v%_layout_#1 := i
    }
    View_arrange(Manager_aMonitor, v, True)
  }
}

View_setLayoutProperty(name, i, d, opt = 0) {
  Local a, l, v

  v := Monitor_#%Manager_aMonitor%_aView_#1
  l := View_#%Manager_aMonitor%_#%v%_layout_#1
  If Tiler_isActive(Manager_aMonitor, v) {
    If (name = "Axis")
      a := Tiler_setAxis(Manager_aMonitor, v, opt, d)
    Else If (name = "MFactor") {
      If (opt = 0)
        opt := 1
      a := Tiler_setMFactor(Manager_aMonitor, v, i, d, opt)
    } Else If (name = "MX")
      a := Tiler_setMX(Manager_aMonitor, v, d)
    Else If (name = "MY")
      a := Tiler_setMY(Manager_aMonitor, v, d)
  }
  If (name = "GapWidth") And (Tiler_isActive(Manager_aMonitor, v) Or (Config_layoutFunction_#%l% = "monocle"))
    a := View_setGapWidth(i, d)

  If a
    View_arrange(Manager_aMonitor, v)
}

View_shuffleWindow(i, d = 0) {
  Local aWndId, j, replace, v

  Debug_logMessage("DEBUG[2] View_shuffleWindow(" . i . ", " . d . ")", 2)
  v := Monitor_#%Manager_aMonitor%_aView_#1
  If Tiler_isActive(Manager_aMonitor, v) {
    View_getTiledWndIds(Manager_aMonitor, v)
    WinGet, aWndId, ID, A
    If InStr(View_tiledWndIds, aWndId ";") And (View_tiledWndId0 > 1) {
      Loop, % View_tiledWndId0 {
        If (View_tiledWndId%A_Index% = aWndId) {
          j := A_Index
          Break
        }
      }
      If (i = 0)
        i := j
      Else If (i = 1 And j = 1)
        i := 2
      i := Manager_loop(i, d, 1, View_tiledWndId0)
      Debug_logMessage("DEBUG[2] View_shuffleWindow: " . j . " -> " . i, 2)
      If (i != j) {
        If (i < j)
          replace := aWndId ";" View_tiledWndId%i% ";"
        Else
          replace := View_tiledWndId%i% ";" aWndId ";"
        StringReplace, View_#%Manager_aMonitor%_#%v%_wndIds, View_#%Manager_aMonitor%_#%v%_wndIds, % aWndId ";",
        StringReplace, View_#%Manager_aMonitor%_#%v%_wndIds, View_#%Manager_aMonitor%_#%v%_wndIds, % View_tiledWndId%i% ";", %replace%
        View_arrange(Manager_aMonitor, v)
        Manager_setCursor(aWndId)
      }
    }
  }
}

View_toggleFloatingWindow(wndId = 0) {
  Local l, v

  If (wndId = 0)
    WinGet, wndId, ID, A
  v := Monitor_#%Manager_aMonitor%_aView_#1
  l := View_#%Manager_aMonitor%_#%v%_layout_#1
  If (Config_layoutFunction_#%l% And InStr(Manager_managedWndIds, wndId ";")) {
    Window_#%wndId%_isFloating := Not Window_#%wndId%_isFloating
    View_arrange(Manager_aMonitor, v)
    Bar_updateTitle()
  }
}

View_toggleMargins()
{
  Local v

  Debug_logMessage("DEBUG[3] View_toggleMargins(" . View_#%Manager_aMonitor%_#%v%_margin1 . ", " . View_#%Manager_aMonitor%_#%v%_margin2 . ", " . View_#%Manager_aMonitor%_#%v%_margin3 . ", " . View_#%Manager_aMonitor%_#%v%_margin4 . ")", 3)

  If Not (Config_viewMargins = "0;0;0;0")
  {
    v := Monitor_#%Manager_aMonitor%_aView_#1
    If (View_#%Manager_aMonitor%_#%v%_margins = "0;0;0;0")
      View_#%Manager_aMonitor%_#%v%_margins := Config_viewMargins
    Else
      View_#%Manager_aMonitor%_#%v%_margins := "0;0;0;0"
    StringSplit, View_#%Manager_aMonitor%_#%v%_margin, View_#%Manager_aMonitor%_#%v%_margins, `;
    View_arrange(Manager_aMonitor, v)
  }
}

View_toggleStackArea() {
  Local v

  v := Monitor_#%Manager_aMonitor%_aView_#1
  If Tiler_isActive(Manager_aMonitor, v) And Not Config_dynamicTiling {
    Tiler_toggleStackArea(Manager_aMonitor, v)
    View_arrange(Manager_aMonitor, v)
  }
}

View_traceAreas(continuously = False) {
  Local v

  v := Monitor_#%Manager_aMonitor%_aView_#1
  If Tiler_isActive(Manager_aMonitor, v) And Not Config_dynamicTiling
    Tiler_traceAreas(Manager_aMonitor, v, continuously)
}