From 36249ebd4dece7ee69cd85e7e169db0dc4315e3e Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Tue, 23 Feb 2021 15:44:25 -0500
Subject: Added favicon support.  Fixed UTF-8 display on dumb renderer.

---
 render.f90 | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'render.f90')

diff --git a/render.f90 b/render.f90
index 5d946c7..f5c1358 100644
--- a/render.f90
+++ b/render.f90
@@ -48,6 +48,7 @@ implicit none
     
         integer::y
         integer::max_width
+        character(4)::favicon
         
         contains
         
@@ -55,6 +56,8 @@ implicit none
         procedure::type_supported
         procedure::status_ready
         procedure::report_unsupported_protocol
+        procedure::set_favicon
+        procedure::clear_favicon
         
         procedure(initialize), deferred::initialize
         procedure(prepare_for_layout), deferred::prepare_for_layout
@@ -267,6 +270,25 @@ contains
         
     end function report_unsupported_protocol
     
+    subroutine set_favicon(self, f)
+    implicit none
+    
+        class(renderer)::self
+        character(*), intent(in)::f
+        
+        self%favicon = f
+        
+    end subroutine set_favicon
+    
+    subroutine clear_favicon(self)
+    implicit none
+    
+        class(renderer)::self
+        
+        self%favicon = " "
+        
+    end subroutine clear_favicon
+    
     function width_of_line(r, text, startpos, endpos, proportional_type)
     implicit none
     
-- 
cgit v1.2.3