<RefEntry id="X24admon-graphicX24">
<!-- This file is generated automatically from the DSSSL source. -->
<!-- Do not edit this file! -->
<?html-filename admon-graphic.html>

<RefMeta>
  <RefEntryTitle>$admon-graphic$</RefEntryTitle>
  <RefMiscInfo Role="file">dbparam.dsl</RefMiscInfo>
</RefMeta>

<RefNameDiv>
  <RefName>$admon-graphic$</RefName>
  <RefPurpose>Admonition graphic file</RefPurpose>
</RefNameDiv>

<RefSynopsisDiv><Title>Synopsis</Title>
<Synopsis>
($admon-graphic$ #!optional (nd (current-node)))
</Synopsis>
</RefSynopsisDiv>

<RefSect1><Title>Description</Title>

<para>
Given an admonition node, returns the name of the graphic that should
be used for that admonition.</para>


</RefSect1>
<RefSect1><Title>Source Code</Title>

<ProgramListing>
(define ($admon-graphic$ #!optional (nd (current-node)))
  ;; Admonition graphic file
  (cond ((equal? (gi nd) (normalize "tip"))
	 (string-append %admon-graphics-path% "tip" %stock-graphics-extension%))
	((equal? (gi nd) (normalize "note"))
	 (string-append %admon-graphics-path% "note" %stock-graphics-extension%))
	((equal? (gi nd) (normalize "important"))
	 (string-append %admon-graphics-path% "important" %stock-graphics-extension%))
	((equal? (gi nd) (normalize "caution"))
	 (string-append %admon-graphics-path% "caution" %stock-graphics-extension%))
	((equal? (gi nd) (normalize "warning"))
	 (string-append %admon-graphics-path% "warning" %stock-graphics-extension%))
	(else (error (string-append (gi nd) " is not an admonition.")))))
</ProgramListing>
</RefSect1>

</RefEntry>