1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
<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% "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.")))))
</ProgramListing>
</RefSect1>
</RefEntry>
|
