aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ekdosis.el83
1 files changed, 81 insertions, 2 deletions
diff --git a/ekdosis.el b/ekdosis.el
index 84e8f82..8f11f37 100644
--- a/ekdosis.el
+++ b/ekdosis.el
@@ -34,6 +34,68 @@
34 (TeX-read-key-val t 34 (TeX-read-key-val t
35 (append LaTeX-ekdosis-preamble-options))) 35 (append LaTeX-ekdosis-preamble-options)))
36 36
37(defvar LaTeX-ekdosis-app-options
38 '(;;
39 ("type")
40 )
41 "Local options.")
42
43(defvar LaTeX-ekdosis-lem-options
44 '(;;
45 ("wit")
46 ("alt")
47 ("pre")
48 ("post")
49 ("prewit")
50 ("postwit")
51 ("sep")
52 ("nolem" ("true" "false"))
53 ("nosep" ("true" "false"))
54 )
55 "Local options.")
56
57(defvar LaTeX-ekdosis-rdg-options
58 '(;;
59 ("wit")
60 ("alt")
61 ("pre")
62 ("post")
63 ("prewit")
64 ("postwit")
65 ("nordg" ("true" "false"))
66 )
67 "Local options.")
68
69(defvar LaTeX-ekdosis-note-options
70 '(;;
71 ("type")
72 ("lem")
73 ("labelb")
74 ("labele")
75 ("sep")
76 ("pre")
77 ("post")
78 )
79 "Local options.")
80
81(defvar LaTeX-ekdosis-note-star-options
82 '(;;
83 ("pre")
84 ("post")
85 )
86 "Local options.")
87
88(defvar LaTeX-ekdosis-alignment-key-val-options
89 '(;;
90 ("tcols")
91 ("lcols")
92 ("texts")
93 ("apparatus")
94 ("paired" ("true" "false"))
95 ("pagelineation" ("true" "false"))
96 )
97 "Local options.")
98
37(TeX-add-style-hook 99(TeX-add-style-hook
38 "ekdosis" 100 "ekdosis"
39 (lambda () 101 (lambda ()
@@ -53,11 +115,28 @@
53 ;; This package relies on lualatex, so check for it: 115 ;; This package relies on lualatex, so check for it:
54 (TeX-check-engine-add-engines 'luatex) 116 (TeX-check-engine-add-engines 'luatex)
55 (TeX-add-symbols 117 (TeX-add-symbols
56 "app" 118 '("app" [ (TeX-arg-key-val
119 LaTeX-ekdosis-app-options) ]
120 t)
121 '("lem" [ (TeX-arg-key-val
122 LaTeX-ekdosis-lem-options) ]
123 t)
124 '("rdg" [ (TeX-arg-key-val
125 LaTeX-ekdosis-rdg-options) ]
126 t)
127 '("note" [ (TeX-arg-key-val
128 LaTeX-ekdosis-note-options) ]
129 t)
130 '("note*" [ (TeX-arg-key-val
131 LaTeX-ekdosis-note-star-options) ]
132 t)
133 '("SetEkdosisAlignment" (TeX-arg-key-val
134 LaTeX-ekdosis-alignment-key-val-options))
57 ) 135 )
58 (LaTeX-add-environments 136 (LaTeX-add-environments
59 "ekdosis" 137 "ekdosis"
60 ) 138 '("alignment" LaTeX-env-args
139 [ TeX-arg-key-val LaTeX-ekdosis-alignment-key-val-options ] 0))
61 ) 140 )
62 LaTeX-dialect) 141 LaTeX-dialect)
63 142