aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-23 09:38:28 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-23 09:38:28 -0400
commit8088abdfae2f18520b9135221885479ae37a5dae (patch)
tree0b5bdb6c1759ad71e771f35781f36bc1fff0ddb4 /render.f90
parent60eddf90062aa72529a5a6baa6fd1983eed4c3a8 (diff)
downloadLR-87-8088abdfae2f18520b9135221885479ae37a5dae.zip
LR-87-8088abdfae2f18520b9135221885479ae37a5dae.tar.gz
Introduced new handling of other protocols under windows. Likely broke dumb renderer for the moment.
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