diff --git a/share/sgml/freebsd.dsl b/share/sgml/freebsd.dsl index 231a73b28f..d4bec71d09 100644 --- a/share/sgml/freebsd.dsl +++ b/share/sgml/freebsd.dsl @@ -1,4 +1,4 @@ - + @@ -54,25 +54,6 @@ ;; HTML file. #t) - - - (element segmentedlist - (make element gi: "TABLE" - (process-children))) - - (element seglistitem - (make element gi: "TR" - (process-children))) - - (element seg - (make element gi: "TD" - attributes: '(("VALIGN" "TOP")) - (process-children))) - - - @@ -95,10 +76,7 @@ (if nochunks (make empty-element gi: "hr") (empty-sosofo)) - (make element gi: "p" - attributes: (list (list "align" "center")) - (make element gi: "small" - ($email-footer$)))))) + ($email-footer$)))) ]]> @@ -220,14 +198,6 @@ ]]> @@ -323,8 +293,11 @@ (element (caution para) ($admonpara$)) (element (caution simpara) ($admonpara$)) - (define en-warning-label-title-sep ": ") - (define en-caution-label-title-sep ": ") + (define (local-en-label-title-sep) + (list + (list (normalize "warning") ": ") + (list (normalize "caution") ": ") + )) @@ -334,8 +307,6 @@ (element maketarget ($mono-seq$)) (element makevar ($mono-seq$)) - - @@ -358,24 +329,6 @@ (process-node-list restch)))) ]]> - (element docinfo (process-children)) - - (element (docinfo authorgroup) (process-children)) - - (element (docinfo date) (process-children)) - - - (element literallayout - (if (equal? (attribute-string "class") (normalize "monospaced")) - (make sequence - ($verbatim-display$ - %indent-literallayout-lines% - %number-literallayout-lines%)) - (make sequence - ($linespecific-display$ - %indent-literallayout-lines% - %number-literallayout-lines%)))) -