subroutinemake_footerprivate
subroutine make_footer(s, footer)
The end of every page.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| s | type(settings_t) | in | the settings | |
| footer | character(len=:) | out | allocatable | the HTML |
Calls
Source
Show the code
subroutine make_footer(s, footer)
type(settings_t), intent(in) :: s !! the settings
character(len=:), allocatable, intent(out) :: footer !! the HTML
type(buffer_t) :: b
call add(b, '<footer>')
call html_escape(s%project, b, .false.)
if (allocated(s%author)) then
call add(b, ' was developed by ')
call html_escape(s%author, b, .false.)
end if
if (len(s%license) > 0) then
call add(b, '. ')
call license_text(s%license, b)
end if
if (s%print_creation_date) then
call add(b, '. Generated on ')
call html_escape(s%creation_date, b, .false.)
end if
call add(b, '. Documentation generated by <a href="https://github.com/jacobwilliams/fdoc">fdoc</a>.</footer>'//achar(10))
call take(b, footer)
end subroutine make_footer