cvs: phpdoc / html-common.dsl
| From: | jim winstead | Date: | Mon, 17 Dec 2001 21:38:40 +0000 |
| Subject: | cvs: phpdoc / html-common.dsl | ||
| Groups: | php.doc | ||
| Request: | Send a blank email to phpdoc+get-969339965@lists.php.net to get a copy of this message | ||
jimw Mon Dec 17 16:38:40 2001 EDT
Modified files:
/phpdoc html-common.dsl
Log:
format editors just like authors in html versions.
Index: phpdoc/html-common.dsl
diff -u phpdoc/html-common.dsl:1.18 phpdoc/html-common.dsl:1.19
--- phpdoc/html-common.dsl:1.18 Sun Nov 18 18:28:22 2001
+++ phpdoc/html-common.dsl Mon Dec 17 16:38:40 2001
@@ -1,6 +1,6 @@
;; -*- Scheme -*-
;;
-;; $Id: html-common.dsl,v 1.18 2001/11/18 23:28:22 hholzgra Exp $
+;; $Id: html-common.dsl,v 1.19 2001/12/17 21:38:40 jimw Exp $
;;
;; Returns the depth of the auto-generated TOC (table of
@@ -333,7 +333,19 @@
attributes: (list (list "CLASS" (gi)))
(literal author-name))
(process-node-list author-affil))))
- )
+
+ (element editor
+ (let ((editor-name (author-string)))
+ (make sequence
+ (if (first-sibling?)
+ (make element gi: "H2"
+ attributes: (list (list "CLASS" "EDITEDBY"))
+ (literal (gentext-edited-by)))
+ (empty-sosofo))
+ (make element gi: "DIV"
+ attributes: (list (list "CLASS" (gi)))
+ (literal editor-name)))))
+)
;; Put version info where the refname part in the refnamediv is