Remove redundant LI (langage-independent) parts of freebsd.dsl in

directories for the localization.  ($email-footer$) should be
revisited later because it still involves both of its style (LI) and
content (LD).

1 files changed, 0 insertions, 187 deletions

diff --git a/el_GR.ISO8859-7/share/sgml/freebsd.dsl b/el_GR.ISO8859-7/share/sgml/freebsd.dsl
index 307cc350b2..4316fe3af0 100644
--- a/el_GR.ISO8859-7/share/sgml/freebsd.dsl
+++ b/el_GR.ISO8859-7/share/sgml/freebsd.dsl
@@ -17,7 +17,6 @@
 
 <!ENTITY % output.html  "IGNORE"> 
 <!ENTITY % output.print "IGNORE">
-<!ENTITY % output.print.niceheaders "IGNORE">
 <!ENTITY % lang.el.dsssl "IGNORE">
 ]>
 
@@ -28,9 +27,6 @@
 
       <![ %output.html; [
 
-        <!-- Generate links to HTML man pages -->
-        (define %refentry-xref-link% #t)
-
 	(define ($email-footer$)
           (make sequence
 	    (make element gi: "p"
@@ -59,7 +55,6 @@
                   (literal "doc@FreeBSD.org"))
 	        (literal ">.")))))
 
-        <!-- More aesthetically pleasing Greek quotes for HTML output. -->
         (element quote
           (make sequence
             (make entity-ref name: "laquo")
@@ -67,188 +62,6 @@
             (make entity-ref name: "raquo")))
       ]]>
 
-      <!-- More aesthetically pleasing chapter headers for print output --> 
-
-      <![ %output.print.niceheaders; [
-
-      (define niceheader-rule-spacebefore (* (HSIZE 5) %head-before-factor%))
-      (define niceheader-rule-spaceafter 0pt)
-
-      (define ($component-title$)
-	(let* ((info (cond
-		((equal? (gi) (normalize "appendix"))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		((equal? (gi) (normalize "article"))
-		 (node-list-filter-by-gi (children (current-node))
-					 (list (normalize "artheader")
-					       (normalize "articleinfo"))))
-		((equal? (gi) (normalize "bibliography"))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		((equal? (gi) (normalize "chapter"))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		((equal? (gi) (normalize "dedication")) 
-		 (empty-node-list))
-		((equal? (gi) (normalize "glossary"))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		((equal? (gi) (normalize "index"))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		((equal? (gi) (normalize "preface"))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		((equal? (gi) (normalize "reference"))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		((equal? (gi) (normalize "setindex"))
-		 (select-elements (children (current-node)) (normalize "docinfo")))
-		(else
-		 (empty-node-list))))
-	 (exp-children (if (node-list-empty? info)
-			   (empty-node-list)
-			   (expand-children (children info) 
-					    (list (normalize "bookbiblio") 
-						  (normalize "bibliomisc")
-						  (normalize "biblioset")))))
-	 (parent-titles (select-elements (children (current-node)) (normalize "title")))
-	 (info-titles   (select-elements exp-children (normalize "title")))
-	 (titles        (if (node-list-empty? parent-titles)
-			    info-titles
-			    parent-titles))
-	 (subtitles     (select-elements exp-children (normalize "subtitle"))))
-    (make sequence
-      (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-size: (HSIZE 4)
-	line-spacing: (* (HSIZE 4) %line-spacing-factor%)
-	space-before: (* (HSIZE 4) %head-before-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: %component-title-quadding%
-	heading-level: (if %generate-heading-level% 1 0)
-	keep-with-next?: #t
-
-	(if (string=? (element-label) "")
-	    (empty-sosofo)
-	    (literal (gentext-element-name-space (current-node))
-		     (element-label)
-		     (gentext-label-title-sep (gi)))))
-      (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-posture: 'italic
-	font-size: (HSIZE 6)
-	line-spacing: (* (HSIZE 6) %line-spacing-factor%)
-;	space-before: (* (HSIZE 5) %head-before-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: %component-title-quadding%
-	heading-level: (if %generate-heading-level% 1 0)
-	keep-with-next?: #t
-
-	(if (node-list-empty? titles)
-	    (element-title-sosofo) ;; get a default!
-	    (with-mode component-title-mode
-	      (make sequence
-		(process-node-list titles)))))
-
-      (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-posture: 'italic
-	font-size: (HSIZE 3)
-	line-spacing: (* (HSIZE 3) %line-spacing-factor%)
-	space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
-	space-after: (* (HSIZE 4) %head-after-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: %component-subtitle-quadding%
-	keep-with-next?: #t
-
-	(with-mode component-title-mode
-	  (make sequence
-	    (process-node-list subtitles))))
-
-      (if (equal? (gi) (normalize "index"))
-	(empty-sosofo)
-	(make rule
-	  length: %body-width%
-	  display-alignment: 'start
-	  space-before: niceheader-rule-spacebefore
-	  space-after: niceheader-rule-spaceafter
-	  line-thickness: 0.5pt)))))
-
-      (element authorgroup
-        (empty-sosofo))
-
-      ]]>
-
-      <!-- Print only ................................................... --> 
-
-      <![ %output.print; [
-
-      (define minimal-section-labels #f)
-      (define max-section-level-labels
-        (if minimal-section-labels 3 10))
-
-      (define ($section-title$)
-        (let* ((sect (current-node))
-      	       (info (info-element))
-	       (exp-children (if (node-list-empty? info)
-		 	         (empty-node-list)
-			         (expand-children (children info) 
-					          (list (normalize "bookbiblio") 
-						        (normalize "bibliomisc")
-						        (normalize "biblioset")))))
-	       (parent-titles (select-elements (children sect) (normalize "title")))
-  	       (info-titles   (select-elements exp-children (normalize "title")))
-	       (titles        (if (node-list-empty? parent-titles)
-		   	          info-titles
-			          parent-titles))
-	       (subtitles     (select-elements exp-children (normalize "subtitle")))
-	       (renderas (inherited-attribute-string (normalize "renderas") sect))
-	       (hlevel                          ;; the apparent section level;
-	        (if renderas                    ;; if not real section level,
-  	            (string->number             ;;   then get the apparent level
-	             (substring renderas 4 5))  ;;   from "renderas",
-	            (SECTLEVEL)))               ;; else use the real level
-	       (hs (HSIZE (- 4 hlevel))))
-
-          (make sequence
-            (make paragraph
- 	      font-family-name: %title-font-family%
-	      font-weight:  (if (< hlevel 5) 'bold 'medium)
-	      font-posture: (if (< hlevel 5) 'upright 'italic)
-	      font-size: hs
-	      line-spacing: (* hs %line-spacing-factor%)
-	      space-before: (* hs %head-before-factor%)
-	      space-after: (if (node-list-empty? subtitles)
-	    	  	       (* hs %head-after-factor%)
-	 	  	       0pt)
-	      start-indent: (if (or (>= hlevel 3)
-			            (member (gi) (list (normalize "refsynopsisdiv") 
-					    	       (normalize "refsect1") 
-						       (normalize "refsect2") 
-						       (normalize "refsect3"))))
-	 		        %body-start-indent%
-			        0pt)
-	      first-line-start-indent: 0pt
-	      quadding: %section-title-quadding%
-	      keep-with-next?: #t
-	      heading-level: (if %generate-heading-level% (+ hlevel 1) 0)
-  	      ;; SimpleSects are never AUTO numbered...they aren't hierarchical
-	      (if (> hlevel (- max-section-level-labels 1))
-	          (empty-sosofo)
-	          (if (string=? (element-label (current-node)) "")
-	  	      (empty-sosofo)
-		      (literal (element-label (current-node)) 
-			       (gentext-label-title-sep (gi sect)))))
-	      (element-title-sosofo (current-node)))
-            (with-mode section-title-mode
-	      (process-node-list subtitles))
-            ($section-info$ info))))
-
-      ]]>
-
-      <!-- Both sets of stylesheets ..................................... -->
-
       (define (local-el-label-title-sep)
         (list
           (list (normalize "warning")		": ")