$admon-graphic$
dbparam.dsl
$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% "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.")))))