From 2576f016153baa11c6e62deeb329dd72f0aa89c8 Mon Sep 17 00:00:00 2001 From: TCCQ Date: Fri, 14 Feb 2025 15:40:29 -0800 Subject: emacs full rework from laptop --- emacs/site-lisp/general-text.el | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 emacs/site-lisp/general-text.el (limited to 'emacs/site-lisp/general-text.el') diff --git a/emacs/site-lisp/general-text.el b/emacs/site-lisp/general-text.el new file mode 100644 index 0000000..d03171a --- /dev/null +++ b/emacs/site-lisp/general-text.el @@ -0,0 +1,32 @@ +;; General stuff for editing all text, but particularly prose + +(provide 'general-text) + +;; dictionaries +(define-prefix-command '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))) + +(setq ispell-personal-dictionary "/home/tmu/.aspell.en.pws") +(add-hook 'text-mode-hook (lambda () + (ispell-mode 1) + (local-set-key (kbd "M-l") 'dict-map))) + +(electric-pair-mode 1) + +(use-package dabbrev + :config + (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode) + (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode) + (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode)) -- cgit v1.2.3