diff options
| -rw-r--r-- | dumb_render.f90 | 19 | ||||
| -rw-r--r-- | favorites.f90 | 5 | ||||
| -rw-r--r-- | internal.f90 | 8 | ||||
| -rw-r--r-- | platform.F90 | 7 |
4 files changed, 34 insertions, 5 deletions
diff --git a/dumb_render.f90 b/dumb_render.f90 index be911b7..2f2f2b8 100644 --- a/dumb_render.f90 +++ b/dumb_render.f90 @@ -386,11 +386,21 @@ contains character(*), intent(out)::input - write(*, '(A68)', advance='no') "*** [A]/[Z] PgUp/PgDn | [#] Link | [B] Back | [U] URL | [Q] Quit => " + write(*, '(A67)', advance='no') "*** [A]/[Z] PgUp/Dn | [#] Link | [B] Back | [M] More | [Q] Quit => " read(*, *) input end subroutine prompt_user + subroutine prompt_user_more(input) + implicit none + + character(*), intent(out)::input + + write(*, '(A66)', advance='no') "*** [U] URL | [!] Save/Remove Fave | [F] Goto Faves | [Q] Quit => " + read(*, *) input + + end subroutine prompt_user_more + function dumb_action(self, text) use render, only: render_action_none, render_action_layout, & render_action_goto, render_action_quit @@ -404,6 +414,9 @@ contains integer::link_id, iostatus call prompt_user(input) + if(trim(input) == 'M' .or. trim(input) == 'm') then + call prompt_user_more(input) + end if if(len_trim(input) == 0) then dumb_action = render_action_none @@ -425,6 +438,10 @@ contains else dumb_action = render_action_goto end if + else if(trim(input) == 'M' .or. trim(input) == 'm') then + dumb_action = render_action_none + else if(trim(input) == '!') then + dumb_action = render_action_favorite else read(input, '(I3)', iostat=iostatus) link_id if(iostatus == 0 .and. link_id >= 1 .and. link_id <= self%link_index) then diff --git a/favorites.f90 b/favorites.f90 index f51a753..f83d026 100644 --- a/favorites.f90 +++ b/favorites.f90 @@ -219,7 +219,8 @@ contains integer, intent(in)::unit_number type(favorite), intent(in)::f - write(unit_number, *) "=> "//trim(f%link)//" "//f%name + write(unit_number, '(A3)', advance='no') "=> " + write(unit_number, *) trim(f%link)//" "//f%name end subroutine write_favorite @@ -232,7 +233,7 @@ contains integer::i character(8)::n_text - write(unit_number, *) "Favorites" + write(unit_number, '(A11)') "# Favorites" write(unit_number, *) write(n_text, '(I8)') size(faves) diff --git a/internal.f90 b/internal.f90 new file mode 100644 index 0000000..9062837 --- /dev/null +++ b/internal.f90 @@ -0,0 +1,8 @@ +module internal_links +implicit none + +contains + + + +end module internal_links
\ No newline at end of file diff --git a/platform.F90 b/platform.F90 index f71abdd..7fbe389 100644 --- a/platform.F90 +++ b/platform.F90 @@ -15,9 +15,12 @@ contains implicit none character(*), intent(in)::dir - - call execute_command_line('mkdir "'//trim(dir)//'"') +#ifdef WINDOWS + call execute_command_line('mkdir "'//trim(dir)//'"') +#else + call execute_command_line('mkdir -p "'//trim(dir)//'"') +#endif end subroutine make_directory subroutine get_settings_directory(dir) |