<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% (string-append "tip" %admon-graphics-extension%))) ((equal? (gi nd) (normalize "note")) (string-append %admon-graphics-path% (string-append "note" %admon-graphics-extension%))) ((equal? (gi nd) (normalize "important")) (string-append %admon-graphics-path% (string-append "important" %admon-graphics-extension%))) ((equal? (gi nd) (normalize "caution")) (string-append %admon-graphics-path% (string-append "caution" %admon-graphics-extension%))) ((equal? (gi nd) (normalize "warning")) (string-append %admon-graphics-path% (string-append "warning" %admon-graphics-extension%))) (else (error (string-append (gi nd) " is not an admonition."))))) </ProgramListing> </RefSect1> </RefEntry>