blob: ee809f9aae8e3d33121b8f358a0858527df15a4b (
plain)
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
50
51
52
53
54
55
|
;; This is a first example using `xindy'.
(mapc #'(lambda (x)
(pushnew x *features*))
'(:STEP1 :STEP2 :STEP3 :STEP4 :STEP5))
#+:STEP1
(progn
(define-location-class "page-numbers" ("arabic-numbers"))
(define-attributes (("definition" "usage")))
)
#+:STEP2
(progn
(markup-index :open "~n\begin{theindex}~n"
:close "~n~n\end{theindex}~n"
:tree)
(markup-locref :class "page-numbers" :attr "definition"
:open "{\bf " :close "}")
(markup-locref-list :sep ", ")
(markup-locclass-list :open "\quad{}")
)
#+:STEP3
(progn
(markup-indexentry :open "~n \item " :depth 0)
(markup-indexentry :open "~n \subitem " :depth 1)
(markup-indexentry :open "~n \subsubitem " :depth 2)
(markup-range :class "page-numbers" :sep "--")
)
#+:STEP4
(progn
(sort-rule "à" "a")
(sort-rule "á" "a")
(sort-rule "ã" "a")
(sort-rule "è" "e")
(sort-rule "é" "e")
(sort-rule "ç" "c")
(sort-rule "\\texttt{\(.*\)}" "\1" :again :bregexp)
)
#+:STEP5
(progn
(define-letter-groups
("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m"
"n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
(markup-letter-group-list :sep "~n~n \indexspace~n")
)
|
