$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% "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.")))))