In-adiutorium/antifonar/indexstyle_bible.xdy at master · igneus/In-adiutorium · GitHub

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
;; xindy stylesheet for the index of psalms and canticles
;; (or any other index with terms being Bible references)

;; all require statements from the stdlib texindy.xdy, excepting numeric-sort
(require "latex.xdy")
(require "latex-loc-fmts.xdy")
(require "makeindex.xdy")
(require "latin-lettergroups.xdy")

;; Customized numeric sorting.
;; unlike the numeric-sort.xdy from xindy stdlib
;; - only zero-pad numerals after a space or selected interpunction
;;   (the main reason is avoiding padding of numerals at the beginning of terms,
;;   because Bible reference like "1 Petr ..." padded to "0000001 Petr" won't get
;;   correctly included in the letter-group "1 Petr")
;; - we know that in our index all numerals are Bible chapters/verses
;;   and thus none of them has more than 3 digits
(merge-rule "[ (-]([0-9][0-9][0-9])" "0000\1" :eregexp)
(merge-rule "[ (-]([0-9][0-9])" "00000\1" :eregexp)
(merge-rule "[ (-]([0-9])" "000000\1" :eregexp)

;; separate index word from page numbers by dots;
;; ensure minimum width of the dotfill to prevent page numbers
;; from getting attached to the terms
;; (our terms often end with verse numbers and the result would thus be
;; unreadable)
(markup-locclass-list :open "\idxDotfill")

;; ignore leading "srov."
(merge-rule "^[Ss]rov. " "" :eregexp)

;; group and sort by books
(define-letter-groups (
"Ex"
"Dt"
"1 Sam"
"1 Kron"
"Tob"
"Jdt"
"Žalm" ; btw. non-standard abbreviation as per the list of abbreviations at the back of the printed breviary
"Př"
"Mdr"
"Sir"
"Iz"
"Jer"
"Pláč"
"Ez"
"Dan"
"Oz"
"Hab"
"Sof"
"Lk"
"Ef"
"Flp"
"Kol"
"1 Tim"
"1 Petr"
"Zj"
))

;; sorting of Hebrew letter names
(sort-rule "Alef" "a")
(sort-rule "Beth" "b")
(sort-rule "Ghimel" "c")
(sort-rule "Daleth" "d")
(sort-rule "He" "e")
(sort-rule "Vau" "f")
(sort-rule "Zajin" "g")
(sort-rule "Cheth" "h")
(sort-rule "Teth" "i")
(sort-rule "Jod" "j")
(sort-rule "Kaf" "k")
(sort-rule "Lamed" "l")
(sort-rule "Mem" "m")
(sort-rule "Nun" "n")
(sort-rule "Samech" "o")
(sort-rule "Ajin" "p")
(sort-rule "Pe " "q") ; the trailing space prevents "1 Petr" from being replaced to "1 qtr"
(sort-rule "Sade" "r")
(sort-rule "Kof" "s")
(sort-rule "Reš" "t")
(sort-rule "Sin" "u")
(sort-rule "Tau" "v")