OASIS Mailing List ArchivesView the OASIS mailing list archive below
or browse/search using MarkMail.

 


Help: OASIS Mailing Lists Help | MarkMail Help

docbook-apps message

[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]


Subject: Re: DOCBOOK-APPS: jadetex 3.9


This is what I use when I want a description of an image appear at the right of
the (floating) image:

;;========================================================
(define ($block-graph$ #!optional (nd (current-node)) (display #f))
  (let* ((fileref   (attribute-string (normalize "fileref") nd))
	 (entityref (attribute-string (normalize "entityref") nd))
	 (format    (if (attribute-string (normalize "format") nd)
			(attribute-string (normalize "format") nd)
			(if entityref
			    (entity-notation entityref)
			    #f)))
	 (para-nd (node-list-first (select-elements (children (current-node)) (normalize "para"))))
	 ;; (para-nd (select-elements (children (current-node)) (normalize "para")))
	 (txt (children para-nd))
	 (height    (measurement-to-length (attribute-string "depth" nd)))
	 (width     (measurement-to-length (attribute-string "width" nd)))
	 (finalfileref ( if fileref fileref
			    (if entityref entityref "")))
	 (graphic (make external-graphic
		  display?: #f
		  ;; position-point-y: (-(+ %bf-size% height))
		  position-point-y: (- %bf-size% height)
		  entity-system-id: (graphic-file fileref))))    
    (if finalfileref 
	(make display-group
	  space-before: %para-sep%
	  space-after: %para-sep%
	  start-indent: (+ (+ (inherited-start-indent) width) %graphdesc-margin%)
	  font-family-name: %body-font-family%
	  font-size: %bf-size%
	  (make display-group
	    space-after: %para-sep%
	    (make paragraph
	      first-line-start-indent: (- (+ width %graphdesc-margin%) )
	      (make line-field
		field-width: (+ width %graphdesc-margin%)
		graphic)
	      (process-node-list txt))))
	(empty-sosofo))))

(element blockquote
  (let* ((nlg (select-elements (children (current-node)) (normalize "graphic")))
	 ( isgraph? ( and
		       (equal? (attribute-string "role") "graphdesc")
		       (not (node-list-empty? nlg)))))
    (if isgraph?
	($block-graph$ (node-list-first nlg))
	(make paragraph
	  font-size: (* %bf-size% %smaller-size-factor%)
	  line-spacing: (* %bf-size% %line-spacing-factor%
			   %smaller-size-factor%)
	  space-before: %para-sep%
	  start-indent: (+ (inherited-start-indent) 1em)
	  end-indent: 1em
	  (process-children)))))
;; ====================================================================

As you can se, I use <blockquote role="graphdesc"> to do this.

Regards,

Juan R. Migoya
TEAM S.L.

Joe Cooper wrote:
> 
> Juan R. Migoya wrote:
> 
>
> > If you use DSSSL, just use: "position-point-y: (- %bf-size% height)" being "height" the height
> > of the admonition graphics. Wrap the graphic together with the admonition text.
> >
> > BTW: This trick is also useful to make (big) images float at the left of some paragraphs.
> >
> > Hope this help,
> 
> Hi Juan,
> 
> Would you mind expanding on this a bit?  I'm looking in dbadmon.dsl in
> the current stylesheets and I don't see where this would go...  Am I
> even looking at the right file?  (I've changed height to
> $admon-graphic-height$ which I define earlier in the file, and I poked
> the suggested line into a couple of places but all result in errors...)
> 
> So a couple of additional pointers would be much appreciated (forgive my
> ignorance of these things...I'm not exactly an expert on this stuff, but
> trying to learn).
> 
> Thanks!
>                                    --
>                       Joe Cooper <joe@swelltech.com>
>                   Affordable Web Caching Proxy Appliances
>                          http://www.swelltech.com


[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]


Powered by eList eXpress LLC