aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-08-10 17:06:05 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-08-10 17:06:05 -0400
commit48fad229ae1f033e694a7eb663945a6a3f1f4cb2 (patch)
tree7747d9c8a76659b55b1cdb9ba58d6d01944e39b6
parente965762450457f8033397289c5f120475da3a039 (diff)
downloadLR-87-48fad229ae1f033e694a7eb663945a6a3f1f4cb2.zip
LR-87-48fad229ae1f033e694a7eb663945a6a3f1f4cb2.tar.gz
Dumb renderer now can mark favorites correctly. Placeholder for handling internal links.
-rw-r--r--dumb_render.f9019
-rw-r--r--favorites.f905
-rw-r--r--internal.f908
-rw-r--r--platform.F907
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)