Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
fececd45
Commit
fececd45
authored
Jun 01, 2014
by
Dave Cooper
Browse files
updated on the road
parent
abbe3a26
Changes
2
Hide whitespace changes
Inline
Side-by-side
emacs/gdl.el
View file @
fececd45
...
...
@@ -334,6 +334,17 @@
(
end-of-buffer
)))
;;
;; Establish input methodf I.A.S.T diacritics
;;
(
load-file
(
concat
*gendl-home*
"emacs/sa-translit.el"
))
(
register-input-method
"sa-translit"
"Sanskrit Transliteration"
'quail-use-package
"sa-translit"
"Converts Harvard-Kyoto and ITRANS scheme to IAST diacritics."
(
concat
*gendl-home*
"emacs/sa-translit.el"
))
;; A. REFERENCES
;;
...
...
emacs/sa-translit.el
0 → 100644
View file @
fececd45
(
quail-define-package
"sa-translit"
"Sanskrit Transliteration"
"sa-translit"
t
"Insert IAST with composite key prefixes.
"
nil
t
nil
nil
nil
nil
nil
nil
nil
nil
t
)
(
quail-define-rules
(
"_a"
?
ā
)
(
"_A"
?
Ā
)
(
"_i"
?
ī
)
(
"_I"
?
Ī
)
(
"_u"
?
ū
)
(
"_U"
?
Ū
)
(
"!r"
?
ṛ
)
(
"_!r"
?
ṝ
)
(
"!R"
?
Ṛ
)
(
"_!R"
?
Ṝ
)
(
"!l"
?
ḷ
)
(
"!L"
?
Ḷ
)
(
"_!l"
?
ḹ
)
(
"_!L"
?
Ḹ
)
(
"!m"
?
ṃ
)
(
"!M"
?
Ṃ
)
(
".m"
?
ṁ
)
(
".M"
?
Ṁ
)
(
"!h"
?
ḥ
)
(
"!H"
?
Ḥ
)
(
".n"
?
ṅ
)
(
".N"
?
Ṅ
)
(
"~n"
?
ñ
)
(
"~N"
?
Ñ
)
(
"!t"
?
ṭ
)
(
"!T"
?
Ṭ
)
(
"!d"
?
ḍ
)
(
"!D"
?
Ḍ
)
(
"!n"
?
ṇ
)
(
"!N"
?
Ṇ
)
(
"'s"
?
ś
)
(
"'S"
?
Ś
)
(
"!s"
?
ṣ
)
(
"!S"
?
Ṣ
)
)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment