cvs: phpdoc /dsssl html-common.dsl print.dsl.in

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;