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
