aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
Diffstat (limited to 'render.f90')
-rw-r--r--render.f907
1 files changed, 5 insertions, 2 deletions
diff --git a/render.f90 b/render.f90
index 97458e0..ff9ed7f 100644
--- a/render.f90
+++ b/render.f90
@@ -240,15 +240,18 @@ contains
end subroutine status_ready
- subroutine report_unsupported_protocol(self, url)
+ function report_unsupported_protocol(self, url)
implicit none
class(renderer)::self
character(*), intent(in)::url
+ logical::report_unsupported_protocol
call self%draw_error("Only gemini:// URLs supported ("//url//")")
- end subroutine report_unsupported_protocol
+ report_unsupported_protocol = .false.
+
+ end function report_unsupported_protocol
function width_of_line(r, text, startpos, endpos, heading_level, list_item)
implicit none