aboutsummaryrefslogtreecommitdiff
path: root/main.F90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-08-11 08:52:12 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-08-11 08:52:12 -0400
commite9dfc0a04d1bdb018ae77f1d914bf0e77f3370b6 (patch)
tree2e816aa6e65ece4ac5fee93ad70b0e2941b35bee /main.F90
parent7b8f2ab32f66d8f3ce48a5e9685c05b25d31f2bb (diff)
downloadLR-87-e9dfc0a04d1bdb018ae77f1d914bf0e77f3370b6.tar.gz
LR-87-e9dfc0a04d1bdb018ae77f1d914bf0e77f3370b6.zip
Favorites and internal pages are now working. Added symbols to buttons in Windows based on new AppGraphics release.
Diffstat (limited to 'main.F90')
-rw-r--r--main.F9018
1 files changed, 17 insertions, 1 deletions
diff --git a/main.F90 b/main.F90
index d06131b..9af9708 100644
--- a/main.F90
+++ b/main.F90
@@ -39,6 +39,8 @@ use layout
use file_handling
use history
+use internal_links, only: handle_internal_url, internal_url
+
#ifdef WINDOWS
use wsa_network, only: windows_network_startup => startup
#endif
@@ -117,12 +119,26 @@ implicit none
open(unit=io, form="formatted", status="scratch", access='stream')
do while(running)
+
+ ! Check for an internal url first
+ if(index(desired_url, internal_url) == 1) then
+
+ if(handle_internal_url(desired_url, io, faves)) then
+ populated = .true.
+ loaded = .true.
+ return_code = STATUS_SUCCESS
+ return_type = "text/gemini"
+
+ call update_status(r, desired_url, return_code)
+ end if
+
+ else if(index(desired_url, "gemini://") /= 1) then
- if(index(desired_url, "gemini://") /= 1) then
redo_layout = r%report_unsupported_protocol(trim(desired_url))
populated = .false.
loaded = .true.
return_code = STATUS_PROTOCOLFAIL
+
end if
if(.not. loaded) then