cvs: phpdoc /dsssl html-common.dsl

hholzgra Thu Mar 21 19:08:11 2002 EDT Modified files: /phpdoc/dsssl html-common.dsl Log: faq-anchor problem solved Index: phpdoc/dsssl/html-common.dsl diff -u phpdoc/dsssl/html-common.dsl:1.4 phpdoc/dsssl/html-common.dsl:1.5 --- phpdoc/dsssl/html-common.dsl:1.4 Thu Mar 14 07:07:39 2002 +++ phpdoc/dsssl/html-common.dsl Thu Mar 21 19:08:11 2002 @@ -1,6 +1,6 @@ ;; -*- Scheme -*- ;; -;; $Id: html-common.dsl,v 1.4 2002/03/14 12:07:39 hholzgra Exp $ +;; $Id: html-common.dsl,v 1.5 2002/03/22 00:08:11 hholzgra Exp $ ;; ;; Returns the depth of the auto-generated TOC (table of @@ -10,6 +10,16 @@ 2 ; the depth of the top-level TOC 1 ; the depth of all other TOCs )) + +;; re-defining element-id as we need to get the id of the parent +;; element not only for <title> but also for <question> in the faq +(define (element-id #!optional (nd (current-node))) + (let ((elem (if (equal? (gi nd) (normalize "title")) (parent nd) + (if (equal? (gi nd) (normalize "question")) (parent nd) + nd)))) + (if (attribute-string (normalize "id") elem) + (attribute-string (normalize "id") elem) + (generate-anchor elem)))) ;; Make function definitions bold (element (funcdef function)