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