[Indic-computing-cvs-logs] SF.net SVN: indic-computing: [319] doc/trunk/share/sgml/indic-computing.dsl

[<jk...@us...>]

Revision: 319
          http://indic-computing.svn.sourceforge.net/indic-computing/?rev=319&view=rev
Author:   jkoshy
Date:     2007-12-29 23:50:57 -0800 (Sat, 29 Dec 2007)

Log Message:
-----------
- Render <codepoint> elements into HTML using HTML classes 'CODEPOINT',
  'UNICODECODEPOINT' and 'CODEPOINTNAME'.

Modified Paths:
--------------
    doc/trunk/share/sgml/indic-computing.dsl

Modified: doc/trunk/share/sgml/indic-computing.dsl
===================================================================
--- doc/trunk/share/sgml/indic-computing.dsl	2007-12-30 07:43:16 UTC (rev 318)
+++ doc/trunk/share/sgml/indic-computing.dsl	2007-12-30 07:50:57 UTC (rev 319)
@@ -170,7 +170,19 @@
               use a subscript to indicate the character set associated with the
               code point. -->
          (element codepoint
-	   ($mono-seq$))
+           (let* ((name (attribute-string (normalize "codepoint-name")))
+		  (standard (attribute-string (normalize "character-set")))
+		  (css-class
+		    (cond ((equal? standard (normalize "unicode"))
+			   "UNICODECODEPOINT")
+			  (else "CODEPOINT"))))
+	     (make sequence
+	       (make element gi: "SPAN"
+		     attributes: (list (list "CLASS" css-class))
+		     (process-children))
+	       (make element gi: "SPAN"
+		     attributes: '(("CLASS" "CODEPOINTNAME"))
+		     (literal (string-append " " name))))))
 
       ]]>
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.