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
359
                     needs_full_redraw = .true.
359
                     needs_full_redraw = .true.
360
             case ('s')  ! Show git status (lowercase)
360
             case ('s')  ! Show git status (lowercase)
361
                 call show_status_view()
361
                 call show_status_view()
362
+                needs_full_redraw = .true.
362
             case ('p')  ! Push (lowercase)
363
             case ('p')  ! Push (lowercase)
363
                 call push_prompt()
364
                 call push_prompt()
364
                 ! Refresh files after push
365
                 ! Refresh files after push
@@ -367,6 +368,7 @@ contains
367
                     needs_full_redraw = .true.
368
                     needs_full_redraw = .true.
368
             case ('t')  ! Tag (lowercase)
369
             case ('t')  ! Tag (lowercase)
369
                 call tag_prompt()
370
                 call tag_prompt()
371
+                needs_full_redraw = .true.
370
             case ('b')  ! Switch branch
372
             case ('b')  ! Switch branch
371
                 call branch_switch_prompt()
373
                 call branch_switch_prompt()
372
                 ! Refresh files after branch switch
374
                 ! Refresh files after branch switch
@@ -385,6 +387,7 @@ contains
385
                 call get_repo_info(repo_name, branch_name)
387
                 call get_repo_info(repo_name, branch_name)
386
             case ('R')  ! Delete branch (Shift+r, since 'r' is used for delete file)
388
             case ('R')  ! Delete branch (Shift+r, since 'r' is used for delete file)
387
                 call branch_delete_prompt()
389
                 call branch_delete_prompt()
390
+                needs_full_redraw = .true.
388
                 ! No need to refresh files or update branch name (stays on current branch)
391
                 ! No need to refresh files or update branch name (stays on current branch)
389
             case ('f')  ! Git fetch
392
             case ('f')  ! Git fetch
390
                 call git_fetch()
393
                 call git_fetch()
@@ -395,14 +398,17 @@ contains
395
             case ('d')  ! Git diff with less
398
             case ('d')  ! Git diff with less
396
                 if (items(selected)%is_file) then
399
                 if (items(selected)%is_file) then
397
                     call git_diff_file(items(selected)%path, items(selected)%has_incoming)
400
                     call git_diff_file(items(selected)%path, items(selected)%has_incoming)
401
+                    needs_full_redraw = .true.
398
                 end if
402
                 end if
399
             case ('c')  ! View file contents (cat/bat/less)
403
             case ('c')  ! View file contents (cat/bat/less)
400
                 if (items(selected)%is_file) then
404
                 if (items(selected)%is_file) then
401
                     call view_file(items(selected)%path)
405
                     call view_file(items(selected)%path)
406
+                    needs_full_redraw = .true.
402
                 end if
407
                 end if
403
             case ('w')  ! Git blame (who changed this line)
408
             case ('w')  ! Git blame (who changed this line)
404
                 if (items(selected)%is_file) then
409
                 if (items(selected)%is_file) then
405
                     call blame_prompt(items(selected)%path)
410
                     call blame_prompt(items(selected)%path)
411
+                    needs_full_redraw = .true.
406
                 end if
412
                 end if
407
             case ('r')  ! Remove/delete file
413
             case ('r')  ! Remove/delete file
408
                 if (items(selected)%is_file) then
414
                 if (items(selected)%is_file) then
@@ -454,10 +460,10 @@ contains
454
                     needs_full_redraw = .true.
460
                     needs_full_redraw = .true.
455
             case ('h')  ! Show commit history
461
             case ('h')  ! Show commit history
456
                 call history_browser_prompt()
462
                 call history_browser_prompt()
457
-                ! No refresh needed - read-only
463
+                needs_full_redraw = .true.
458
             case ('L')  ! Show reflog (Shift+l)
464
             case ('L')  ! Show reflog (Shift+l)
459
                 call reflog_browser_prompt()
465
                 call reflog_browser_prompt()
460
-                ! No refresh needed - read-only
466
+                needs_full_redraw = .true.
461
             case ('G')  ! Merge branch (Shift+g)
467
             case ('G')  ! Merge branch (Shift+g)
462
                 call merge_branch_prompt()
468
                 call merge_branch_prompt()
463
                 ! Refresh files after merge
469
                 ! Refresh files after merge