aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
Diffstat (limited to 'render.f90')
-rw-r--r--render.f9011
1 files changed, 11 insertions, 0 deletions
diff --git a/render.f90 b/render.f90
index c8f1333..97458e0 100644
--- a/render.f90
+++ b/render.f90
@@ -45,6 +45,7 @@ implicit none
procedure::render_proportional
procedure::type_supported
procedure::status_ready
+ procedure::report_unsupported_protocol
procedure(initialize), deferred::initialize
procedure(prepare_for_layout), deferred::prepare_for_layout
@@ -239,6 +240,16 @@ contains
end subroutine status_ready
+ subroutine report_unsupported_protocol(self, url)
+ implicit none
+
+ class(renderer)::self
+ character(*), intent(in)::url
+
+ call self%draw_error("Only gemini:// URLs supported ("//url//")")
+
+ end subroutine report_unsupported_protocol
+
function width_of_line(r, text, startpos, endpos, heading_level, list_item)
implicit none