Skip to content

Instantly share code, notes, and snippets.

@yaitskov
Created December 11, 2012 20:53
Show Gist options
  • Save yaitskov/4262032 to your computer and use it in GitHub Desktop.
Save yaitskov/4262032 to your computer and use it in GitHub Desktop.
emacs minor mode to input english transcription symbols in utf8
(define-minor-mode endic-mode
"Override several keystrokes beginning with Esc-Esc. They are used to insert
the symbols of english transcription."
nil " Dictionary"
'(("\e\ec" . (lambda () (interactive) (insert "ɔ")))
("\e\eo" . (lambda () (interactive)(insert "ծ")))
("\e\es" . (lambda () (interactive)(insert "ʃ")))
("\e\et" . (lambda () (interactive)(insert "ɛ")))
("\e\ep" . (lambda () (interactive)(insert "ʓ")))
("\e\ee" . (lambda () (interactive)(insert "ə")))
("\e\ef" . (lambda () (interactive)(insert "θ")))
("\e\en" . (lambda () (interactive)(insert "ɳ")))
("\e\ei" . (lambda () (interactive)(insert "ɪ")))
("\e\ed" . (lambda () (interactive)(insert "ӕ")))
("\e\ev" . (lambda () (interactive)(insert "ʌ"))))
(set-frame-height nil 8)
(set-frame-width nil 102)
(run-at-time "2 sec" nil '(lambda ()
(modify-frame-parameters nil
'((top . -30)
(left . 0)))))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment