From e9dfc0a04d1bdb018ae77f1d914bf0e77f3370b6 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Tue, 11 Aug 2020 08:52:12 -0400
Subject: Favorites and internal pages are now working.  Added symbols to
 buttons in Windows based on new AppGraphics release.

---
 main.F90 | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'main.F90')

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
-- 
cgit v1.2.3