From e950b705540c5371ef1d7efd6bce9d8e36d62f3f Mon Sep 17 00:00:00 2001 From: Thomas Ulmer Date: Sat, 27 Apr 2024 16:46:22 -0700 Subject: emacs config cleanup --- emacs/personal-lisp/general-text.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 emacs/personal-lisp/general-text.el (limited to 'emacs/personal-lisp/general-text.el') diff --git a/emacs/personal-lisp/general-text.el b/emacs/personal-lisp/general-text.el new file mode 100644 index 0000000..bea3fc9 --- /dev/null +++ b/emacs/personal-lisp/general-text.el @@ -0,0 +1,23 @@ +;; General stuff for editing all text, but particularly prose + +;; spelling +(require 'spell-fu) +(setq ispell-personal-dictionary "/home/tmu/.aspell.en.pws") +(add-hook 'text-mode-hook (lambda () (spell-fu-mode 1))) + +;; dictionaries +(define-prefix-command 'dict-map) +(global-set-key (kbd "M-l") 'dict-map) +(define-keymap :full nil + :parent nil + :suppress nil + :keymap nil + :name "dict-map" + :prefix 'dict-map + (kbd "w") 'sdcv-search-input + (kbd "c") (lambda () (interactive) + (activate-input-method 'pyim) + (sdcv-search-input (read-from-minibuffer "Chinese Word: " + nil nil nil + nil nil t)) + (activate-input-method nil))) -- cgit v1.2.3