$admon-graphic$

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-graphic-default-extension)))
	((equal? (gi nd) (normalize "note"))
	 (string-append %admon-graphics-path%
			(string-append "note"
				       admon-graphic-default-extension)))

	((equal? (gi nd) (normalize "important"))
	 (string-append %admon-graphics-path%
			(string-append "important"
				       admon-graphic-default-extension)))

	((equal? (gi nd) (normalize "caution"))
	 (string-append %admon-graphics-path%
			(string-append "caution"
				       admon-graphic-default-extension)))
	((equal? (gi nd) (normalize "warning"))
	 (string-append %admon-graphics-path%
			(string-append "warning"
				       admon-graphic-default-extension)))
	(else (error (string-append (gi nd) " is not an admonition.")))))