indic-computing-cvs-logs

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

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

Revision: 306
          http://indic-computing.svn.sourceforge.net/indic-computing/?rev=306&view=rev
Author:   jkoshy
Date:     2007-10-11 22:57:18 -0700 (Thu, 11 Oct 2007)

Log Message:
-----------
Generate HTML references to callout images for DocBook <co> elements.

Obtained from:	The FreeBSD Documentation project.

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-10-12 05:55:45 UTC (rev 305)
+++ doc/trunk/share/sgml/indic-computing.dsl	2007-10-12 05:57:18 UTC (rev 306)
@@ -195,14 +195,44 @@
           ;; Use graphics in callouts?
           #t)
 
-        (define %callout-graphics-extension%
+        (define %callout-graphics-ext%
           ;; The extension to use for callout images.
           ".png")
 
+        (define %callout-graphics-number-limit%
+          ;; Number of largest callout graphic
+          15)
+
         (define %callout-graphics-path%
           ;; Path to callout graphics
-          "./images/")
+          "./imagelib/callouts/")
 
+        ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
+        ;; variable.
+        (define ($callout-bug$ conumber)
+	  (let ((number (if conumber (format-number conumber "1") "0")))
+	    (if conumber
+		(if %callout-graphics%
+	            (if (<= conumber %callout-graphics-number-limit%)
+		        (make empty-element gi: "IMG"
+			      attributes: (list (list "SRC"
+				                      (root-rel-path
+					               (string-append
+						        %callout-graphics-path%
+							number
+	                                                %callout-graphics-ext%)))
+		                                (list "HSPACE" "0")
+			                        (list "VSPACE" "0")
+				                (list "BORDER" "0")
+					        (list "ALT"
+						      (string-append
+	                                               "(" number ")"))))
+		        (make element gi: "B"
+			      (literal "(" (format-number conumber "1") ")")))
+	            (make element gi: "B"
+		          (literal "(" (format-number conumber "1") ")")))
+	        (make element gi: "B"
+	       (literal "(??)")))))
       ]]>
 
       <!-- Two-sided Print output ....................................... --> 


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

[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.