`d14d0a1`

cleanup disk i/o

Authored by

espadonne 6 months ago

SHA: d14d0a18726238325b8970eaade8a0e937cbbc4e
Parents: 53c7a91
Tree: 8f3fd7b

7 changed files

Status	File	+	-
A	`src/cache_module.f90`	98	0
M	`src/fuss_main.f90`	87	33
C	`src/fuss_main.f90.bak`	0	0
C	`src/fuss_main.f90.bak2`	0	0
M	`src/git_module.f90`	112	47
C	`src/git_module.f90.phase23`	0	0
M	`src/terminal_module.f90`	7	4

src/cache_module.f90added

++module cache_module
++    use types_module
++    implicit none
++
++    ! File cache type for storing git command results
++    type :: file_cache
++        real(8) :: timestamp
++        type(file_entry), allocatable :: files(:)
++        integer :: n_files
++        logical :: valid
++    end type
++
++    ! Global caches for dirty files and all files
++    type(file_cache) :: dirty_cache, all_cache
++
++    ! Cache time-to-live (500ms = 0.5 seconds)
++    ! After this time, cache is considered stale
++    real(8), parameter :: CACHE_TTL = 0.5d0
++
++contains
++
++    ! Check if a cache entry is still valid
++    function cache_valid(cache) result(valid)
++        type(file_cache), intent(in) :: cache
++        logical :: valid
++        real(8) :: current_time
++
++        if (.not. cache%valid) then
++            valid = .false.
++            return
++        end if
++
++        call cpu_time(current_time)
++        valid = (current_time - cache%timestamp) < CACHE_TTL
++    end function cache_valid
++
++    ! Invalidate a cache (mark as stale)
++    subroutine invalidate_cache(cache)
++        type(file_cache), intent(inout) :: cache
++        cache%valid = .false.
++    end subroutine invalidate_cache
++
++    ! Invalidate all caches (called after state-changing operations)
++    subroutine invalidate_all_caches()
++        call invalidate_cache(dirty_cache)
++        call invalidate_cache(all_cache)
++    end subroutine invalidate_all_caches
++
++    ! Update cache with new data
++    subroutine update_cache(cache, files, n_files)
++        type(file_cache), intent(inout) :: cache
++        type(file_entry), intent(in) :: files(:)
++        integer, intent(in) :: n_files
++        integer :: i
++
++        ! Free old data
++        if (allocated(cache%files)) deallocate(cache%files)
++
++        ! Allocate and copy new data
++        allocate(cache%files(n_files))
++        do i = 1, n_files
++            cache%files(i) = files(i)
++        end do
++
++        cache%n_files = n_files
++        call cpu_time(cache%timestamp)
++        cache%valid = .true.
++    end subroutine update_cache
++
++    ! Retrieve cached data
++    subroutine get_cached_files(cache, files, n_files)
++        type(file_cache), intent(in) :: cache
++        type(file_entry), allocatable, intent(out) :: files(:)
++        integer, intent(out) :: n_files
++        integer :: i
++
++        n_files = cache%n_files
++
++        if (allocated(files)) deallocate(files)
++        allocate(files(n_files))
++
++        do i = 1, n_files
++            files(i) = cache%files(i)
++        end do
++    end subroutine get_cached_files
++
++    ! Initialize caches (call at program start)
++    subroutine init_caches()
++        dirty_cache%valid = .false.
++        dirty_cache%timestamp = 0.0d0
++        dirty_cache%n_files = 0
++
++        all_cache%valid = .false.
++        all_cache%timestamp = 0.0d0
++        all_cache%n_files = 0
++    end subroutine init_caches
++
++end module cache_module

src/fuss_main.f90modified

      use tree_module
      use display_module
      use terminal_module
++    use cache_module
      implicit none
      ! Main program variables
      logical :: show_all, interactive
      character(len=:), allocatable :: root_path
++    ! Initialize caches for performance optimization
++    call init_caches()
++
      ! Parse command line arguments
      call parse_arguments(show_all, interactive)
          character(len=1024) :: buffer
          integer :: status
--        call execute_command_line('pwd > /tmp/fuss_pwd.txt', exitstat=status)
++        call execute_command_line('pwd > /tmp/fuss_tmp.txt', exitstat=status)
--        open(unit=99, file='/tmp/fuss_pwd.txt', status='old', action='read')
++        open(unit=99, file='/tmp/fuss_tmp.txt', status='old', action='read')
          read(99, '(A)') buffer
          close(99, status='delete')
          logical :: running, hide_dotfiles
          character(len=256) :: repo_name, branch_name, term_program
          integer :: term_height, viewport_offset, visible_items, top_padding
++        integer :: prev_selected, prev_viewport
++        logical :: needs_full_redraw
          type(tree_node), pointer :: tree_root
          ! Initialize tree pointer
          viewport_offset = 1
          running = .true.
++        ! Partial redraw optimization: initialize tracking state
++        prev_selected = 0  ! Force initial draw
++        prev_viewport = 0
++        needs_full_redraw = .true.
++
          ! Enter alternate screen buffer (preserves terminal content)
          call enter_alternate_screen()
                  viewport_offset = n_items - visible_items + 1
              end if
--            ! Clear screen and redraw
++            ! Conditional redraw for performance optimization
--            call clear_screen()
++            if (needs_full_redraw .or. viewport_offset /= prev_viewport) then
--            call draw_interactive_tree(tree_root, items, n_items, selected, &
++                ! Full redraw needed: viewport scrolled or forced refresh
--                                       repo_name, branch_name, viewport_offset, visible_items, top_padding)
++                call clear_screen()
++                call draw_interactive_tree(tree_root, items, n_items, selected, &
++                                           repo_name, branch_name, viewport_offset, visible_items, top_padding)
++                needs_full_redraw = .false.
++            else if (selected /= prev_selected) then
++                ! Only selection changed within same viewport - still need full redraw for now
++                ! TODO: Could optimize this with partial line updates in the future
++                call clear_screen()
++                call draw_interactive_tree(tree_root, items, n_items, selected, &
++                                           repo_name, branch_name, viewport_offset, visible_items, top_padding)
++            end if
++
++            ! Update tracking state
++            prev_selected = selected
++            prev_viewport = viewport_offset
              ! Read key
              call read_key(key)
                      call rebuild_item_list_from_tree(tree_root, items, n_items, hide_dotfiles)
                      ! Adjust selection if needed
                      if (selected > n_items .and. n_items > 0) selected = n_items
++                    ! Force full redraw after tree structure change
++                    needs_full_redraw = .true.
                  end if
              case ('a')  ! Stage file or directory (lowercase to avoid conflict with arrow A)
                  ! Check if it's a directory - stage all files in it
                      call git_stage_directory(items(selected)%path)
                      ! Refresh files after staging directory
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                            hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
                  ! Otherwise it's a file - stage individual file
                  else if (items(selected)%is_file .and. (items(selected)%is_unstaged .or. items(selected)%is_untracked)) then
                      call git_add_file(items(selected)%path)
                      ! Refresh files after git add
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                            hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
                  end if
              case ('u')  ! Unstage file (lowercase)
                  if (items(selected)%is_file .and. items(selected)%is_staged) then
                      call git_unstage_file(items(selected)%path)
                      ! Refresh files after git unstage
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running)
++                                            hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
                  end if
              case ('S')  ! Stage all (Shift+S to avoid conflict with up arrow 'A')
                  call git_stage_all()
                  ! Refresh files after staging all
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                        hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('U')  ! Unstage all (Shift+U)
                  call git_unstage_all()
                  ! Refresh files after unstaging all
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('m')  ! Commit (lowercase)
                  call commit_prompt()
                  ! Refresh files after commit
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('M')  ! Amend last commit (Shift+m)
                  call amend_commit_prompt()
                  ! Refresh files after amend commit
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('s')  ! Show git status (lowercase)
                  call show_status_view()
              case ('p')  ! Push (lowercase)
                  call push_prompt()
                  ! Refresh files after push
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('t')  ! Tag (lowercase)
                  call tag_prompt()
              case ('b')  ! Switch branch
                  call branch_switch_prompt()
                  ! Refresh files after branch switch
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                        hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
                  ! Update branch name display
                  call get_repo_info(repo_name, branch_name)
              case ('n')  ! Create new branch
                  call branch_create_prompt()
                  ! Refresh files after branch creation
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                        hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
                  ! Update branch name display
                  call get_repo_info(repo_name, branch_name)
              case ('R')  ! Delete branch (Shift+r, since 'r' is used for delete file)
                  call git_fetch()
                  ! Refresh files after fetch and include files with incoming changes
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, include_incoming=.true.)
++                                        hide_dotfiles, selected, running, include_incoming=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('d')  ! Git diff with less
                  if (items(selected)%is_file) then
                      call git_diff_file(items(selected)%path, items(selected)%has_incoming)
                      call delete_prompt(items(selected)%path, items(selected)%is_untracked)
                      ! Refresh files after delete
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                            hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
                  end if
              case ('x', 'X')  ! Discard changes
                  if (items(selected)%is_file .and. (items(selected)%is_staged .or. items(selected)%is_unstaged .or. items(selected)%is_untracked)) then
                      call discard_prompt(items(selected)%path, items(selected)%is_staged, items(selected)%is_untracked)
                      ! Refresh files after discard
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                            hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
                  end if
              case ('l')  ! Git pull
                  call git_pull()
                  ! Refresh files after pull (incoming indicators will automatically clear)
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, include_incoming=.true.)
++                                        hide_dotfiles, selected, running, include_incoming=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
                  ! Note: After successful pull, git diff will show no upstream differences
                  ! so has_incoming will be .false. for all files automatically
              case ('z')  ! Stash push (save changes)
                  call stash_push_prompt()
                  ! Refresh files after stash
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                        hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('Z')  ! Stash pop/apply (restore changes)
                  call stash_pop_apply_prompt()
                  ! Refresh files after stash pop/apply
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('y')  ! Cherry-pick (yank commit)
                  call cherry_pick_prompt()
                  ! Refresh files after cherry-pick
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('v')  ! Revert commit
                  call revert_commit_prompt()
                  ! Refresh files after revert
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('h')  ! Show commit history
                  call history_browser_prompt()
                  ! No refresh needed - read-only
                  call merge_branch_prompt()
                  ! Refresh files after merge
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
                  ! Update branch name display in case we merged
                  call get_repo_info(repo_name, branch_name)
              case ('O')  ! Reset (Shift+o - "Oh no, undo!")
                  call reset_prompt()
                  ! Refresh files after reset
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('I')  ! Interactive rebase (Shift+i)
                  call rebase_prompt()
                  ! Refresh files after rebase
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
++                    needs_full_redraw = .true.
              case ('.')  ! Toggle hiding dotfiles and gitignored files
                  hide_dotfiles = .not. hide_dotfiles
                  ! Rebuild item list with new filter
                  ! Adjust selection and visible_items for new item count
                  if (selected > n_items .and. n_items > 0) selected = n_items
                  if (n_items > 0 .and. selected < 1) selected = 1
++                ! Force full redraw after filter change
++                needs_full_redraw = .true.
                  ! Recalculate visible_items in case n_items changed
                  visible_items = term_height - 6
                  if (visible_items < 3) visible_items = 3
      end subroutine branch_delete_prompt
      subroutine refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                    hide_dotfiles, selected, running, exit_if_empty, include_incoming)
++                                    hide_dotfiles, selected, running, exit_if_empty, include_incoming, force_refresh)
          ! Centralized helper to refresh file list and rebuild tree
          ! Consolidates the pattern repeated 20+ times in the codebase
++        ! Now with caching support for performance optimization
          logical, intent(in) :: show_all, hide_dotfiles
          type(file_entry), allocatable, intent(inout) :: files(:)
          integer, intent(inout) :: n_files, n_items, selected
          type(tree_node), pointer, intent(inout) :: tree_root
          type(selectable_item), allocatable, intent(inout) :: items(:)
          logical, intent(inout), optional :: running
--        logical, intent(in), optional :: exit_if_empty, include_incoming
++        logical, intent(in), optional :: exit_if_empty, include_incoming, force_refresh
--        logical :: do_exit_if_empty, do_include_incoming
++        logical :: do_exit_if_empty, do_include_incoming, do_force_refresh
          ! Handle optional parameters
          do_exit_if_empty = .false.
          do_include_incoming = .false.
          if (present(include_incoming)) do_include_incoming = include_incoming
--        ! Get files based on mode
++        do_force_refresh = .false.
++        if (present(force_refresh)) do_force_refresh = force_refresh
++
++        ! Get files based on mode (with caching support)
          if (show_all) then
--            call get_all_files(files, n_files)
++            call get_all_files(files, n_files, force_refresh=do_force_refresh)
              call mark_incoming_changes(files, n_files)
          else
--            call get_dirty_files(files, n_files)
++            call get_dirty_files(files, n_files, force_refresh=do_force_refresh)
              if (do_include_incoming) then
                  ! For fetch/pull: also include files with only incoming changes
                  call add_incoming_files(files, n_files)

src/fuss_main.f90 → src/fuss_main.f90.bakcopied (98% similarity)

      use tree_module
      use display_module
      use terminal_module
++    use cache_module
      implicit none
      ! Main program variables
      logical :: show_all, interactive
      character(len=:), allocatable :: root_path
++    ! Initialize caches for performance optimization
++    call init_caches()
++
      ! Parse command line arguments
      call parse_arguments(show_all, interactive)
      end subroutine branch_delete_prompt
      subroutine refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                    hide_dotfiles, selected, running, exit_if_empty, include_incoming)
++                                    hide_dotfiles, selected, running, exit_if_empty, include_incoming, force_refresh)
          ! Centralized helper to refresh file list and rebuild tree
          ! Consolidates the pattern repeated 20+ times in the codebase
++        ! Now with caching support for performance optimization
          logical, intent(in) :: show_all, hide_dotfiles
          type(file_entry), allocatable, intent(inout) :: files(:)
          integer, intent(inout) :: n_files, n_items, selected
          type(tree_node), pointer, intent(inout) :: tree_root
          type(selectable_item), allocatable, intent(inout) :: items(:)
          logical, intent(inout), optional :: running
--        logical, intent(in), optional :: exit_if_empty, include_incoming
++        logical, intent(in), optional :: exit_if_empty, include_incoming, force_refresh
--        logical :: do_exit_if_empty, do_include_incoming
++        logical :: do_exit_if_empty, do_include_incoming, do_force_refresh
          ! Handle optional parameters
          do_exit_if_empty = .false.
          do_include_incoming = .false.
          if (present(include_incoming)) do_include_incoming = include_incoming
--        ! Get files based on mode
++        do_force_refresh = .false.
++        if (present(force_refresh)) do_force_refresh = force_refresh
++
++        ! Get files based on mode (with caching support)
          if (show_all) then
--            call get_all_files(files, n_files)
++            call get_all_files(files, n_files, force_refresh=do_force_refresh)
              call mark_incoming_changes(files, n_files)
          else
--            call get_dirty_files(files, n_files)
++            call get_dirty_files(files, n_files, force_refresh=do_force_refresh)
              if (do_include_incoming) then
                  ! For fetch/pull: also include files with only incoming changes
                  call add_incoming_files(files, n_files)

src/fuss_main.f90 → src/fuss_main.f90.bak2copied (94% similarity)

      use tree_module
      use display_module
      use terminal_module
++    use cache_module
      implicit none
      ! Main program variables
      logical :: show_all, interactive
      character(len=:), allocatable :: root_path
++    ! Initialize caches for performance optimization
++    call init_caches()
++
      ! Parse command line arguments
      call parse_arguments(show_all, interactive)
          viewport_offset = 1
          running = .true.
++        ! Partial redraw optimization: track previous state
++        integer :: prev_selected, prev_viewport
++        logical :: needs_full_redraw
++        prev_selected = 0  ! Force initial draw
++        prev_viewport = 0
++        needs_full_redraw = .true.
++
          ! Enter alternate screen buffer (preserves terminal content)
          call enter_alternate_screen()
                  viewport_offset = n_items - visible_items + 1
              end if
--            ! Clear screen and redraw
++            ! Conditional redraw for performance optimization
--            call clear_screen()
++            if (needs_full_redraw .or. viewport_offset /= prev_viewport) then
--            call draw_interactive_tree(tree_root, items, n_items, selected, &
++                ! Full redraw needed: viewport scrolled or forced refresh
--                                       repo_name, branch_name, viewport_offset, visible_items, top_padding)
++                call clear_screen()
++                call draw_interactive_tree(tree_root, items, n_items, selected, &
++                                           repo_name, branch_name, viewport_offset, visible_items, top_padding)
++                needs_full_redraw = .false.
++            else if (selected /= prev_selected) then
++                ! Only selection changed within same viewport - still need full redraw for now
++                ! TODO: Could optimize this with partial line updates in the future
++                call clear_screen()
++                call draw_interactive_tree(tree_root, items, n_items, selected, &
++                                           repo_name, branch_name, viewport_offset, visible_items, top_padding)
++            end if
++
++            ! Update tracking state
++            prev_selected = selected
++            prev_viewport = viewport_offset
              ! Read key
              call read_key(key)
                      call rebuild_item_list_from_tree(tree_root, items, n_items, hide_dotfiles)
                      ! Adjust selection if needed
                      if (selected > n_items .and. n_items > 0) selected = n_items
++                    ! Force full redraw after tree structure change
++                    needs_full_redraw = .true.
                  end if
              case ('a')  ! Stage file or directory (lowercase to avoid conflict with arrow A)
                  ! Check if it's a directory - stage all files in it
                      call git_stage_directory(items(selected)%path)
                      ! Refresh files after staging directory
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                            hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
++                    needs_full_redraw = .true.
                  ! Otherwise it's a file - stage individual file
                  else if (items(selected)%is_file .and. (items(selected)%is_unstaged .or. items(selected)%is_untracked)) then
                      call git_add_file(items(selected)%path)
                      ! Refresh files after git add
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                            hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
                  end if
              case ('u')  ! Unstage file (lowercase)
                  if (items(selected)%is_file .and. items(selected)%is_staged) then
                      call git_unstage_file(items(selected)%path)
                      ! Refresh files after git unstage
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running)
++                                            hide_dotfiles, selected, running, force_refresh=.true.)
                  end if
              case ('S')  ! Stage all (Shift+S to avoid conflict with up arrow 'A')
                  call git_stage_all()
                  ! Refresh files after staging all
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                        hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
              case ('U')  ! Unstage all (Shift+U)
                  call git_unstage_all()
                  ! Refresh files after unstaging all
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('m')  ! Commit (lowercase)
                  call commit_prompt()
                  ! Refresh files after commit
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('M')  ! Amend last commit (Shift+m)
                  call amend_commit_prompt()
                  ! Refresh files after amend commit
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('s')  ! Show git status (lowercase)
                  call show_status_view()
              case ('p')  ! Push (lowercase)
                  call push_prompt()
                  ! Refresh files after push
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('t')  ! Tag (lowercase)
                  call tag_prompt()
              case ('b')  ! Switch branch
                  call branch_switch_prompt()
                  ! Refresh files after branch switch
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                        hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
                  ! Update branch name display
                  call get_repo_info(repo_name, branch_name)
              case ('n')  ! Create new branch
                  call branch_create_prompt()
                  ! Refresh files after branch creation
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                        hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
                  ! Update branch name display
                  call get_repo_info(repo_name, branch_name)
              case ('R')  ! Delete branch (Shift+r, since 'r' is used for delete file)
                  call git_fetch()
                  ! Refresh files after fetch and include files with incoming changes
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, include_incoming=.true.)
++                                        hide_dotfiles, selected, running, include_incoming=.true., force_refresh=.true.)
              case ('d')  ! Git diff with less
                  if (items(selected)%is_file) then
                      call git_diff_file(items(selected)%path, items(selected)%has_incoming)
                      call delete_prompt(items(selected)%path, items(selected)%is_untracked)
                      ! Refresh files after delete
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                            hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
                  end if
              case ('x', 'X')  ! Discard changes
                  if (items(selected)%is_file .and. (items(selected)%is_staged .or. items(selected)%is_unstaged .or. items(selected)%is_untracked)) then
                      call discard_prompt(items(selected)%path, items(selected)%is_staged, items(selected)%is_untracked)
                      ! Refresh files after discard
                      call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                            hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                            hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
                  end if
              case ('l')  ! Git pull
                  call git_pull()
                  ! Refresh files after pull (incoming indicators will automatically clear)
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, include_incoming=.true.)
++                                        hide_dotfiles, selected, running, include_incoming=.true., force_refresh=.true.)
                  ! Note: After successful pull, git diff will show no upstream differences
                  ! so has_incoming will be .false. for all files automatically
              case ('z')  ! Stash push (save changes)
                  call stash_push_prompt()
                  ! Refresh files after stash
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running, exit_if_empty=.true.)
++                                        hide_dotfiles, selected, running, exit_if_empty=.true., force_refresh=.true.)
              case ('Z')  ! Stash pop/apply (restore changes)
                  call stash_pop_apply_prompt()
                  ! Refresh files after stash pop/apply
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('y')  ! Cherry-pick (yank commit)
                  call cherry_pick_prompt()
                  ! Refresh files after cherry-pick
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('v')  ! Revert commit
                  call revert_commit_prompt()
                  ! Refresh files after revert
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('h')  ! Show commit history
                  call history_browser_prompt()
                  ! No refresh needed - read-only
                  call merge_branch_prompt()
                  ! Refresh files after merge
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
                  ! Update branch name display in case we merged
                  call get_repo_info(repo_name, branch_name)
              case ('O')  ! Reset (Shift+o - "Oh no, undo!")
                  call reset_prompt()
                  ! Refresh files after reset
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('I')  ! Interactive rebase (Shift+i)
                  call rebase_prompt()
                  ! Refresh files after rebase
                  call refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                        hide_dotfiles, selected, running)
++                                        hide_dotfiles, selected, running, force_refresh=.true.)
              case ('.')  ! Toggle hiding dotfiles and gitignored files
                  hide_dotfiles = .not. hide_dotfiles
                  ! Rebuild item list with new filter
      end subroutine branch_delete_prompt
      subroutine refresh_and_rebuild(show_all, files, n_files, items, n_items, tree_root, &
--                                    hide_dotfiles, selected, running, exit_if_empty, include_incoming)
++                                    hide_dotfiles, selected, running, exit_if_empty, include_incoming, force_refresh)
          ! Centralized helper to refresh file list and rebuild tree
          ! Consolidates the pattern repeated 20+ times in the codebase
++        ! Now with caching support for performance optimization
          logical, intent(in) :: show_all, hide_dotfiles
          type(file_entry), allocatable, intent(inout) :: files(:)
          integer, intent(inout) :: n_files, n_items, selected
          type(tree_node), pointer, intent(inout) :: tree_root
          type(selectable_item), allocatable, intent(inout) :: items(:)
          logical, intent(inout), optional :: running
--        logical, intent(in), optional :: exit_if_empty, include_incoming
++        logical, intent(in), optional :: exit_if_empty, include_incoming, force_refresh
--        logical :: do_exit_if_empty, do_include_incoming
++        logical :: do_exit_if_empty, do_include_incoming, do_force_refresh
          ! Handle optional parameters
          do_exit_if_empty = .false.
          do_include_incoming = .false.
          if (present(include_incoming)) do_include_incoming = include_incoming
--        ! Get files based on mode
++        do_force_refresh = .false.
++        if (present(force_refresh)) do_force_refresh = force_refresh
++
++        ! Get files based on mode (with caching support)
          if (show_all) then
--            call get_all_files(files, n_files)
++            call get_all_files(files, n_files, force_refresh=do_force_refresh)
              call mark_incoming_changes(files, n_files)
          else
--            call get_dirty_files(files, n_files)
++            call get_dirty_files(files, n_files, force_refresh=do_force_refresh)
              if (do_include_incoming) then
                  ! For fetch/pull: also include files with only incoming changes
                  call add_incoming_files(files, n_files)

src/git_module.f90modified

  module git_module
      use iso_fortran_env, only: error_unit
      use types_module
++    use cache_module
      implicit none
++    ! Shared temp file for reducing disk I/O and clutter
++    ! Reused across operations, deleted after each read
++    character(len=*), parameter :: FUSS_TEMP = '/tmp/fuss_tmp.txt'
++
  contains
      ! ========== Performance Optimization: Binary Search Functions ==========
          end if
      end function unquote_filename
--    subroutine get_dirty_files(files, n_files)
++    ! Internal implementation - called directly for actual git operations
++    subroutine get_dirty_files_impl(files, n_files)
          type(file_entry), allocatable, intent(out) :: files(:)
          integer, intent(out) :: n_files
          integer :: iostat, unit_num, status_code
              call quicksort_files(files, 1, n_files)
          end if
          deallocate(temp_files)
--    end subroutine get_dirty_files
++    end subroutine get_dirty_files_impl
--    subroutine get_all_files(files, n_files)
++    ! Internal implementation - called directly for actual file operations
++    subroutine get_all_files_impl(files, n_files)
          type(file_entry), allocatable, intent(out) :: files(:)
          integer, intent(out) :: n_files
          integer :: iostat, unit_num, status_code, i
          type(file_entry), allocatable :: dirty_files(:), temp_files(:)
          integer :: n_dirty, max_files
--        ! First get dirty files
++        ! First get dirty files (call impl directly to avoid double caching)
--        call get_dirty_files(dirty_files, n_dirty)
++        call get_dirty_files_impl(dirty_files, n_dirty)
          ! Get all files using find
          call execute_command_line('find . -type f ! -path "*/\.git/*" > /tmp/fuss_all_files.txt', exitstat=status_code)
          end if
          deallocate(temp_files)
          if (allocated(dirty_files)) deallocate(dirty_files)
++    end subroutine get_all_files_impl
++
++    ! ========== Cached Wrappers for File Retrieval ==========
++
++    ! Get dirty files with caching support
++    subroutine get_dirty_files(files, n_files, force_refresh)
++        type(file_entry), allocatable, intent(out) :: files(:)
++        integer, intent(out) :: n_files
++        logical, intent(in), optional :: force_refresh
++        logical :: do_refresh
++
++        do_refresh = .false.
++        if (present(force_refresh)) do_refresh = force_refresh
++
++        ! Force refresh if requested
++        if (do_refresh) then
++            call invalidate_cache(dirty_cache)
++        end if
++
++        ! Check cache validity
++        if (cache_valid(dirty_cache)) then
++            ! Use cached results
++            call get_cached_files(dirty_cache, files, n_files)
++        else
++            ! Call actual implementation
++            call get_dirty_files_impl(files, n_files)
++            ! Update cache with fresh data
++            call update_cache(dirty_cache, files, n_files)
++        end if
++    end subroutine get_dirty_files
++
++    ! Get all files with caching support
++    subroutine get_all_files(files, n_files, force_refresh)
++        type(file_entry), allocatable, intent(out) :: files(:)
++        integer, intent(out) :: n_files
++        logical, intent(in), optional :: force_refresh
++        logical :: do_refresh
++
++        do_refresh = .false.
++        if (present(force_refresh)) do_refresh = force_refresh
++
++        ! Force refresh if requested
++        if (do_refresh) then
++            call invalidate_cache(all_cache)
++        end if
++
++        ! Check cache validity
++        if (cache_valid(all_cache)) then
++            ! Use cached results
++            call get_cached_files(all_cache, files, n_files)
++        else
++            ! Call actual implementation
++            call get_all_files_impl(files, n_files)
++            ! Update cache with fresh data
++            call update_cache(all_cache, files, n_files)
++        end if
      end subroutine get_all_files
++    ! ========== End Cached Wrappers ==========
++
      subroutine resize_array(array, new_size)
          type(file_entry), allocatable, intent(inout) :: array(:)
          integer, intent(in) :: new_size
          message = ''
          ! Get the last commit message using git log
--        call execute_command_line('git log -1 --pretty=%B > /tmp/fuss_last_commit.txt 2>/dev/null', exitstat=status)
++        call execute_command_line('git log -1 --pretty=%B > ' // FUSS_TEMP // ' 2>/dev/null', exitstat=status)
          if (status /= 0) return
          ! Read the commit message
--        open(newunit=unit_num, file='/tmp/fuss_last_commit.txt', status='old', action='read', iostat=iostat)
++        open(newunit=unit_num, file=FUSS_TEMP, status='old', action='read', iostat=iostat)
          if (iostat /= 0) return
          ! Read first line (single-line commit message)
              end if
              ! Origin exists - get current branch name and push to origin
--            call execute_command_line('git rev-parse --abbrev-ref HEAD > /tmp/fuss_current_branch.txt 2>&1', &
++            call execute_command_line('git rev-parse --abbrev-ref HEAD > ' // FUSS_TEMP // ' 2>&1', &
                                        exitstat=status)
              if (status /= 0) then
              end if
              ! Read current branch name
--            open(newunit=unit_num, file='/tmp/fuss_current_branch.txt', status='old', action='read', iostat=iostat)
++            open(newunit=unit_num, file=FUSS_TEMP, status='old', action='read', iostat=iostat)
              if (iostat /= 0) then
                  print '(A)', achar(27) // '[31m✗ Could not read branch name' // achar(27) // '[0m'
                  print '(A)', 'Press any key to continue...'
          branch_name = ''
          ! Get repo name (basename of repo root)
--        call execute_command_line('git rev-parse --show-toplevel 2>/dev/null | xargs basename > /tmp/fuss_repo.txt', &
++        call execute_command_line('git rev-parse --show-toplevel 2>/dev/null | xargs basename > ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          if (status_code == 0) then
--            open(newunit=unit_num, file='/tmp/fuss_repo.txt', status='old', action='read', iostat=iostat)
++            open(newunit=unit_num, file=FUSS_TEMP, status='old', action='read', iostat=iostat)
              if (iostat == 0) then
                  read(unit_num, '(A)', iostat=iostat) repo_name
                  close(unit_num, status='delete')
          end if
          ! Get current branch name
--        call execute_command_line('git rev-parse --abbrev-ref HEAD 2>/dev/null > /tmp/fuss_branch.txt', &
++        call execute_command_line('git rev-parse --abbrev-ref HEAD 2>/dev/null > ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          if (status_code == 0) then
--            open(newunit=unit_num, file='/tmp/fuss_branch.txt', status='old', action='read', iostat=iostat)
++            open(newunit=unit_num, file=FUSS_TEMP, status='old', action='read', iostat=iostat)
              if (iostat == 0) then
                  read(unit_num, '(A)', iostat=iostat) branch_name
                  close(unit_num, status='delete')
          ! Use fzf to select remote branch
          call execute_command_line('git branch -r | grep -v HEAD | sed "s/^  //" | ' // &
                                    'fzf --height=10 --border=rounded --border-label=" ESC to cancel " ' // &
--                                  '--prompt="Select upstream: " > /tmp/fuss_upstream.txt', &
++                                  '--prompt="Select upstream: " > ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          if (status_code /= 0) then
          end if
          ! Read selected branch
--        open(unit=99, file='/tmp/fuss_upstream.txt', status='old', action='read', iostat=status_code)
++        open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status_code)
          if (status_code == 0) then
              read(99, '(A)', iostat=status_code) selected_branch
              close(99, status='delete')
                                    'fzf --height=15 --border=rounded --border-label=" ESC to cancel " ' // &
                                    '--prompt="Source branch: " ' // &
                                    '--preview="git log --oneline --graph --color=always {} | head -20" ' // &
--                                  '--preview-window=right:50% > /tmp/fuss_branch_select.txt', &
++                                  '--preview-window=right:50% > ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          if (status_code /= 0) then
--            call execute_command_line('rm -f /tmp/fuss_branch_select.txt', exitstat=status)
++            call execute_command_line('rm -f ' // FUSS_TEMP // '', exitstat=status)
              print '(A)', ''
              print '(A)', 'Operation cancelled.'
              print '(A)', ''
          end if
          ! Read selected branch
--        open(unit=99, file='/tmp/fuss_branch_select.txt', status='old', action='read')
++        open(unit=99, file=FUSS_TEMP, status='old', action='read')
          read(99, '(A)', iostat=status) selected_branch
          close(99, status='delete')
                                    'fzf --height=20 --border=rounded --border-label=" ESC to cancel " ' // &
                                    '--prompt="Commit: " ' // &
                                    '--preview="git show --color=always {1}" ' // &
--                                  '--preview-window=right:60% > /tmp/fuss_commit_select.txt'
++                                  '--preview-window=right:60% > ' // FUSS_TEMP // ''
          call execute_command_line(trim(command), exitstat=status_code)
          if (status_code /= 0) then
--            call execute_command_line('rm -f /tmp/fuss_commit_select.txt', exitstat=status)
++            call execute_command_line('rm -f ' // FUSS_TEMP // '', exitstat=status)
              print '(A)', ''
              print '(A)', 'Operation cancelled.'
              print '(A)', ''
          end if
          ! Read selected commit (first 7 chars is the hash)
--        open(unit=99, file='/tmp/fuss_commit_select.txt', status='old', action='read')
++        open(unit=99, file=FUSS_TEMP, status='old', action='read')
          read(99, '(A)', iostat=status) selected_commit
          close(99, status='delete')
                                    'fzf --height=20 --border=rounded --border-label=" ESC to cancel " ' // &
                                    '--prompt="Commit to revert: " ' // &
                                    '--preview="git show --color=always {1}" ' // &
--                                  '--preview-window=right:60% > /tmp/fuss_revert_select.txt', &
++                                  '--preview-window=right:60% > ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          if (status_code /= 0) then
--            call execute_command_line('rm -f /tmp/fuss_revert_select.txt', exitstat=status)
++            call execute_command_line('rm -f ' // FUSS_TEMP // '', exitstat=status)
              print '(A)', ''
              print '(A)', 'Operation cancelled.'
              print '(A)', ''
          end if
          ! Read selected commit hash
--        open(unit=99, file='/tmp/fuss_revert_select.txt', status='old', action='read')
++        open(unit=99, file=FUSS_TEMP, status='old', action='read')
          read(99, '(A)', iostat=status) selected_commit
          close(99, status='delete')
                                    'fzf --height=15 --border=rounded --border-label=" ESC to cancel " ' // &
                                    '--prompt="Branch to merge: " ' // &
                                    '--preview="echo Commits to merge:; git log --oneline --color=always HEAD..{} | head -20" ' // &
--                                  '--preview-window=right:50% > /tmp/fuss_merge_select.txt', &
++                                  '--preview-window=right:50% > ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          if (status_code /= 0) then
--            call execute_command_line('rm -f /tmp/fuss_merge_select.txt', exitstat=status)
++            call execute_command_line('rm -f ' // FUSS_TEMP // '', exitstat=status)
              print '(A)', ''
              print '(A)', 'Operation cancelled.'
              print '(A)', ''
          end if
          ! Read selected branch
--        open(unit=99, file='/tmp/fuss_merge_select.txt', status='old', action='read')
++        open(unit=99, file=FUSS_TEMP, status='old', action='read')
          read(99, '(A)', iostat=status) selected_branch
          close(99, status='delete')
                                    'fzf --height=15 --border=rounded --border-label=" ESC to cancel " ' // &
                                    '--prompt="Switch to branch: " ' // &
                                    '--preview="git log --oneline --graph --color=always {}" ' // &
--                                  '--preview-window=right:50% > /tmp/fuss_branch_select.txt', &
++                                  '--preview-window=right:50% > ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          ! Re-enable cbreak mode first
          end if
          ! Read selected branch
--        open(unit=99, file='/tmp/fuss_branch_select.txt', status='old', action='read', iostat=status_code)
++        open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status_code)
          if (status_code /= 0) then
              print '(A)', 'Branch switch cancelled.'
              print '(A)', ''
          success = .false.
          ! Get current branch name to prevent deleting it
--        call execute_command_line('git rev-parse --abbrev-ref HEAD > /tmp/fuss_current_branch.txt 2>&1', &
++        call execute_command_line('git rev-parse --abbrev-ref HEAD > ' // FUSS_TEMP // ' 2>&1', &
                                    exitstat=status_code)
          if (status_code /= 0) then
              return
          end if
--        open(unit=99, file='/tmp/fuss_current_branch.txt', status='old', action='read', iostat=status_code)
++        open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status_code)
          if (status_code == 0) then
              read(99, '(A)', iostat=status_code) current_branch
              close(99, status='delete')
          ! Use fzf to select branch to delete (exclude current branch)
          write(command, '(A,A,A)') 'git branch | grep -v "^* " | sed "s/^  //" | grep -v "^', trim(current_branch), &
--                                  '$" | fzf --height=15 --border=rounded --border-label=" ESC to cancel " --prompt="Delete branch: " > /tmp/fuss_branch_delete.txt'
++                                  '$" | fzf --height=15 --border=rounded --border-label=" ESC to cancel " --prompt="Delete branch: " > ' // FUSS_TEMP // ''
          call execute_command_line(trim(command), exitstat=status_code)
          ! Re-enable cbreak mode
          end if
          ! Read selected branch
--        open(unit=99, file='/tmp/fuss_branch_delete.txt', status='old', action='read', iostat=status_code)
++        open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status_code)
          if (status_code /= 0) then
              print '(A)', 'Branch deletion cancelled.'
              print '(A)', ''
          success = .false.
          ! Check if there are any stashes
--        call execute_command_line('git stash list > /tmp/fuss_stash_check.txt 2>&1', exitstat=status_code)
++        call execute_command_line('git stash list > ' // FUSS_TEMP // ' 2>&1', exitstat=status_code)
          if (status_code /= 0) then
              print '(A)', achar(27) // '[33mNo stashes available' // achar(27) // '[0m'
              print '(A)', 'Press any key to continue...'
          end if
          ! Check if stash list is empty
--        call execute_command_line('test -s /tmp/fuss_stash_check.txt', exitstat=status_code)
++        call execute_command_line('test -s ' // FUSS_TEMP // '', exitstat=status_code)
          if (status_code /= 0) then
              print '(A)', achar(27) // '[33mNo stashes available' // achar(27) // '[0m'
              print '(A)', 'Press any key to continue...'
--            call execute_command_line('rm -f /tmp/fuss_stash_check.txt', exitstat=status_code)
++            call execute_command_line('rm -f ' // FUSS_TEMP // '', exitstat=status_code)
              return
          end if
--        call execute_command_line('rm -f /tmp/fuss_stash_check.txt', exitstat=status_code)
++        call execute_command_line('rm -f ' // FUSS_TEMP // '', exitstat=status_code)
          ! Restore terminal for fzf
          call execute_command_line('stty sane < /dev/tty', exitstat=status_code)
                                    'fzf --height=15 --border=rounded --border-label=" ESC to cancel " ' // &
                                    '--prompt="Select stash: " ' // &
                                    '--preview="git stash show -p {1}" --preview-window=right:50% ' // &
--                                  '> /tmp/fuss_stash_select.txt', &
++                                  '> ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          ! Re-enable cbreak mode
          end if
          ! Read selected stash
--        open(unit=99, file='/tmp/fuss_stash_select.txt', status='old', action='read', iostat=status_code)
++        open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status_code)
          if (status_code /= 0) then
              print '(A)', 'Stash operation cancelled.'
              print '(A)', ''
                                    'fzf --height=15 --border=rounded --border-label=" ESC to cancel " ' // &
                                    '--prompt="Reset to: " ' // &
                                    '--preview="git show --stat --color=always {1}" ' // &
--                                  '--preview-window=right:60% > /tmp/fuss_reset_commit.txt', &
++                                  '--preview-window=right:60% > ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          if (status_code /= 0) then
          end if
          ! Read selected commit
--        open(unit=99, file='/tmp/fuss_reset_commit.txt', status='old', action='read', iostat=status)
++        open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status)
          if (status /= 0) then
              print '(A)', achar(27) // '[31m✗ Failed to read selection' // achar(27) // '[0m'
              call execute_command_line('stty cbreak -echo < /dev/tty', exitstat=status)
          print '(A)', 'Enter choice (1/2/3) or ESC to cancel: '
          ! Get mode choice
--        call execute_command_line('read -n 1 choice < /dev/tty; echo $choice > /tmp/fuss_reset_mode.txt', &
++        call execute_command_line('read -n 1 choice < /dev/tty; echo $choice > ' // FUSS_TEMP // '', &
                                    exitstat=status)
          ! Read mode choice
--        open(unit=99, file='/tmp/fuss_reset_mode.txt', status='old', action='read', iostat=status)
++        open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status)
          if (status /= 0) then
              print '(A)', 'Reset cancelled.'
              call execute_command_line('stty cbreak -echo < /dev/tty', exitstat=status)
                  print '(A)', achar(27) // '[1;31mThis operation CANNOT be undone!' // achar(27) // '[0m'
                  print '(A)', ''
                  print '(A)', 'Type "yes" to confirm hard reset: '
--                call execute_command_line('read conf < /dev/tty; echo $conf > /tmp/fuss_reset_confirm.txt', &
++                call execute_command_line('read conf < /dev/tty; echo $conf > ' // FUSS_TEMP // '', &
                                            exitstat=status)
                  ! Read confirmation
--                open(unit=99, file='/tmp/fuss_reset_confirm.txt', status='old', action='read', iostat=status)
++                open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status)
                  if (status == 0) then
                      read(99, '(A)', iostat=status) confirmation
                      close(99)
                                    '--preview="git log --oneline --color=always {1}~1..HEAD | head -20" ' // &
                                    '--preview-window=right:60% ' // &
                                    '--preview-label=" Commits that will be rebased " ' // &
--                                  '> /tmp/fuss_rebase_base.txt', &
++                                  '> ' // FUSS_TEMP // '', &
                                    exitstat=status_code)
          if (status_code /= 0) then
          end if
          ! Read selected commit
--        open(unit=99, file='/tmp/fuss_rebase_base.txt', status='old', action='read', iostat=status)
++        open(unit=99, file=FUSS_TEMP, status='old', action='read', iostat=status)
          if (status /= 0) then
              print '(A)', achar(27) // '[31m✗ Failed to read selection' // achar(27) // '[0m'
              call execute_command_line('stty cbreak -echo < /dev/tty', exitstat=status)

src/git_module.f90 → src/git_module.f90.phase23copied (97% similarity)

  module git_module
      use iso_fortran_env, only: error_unit
      use types_module
++    use cache_module
      implicit none
++    ! Shared temp file for reducing disk I/O and clutter
++    ! Reused across operations, deleted after each read
++    character(len=*), parameter :: FUSS_TEMP = '/tmp/fuss_tmp.txt'
++
  contains
      ! ========== Performance Optimization: Binary Search Functions ==========
          end if
      end function unquote_filename
--    subroutine get_dirty_files(files, n_files)
++    ! Internal implementation - called directly for actual git operations
++    subroutine get_dirty_files_impl(files, n_files)
          type(file_entry), allocatable, intent(out) :: files(:)
          integer, intent(out) :: n_files
          integer :: iostat, unit_num, status_code
              call quicksort_files(files, 1, n_files)
          end if
          deallocate(temp_files)
--    end subroutine get_dirty_files
++    end subroutine get_dirty_files_impl
--    subroutine get_all_files(files, n_files)
++    ! Internal implementation - called directly for actual file operations
++    subroutine get_all_files_impl(files, n_files)
          type(file_entry), allocatable, intent(out) :: files(:)
          integer, intent(out) :: n_files
          integer :: iostat, unit_num, status_code, i
          type(file_entry), allocatable :: dirty_files(:), temp_files(:)
          integer :: n_dirty, max_files
--        ! First get dirty files
++        ! First get dirty files (call impl directly to avoid double caching)
--        call get_dirty_files(dirty_files, n_dirty)
++        call get_dirty_files_impl(dirty_files, n_dirty)
          ! Get all files using find
          call execute_command_line('find . -type f ! -path "*/\.git/*" > /tmp/fuss_all_files.txt', exitstat=status_code)
          end if
          deallocate(temp_files)
          if (allocated(dirty_files)) deallocate(dirty_files)
++    end subroutine get_all_files_impl
++
++    ! ========== Cached Wrappers for File Retrieval ==========
++
++    ! Get dirty files with caching support
++    subroutine get_dirty_files(files, n_files, force_refresh)
++        type(file_entry), allocatable, intent(out) :: files(:)
++        integer, intent(out) :: n_files
++        logical, intent(in), optional :: force_refresh
++        logical :: do_refresh
++
++        do_refresh = .false.
++        if (present(force_refresh)) do_refresh = force_refresh
++
++        ! Force refresh if requested
++        if (do_refresh) then
++            call invalidate_cache(dirty_cache)
++        end if
++
++        ! Check cache validity
++        if (cache_valid(dirty_cache)) then
++            ! Use cached results
++            call get_cached_files(dirty_cache, files, n_files)
++        else
++            ! Call actual implementation
++            call get_dirty_files_impl(files, n_files)
++            ! Update cache with fresh data
++            call update_cache(dirty_cache, files, n_files)
++        end if
++    end subroutine get_dirty_files
++
++    ! Get all files with caching support
++    subroutine get_all_files(files, n_files, force_refresh)
++        type(file_entry), allocatable, intent(out) :: files(:)
++        integer, intent(out) :: n_files
++        logical, intent(in), optional :: force_refresh
++        logical :: do_refresh
++
++        do_refresh = .false.
++        if (present(force_refresh)) do_refresh = force_refresh
++
++        ! Force refresh if requested
++        if (do_refresh) then
++            call invalidate_cache(all_cache)
++        end if
++
++        ! Check cache validity
++        if (cache_valid(all_cache)) then
++            ! Use cached results
++            call get_cached_files(all_cache, files, n_files)
++        else
++            ! Call actual implementation
++            call get_all_files_impl(files, n_files)
++            ! Update cache with fresh data
++            call update_cache(all_cache, files, n_files)
++        end if
      end subroutine get_all_files
++    ! ========== End Cached Wrappers ==========
++
      subroutine resize_array(array, new_size)
          type(file_entry), allocatable, intent(inout) :: array(:)
          integer, intent(in) :: new_size

src/terminal_module.f90modified

  module terminal_module
      implicit none
++    ! Shared temp file for reducing disk I/O
++    character(len=*), parameter :: FUSS_TEMP = '/tmp/fuss_tmp.txt'
++
  contains
      subroutine enter_alternate_screen()
          height = 24  ! Default fallback
          ! Try method 1: Use stty size to get terminal dimensions
--        call execute_command_line('stty size < /dev/tty 2>/dev/null | cut -d" " -f1 > /tmp/fuss_term_height.txt', &
++        call execute_command_line('stty size < /dev/tty 2>/dev/null | cut -d" " -f1 > ' // FUSS_TEMP // '', &
                                    exitstat=status)
          if (status == 0) then
--            open(newunit=unit_num, file='/tmp/fuss_term_height.txt', status='old', action='read', iostat=iostat)
++            open(newunit=unit_num, file=FUSS_TEMP, status='old', action='read', iostat=iostat)
              if (iostat == 0) then
                  read(unit_num, *, iostat=iostat) height
                  close(unit_num, status='delete')
          end if
          ! Try method 2: tput lines
--        call execute_command_line('tput lines < /dev/tty > /tmp/fuss_term_height.txt 2>/dev/null', exitstat=status)
++        call execute_command_line('tput lines < /dev/tty > ' // FUSS_TEMP // ' 2>/dev/null', exitstat=status)
          if (status == 0) then
--            open(newunit=unit_num, file='/tmp/fuss_term_height.txt', status='old', action='read', iostat=iostat)
++            open(newunit=unit_num, file=FUSS_TEMP, status='old', action='read', iostat=iostat)
              if (iostat == 0) then
                  read(unit_num, *, iostat=iostat) height
                  close(unit_num, status='delete')