fortrangoingonforty/fuss / 3a355cb

Browse files

not a hang. redraw problem

Authored by espadonne
SHA
3a355cb25583a45600841181fd2ce775108b4ea5
Parents
dce2ec9
Tree
0dcb50a

1 changed file

StatusFile+-
M src/fuss_main.f90 8 2
src/fuss_main.f90modified
@@ -359,6 +359,7 @@ contains
359359
                     needs_full_redraw = .true.
360360
             case ('s')  ! Show git status (lowercase)
361361
                 call show_status_view()
362
+                needs_full_redraw = .true.
362363
             case ('p')  ! Push (lowercase)
363364
                 call push_prompt()
364365
                 ! Refresh files after push
@@ -367,6 +368,7 @@ contains
367368
                     needs_full_redraw = .true.
368369
             case ('t')  ! Tag (lowercase)
369370
                 call tag_prompt()
371
+                needs_full_redraw = .true.
370372
             case ('b')  ! Switch branch
371373
                 call branch_switch_prompt()
372374
                 ! Refresh files after branch switch
@@ -385,6 +387,7 @@ contains
385387
                 call get_repo_info(repo_name, branch_name)
386388
             case ('R')  ! Delete branch (Shift+r, since 'r' is used for delete file)
387389
                 call branch_delete_prompt()
390
+                needs_full_redraw = .true.
388391
                 ! No need to refresh files or update branch name (stays on current branch)
389392
             case ('f')  ! Git fetch
390393
                 call git_fetch()
@@ -395,14 +398,17 @@ contains
395398
             case ('d')  ! Git diff with less
396399
                 if (items(selected)%is_file) then
397400
                     call git_diff_file(items(selected)%path, items(selected)%has_incoming)
401
+                    needs_full_redraw = .true.
398402
                 end if
399403
             case ('c')  ! View file contents (cat/bat/less)
400404
                 if (items(selected)%is_file) then
401405
                     call view_file(items(selected)%path)
406
+                    needs_full_redraw = .true.
402407
                 end if
403408
             case ('w')  ! Git blame (who changed this line)
404409
                 if (items(selected)%is_file) then
405410
                     call blame_prompt(items(selected)%path)
411
+                    needs_full_redraw = .true.
406412
                 end if
407413
             case ('r')  ! Remove/delete file
408414
                 if (items(selected)%is_file) then
@@ -454,10 +460,10 @@ contains
454460
                     needs_full_redraw = .true.
455461
             case ('h')  ! Show commit history
456462
                 call history_browser_prompt()
457
-                ! No refresh needed - read-only
463
+                needs_full_redraw = .true.
458464
             case ('L')  ! Show reflog (Shift+l)
459465
                 call reflog_browser_prompt()
460
-                ! No refresh needed - read-only
466
+                needs_full_redraw = .true.
461467
             case ('G')  ! Merge branch (Shift+g)
462468
                 call merge_branch_prompt()
463469
                 ! Refresh files after merge