cvs: phpdoc / html-common.dsl

goba Fri Nov 9 06:48:28 2001 EDT Modified files: /phpdoc html-common.dsl Log: Adding Jirka's invention about using a class attribute for expressing that what examples are PHP and what are not. Index: phpdoc/html-common.dsl diff -u phpdoc/html-common.dsl:1.15 phpdoc/html-common.dsl:1.16 --- phpdoc/html-common.dsl:1.15 Tue Aug 14 18:34:22 2001 +++ phpdoc/html-common.dsl Fri Nov 9 06:48:28 2001 @@ -1,6 +1,6 @@ ;; -*- Scheme -*- ;; -;; $Id: html-common.dsl,v 1.15 2001/08/14 22:34:22 jeroen Exp $ +;; $Id: html-common.dsl,v 1.16 2001/11/09 11:48:28 goba Exp $ ;; ;; Returns the depth of the auto-generated TOC (table of contents) that @@ -11,11 +11,6 @@ 1 ; the depth of all other TOCs )) - - - - - (element (funcdef function) ($bold-seq$ (make sequence @@ -358,5 +353,28 @@ (literal (question-answer-label (current-node)) " ")) (process-node-list (children firstch))) (process-node-list restch)))) ) + +;; Adding class="" HTML parameter to examples +;; having a role="" parameter... +(define ($verbatim-display$ indent line-numbers?) + (let ( +(content (make element gi: "PRE" + attributes: (list + (list "CLASS" (if (attribute-string (normalize "role")) + (attribute-string (normalize "role")) + (gi)))) + (if (or indent line-numbers?) + ($verbatim-line-by-line$ indent line-numbers?) + (process-children))))) + (if %shade-verbatim% +(make element gi: "TABLE" + attributes: ($shade-verbatim-attr$) + (make element gi: "TR" + (make element gi: "TD" + content))) +(make sequence + (para-check) + content + (para-check 'restart))))) ;; vim: ts=2 sw=2 et