diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-08-11 08:52:12 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-08-11 08:52:12 -0400 |
commit | e9dfc0a04d1bdb018ae77f1d914bf0e77f3370b6 (patch) | |
tree | 2e816aa6e65ece4ac5fee93ad70b0e2941b35bee /main.F90 | |
parent | 7b8f2ab32f66d8f3ce48a5e9685c05b25d31f2bb (diff) | |
download | LR-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.F90 | 18 |
1 files changed, 17 insertions, 1 deletions
@@ -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 |