Added favicon support. Fixed UTF-8 display on dumb renderer.

1 files changed, 22 insertions, 0 deletions

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