Emit HTML <meta name="generator" ...>

master
Lassi Kortela 7 months ago
parent e9b63e2f71
commit 10e6c0b7bd

@ -309,7 +309,7 @@
(if (not (string->number where))
(warn "invalid font position `~a' in .fp" where)
(mount-font (string->number where) name) "")))
(define previous-font 1)
(define current-font 1)
@ -560,9 +560,10 @@
(define (emit-HTML-prolog)
(let ((mailto (option 'mail-address)))
(emit "<html>\n<head>\n")
(emit "<!-- This file has been generated by "
(substitute "%progname% %version%, %date% %time%. -->\n")
"<!-- Do not edit! -->\n")
(emit "<meta name=\"generator\""
" content=\""
(substitute "%progname% %version%")
"\">\n")
(if mailto (emit "<link rev=\"made\" href=\"mailto:" mailto "\">\n"))))

Loading…
Cancel
Save