jkj Mon Jan 14 17:12:59 2002 EDT
Modified files:
/phpdoc/dsssl html-common.dsl print.dsl.in
Log:
Added support for <note role="seealso">
Index: phpdoc/dsssl/html-common.dsl
diff -u phpdoc/dsssl/html-common.dsl:1.1 phpdoc/dsssl/html-common.dsl:1.2
--- phpdoc/dsssl/html-common.dsl:1.1 Sun Jan 6 10:42:27 2002
+++ phpdoc/dsssl/html-common.dsl Mon Jan 14 17:12:59 2002
@@ -1,6 +1,6 @@
;; -*- Scheme -*-
;;
-;; $Id: html-common.dsl,v 1.1 2002/01/06 15:42:27 hholzgra Exp $
+;; $Id: html-common.dsl,v 1.2 2002/01/14 22:12:59 jkj Exp $
;;
;; Returns the depth of the auto-generated TOC (table of
@@ -404,5 +404,30 @@
(para-check)
content
(para-check 'restart)))))
+
+;; Special handling of note role="seealso"
+(define ($admonpara$)
+ (let* ((title (select-elements
+ (children (parent (current-node))) (normalize "title")))
+ (has-title (not (node-list-empty? title)))
+ (adm-title (if has-title
+ (make sequence
+ (with-mode title-sosofo-mode
+ (process-node-list (node-list-first title)))
+ (literal (gentext-label-title-sep
+ (gi (parent (current-node))))))
+ (literal
+ (gentext-element-name
+ (if (equal? (normalize "seealso") (attribute-string
+(normalize "role") (parent (current-node))))
+ (normalize "seealsoie")
+ (parent (current-node))))
+ (gentext-label-title-sep
+ (gi (parent (current-node))))))))
+ (make element gi: "P"
+ (if (and (not %admon-graphics%) (= (child-number) 1))
+ (make element gi: "B"
+ adm-title)
+ (empty-sosofo))
+ (process-children))))
;; vim: ts=2 sw=2 et
Index: phpdoc/dsssl/print.dsl.in
diff -u phpdoc/dsssl/print.dsl.in:1.1 phpdoc/dsssl/print.dsl.in:1.2
--- phpdoc/dsssl/print.dsl.in:1.1 Sun Jan 6 10:42:27 2002
+++ phpdoc/dsssl/print.dsl.in Mon Jan 14 17:12:59 2002
@@ -7,7 +7,7 @@
<!--
- $Id: print.dsl.in,v 1.1 2002/01/06 15:42:27 hholzgra Exp $
+ $Id: print.dsl.in,v 1.2 2002/01/14 22:12:59 jkj Exp $
This file contains printout-specific stylesheet customization.
@@ -346,6 +346,34 @@
)
(literal "()"))))))
+;; Special handling of note role="seealso"
+(define ($admonpara$)
+ (let* ((title (select-elements
+ (children (parent (current-node))) (normalize "title")))
+ (has-title (not (node-list-empty? title)))
+ (adm-title (if has-title
+ (make sequence
+ (with-mode title-sosofo-mode
+ (process-node-list (node-list-first title)))
+ (literal (gentext-label-title-sep
+ (gi (parent (current-node))))))
+ (literal
+ (gentext-element-name
+ (if (equal? (normalize "seealso") (attribute-string
+(normalize "role") (parent (current-node))))
+ (normalize "seealsoie")
+ (parent (current-node))))
+ (gentext-label-title-sep
+ (gi (parent (current-node))))))))
+ (make paragraph
+ space-before: %para-sep%
+ space-after: %para-sep%
+ (if (and (not %admon-graphics%) (= (child-number) 1))
+ (make sequence
+ font-family-name: %title-font-family%
+ font-weight: 'bold
+ adm-title)
+ (empty-sosofo))
+ (process-children-trim))))
&common.dsl;
