`8eb0c8f`

Fix Wayland compositor timeout on inactive workspaces

- Skip rendering when window loses focus to prevent glfwSwapBuffers
from blocking on Wayland frame callbacks
- Add glfwGetWindowAttrib binding and window_is_focused() function
- Track focus state to ensure initial render and clean unfocus state

Authored by mfwolffe <wolffemf@dukes.jmu.edu> 4 months ago

SHA: 8eb0c8fbbbe0f2727ac071ba13586c53ecf9b269
Parents: 11fd979
Tree: cd92a27

3 changed files

Status	File	+	-
M	`src/fortty.f90`	13	2
M	`src/window/glfw_bindings.f90`	13	0
M	`src/window/window.f90`	10	0

src/fortty.f90modified

    integer :: cell_width, cell_height, ascender  ! From font metrics
    real(8) :: current_time, last_time, blink_timer
    logical :: cursor_blink_visible, any_pty_alive
 +  logical :: was_focused, is_focused
    type(selection_t) :: sel
    integer :: font_delta, new_font_size, base_font_size
    character(len=256) :: font_path_saved, fallback_path_saved
    blink_timer = 0.0d0
    cursor_blink_visible = .true.
 +  ! Initialize focus tracking (assume focused initially to ensure first render)
 +  was_focused = .true.
++
    ! Main event loop - exit when window closes or all tabs closed
    any_pty_alive = tab_manager_has_tabs(tab_mgr)
    do while (.not. window_should_close(win) .and. any_pty_alive)
        end if
      end if
 -    ! Render and swap
 -    call do_render()
 +    ! Render and swap - but only if window has focus or just regained focus
 +    ! On Wayland, glfwSwapBuffers blocks waiting for frame callbacks when
 +    ! the window is on an inactive workspace, causing compositor timeout.
 +    ! Skip rendering when unfocused to keep event loop responsive.
 +    is_focused = window_is_focused(win)
 +    if (is_focused .or. was_focused) then
 +      call do_render()
 +    end if
 +    was_focused = is_focused
    end do
    ! Cleanup

src/window/glfw_bindings.f90modified

    integer(c_int), parameter :: GLFW_OPENGL_FORWARD_COMPAT = int(Z'00022006', c_int)
    integer(c_int), parameter :: GLFW_TRANSPARENT_FRAMEBUFFER = int(Z'0002000A', c_int)
 +  ! Window attributes (for glfwGetWindowAttrib)
 +  integer(c_int), parameter :: GLFW_FOCUSED = int(Z'00020001', c_int)
 +  integer(c_int), parameter :: GLFW_ICONIFIED = int(Z'00020002', c_int)
 +  integer(c_int), parameter :: GLFW_VISIBLE = int(Z'00020004', c_int)
++
    ! Key constants
    integer(c_int), parameter :: GLFW_KEY_ESCAPE = 256
    integer(c_int), parameter :: GLFW_KEY_ENTER = 257
        type(c_ptr), value :: window
        type(c_funptr), value :: callback
      end function glfwSetWindowRefreshCallback
++
 +    ! int glfwGetWindowAttrib(GLFWwindow* window, int attrib)
 +    integer(c_int) function glfwGetWindowAttrib(window, attrib) &
 +        bind(C, name="glfwGetWindowAttrib")
 +      import :: c_ptr, c_int
 +      type(c_ptr), value :: window
 +      integer(c_int), value :: attrib
 +    end function glfwGetWindowAttrib
    end interface
  end module glfw_bindings

src/window/window.f90modified

    public :: window_set_render_callback, window_is_resizing
    public :: window_get_tab_action, window_clear_tab_action
    public :: window_get_pane_action, window_clear_pane_action
 +  public :: window_is_focused
    ! Tab action constants
    integer, parameter, public :: TAB_ACTION_NONE = 0
      should = glfwWindowShouldClose(win%handle) /= GLFW_FALSE
    end function window_should_close
 +  ! Check if window has focus - used to skip rendering on Wayland when
 +  ! window is on inactive workspace (prevents compositor timeout)
 +  function window_is_focused(win) result(focused)
 +    type(window_t), intent(in) :: win
 +    logical :: focused
++
 +    focused = glfwGetWindowAttrib(win%handle, GLFW_FOCUSED) /= GLFW_FALSE
 +  end function window_is_focused
++
    subroutine window_swap_buffers(win)
      type(window_t), intent(in) :: win