aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
Diffstat (limited to 'render.f90')
-rw-r--r--render.f9012
1 files changed, 12 insertions, 0 deletions
diff --git a/render.f90 b/render.f90
index 80de58b..c8f1333 100644
--- a/render.f90
+++ b/render.f90
@@ -33,6 +33,8 @@ implicit none
["text/plain ", &
"text/gemini" ]
+ character(*), parameter::idle_status = "LR-87 Ready"
+
type, abstract :: renderer
integer::y
@@ -42,6 +44,7 @@ implicit none
procedure::render_proportional
procedure::type_supported
+ procedure::status_ready
procedure(initialize), deferred::initialize
procedure(prepare_for_layout), deferred::prepare_for_layout
@@ -227,6 +230,15 @@ contains
end function type_supported
+ subroutine status_ready(self)
+ implicit none
+
+ class(renderer)::self
+
+ call self%report_status(idle_status)
+
+ end subroutine status_ready
+
function width_of_line(r, text, startpos, endpos, heading_level, list_item)
implicit none