Print Parameter Reference: Part of the Modular DocBook Stylesheet distribution
Prev |  | Next

# $admon-graphic$

## Name

$admon-graphic$ -- Admonition graphic file

## Synopsis

    ($admon-graphic$ #!optional (nd (current-node)))

## Description

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

## Source Code

    (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.")))))

Prev | Home | Next
%admon-graphics-extension% | Up | $admon-graphic-width$