为什么要更换光标颜色呢？
很多朋友理解不了为什么要折腾这个。其实，更换光标颜色主要有以下3种用途：
- 在 Emacs 全屏使用时，特别是使用了 writeroom-mode 以后，整个界面连 mode-line 都没有了，这时根本没有办法识别当前的输入法状态。
- Emacs-rime 或者 pyim 等输入法有自动探测当前输入环境的功能，可以自动切换输入法状态为英文或者中文模式，比如后面要介绍的 inline ascii 模式。
- 由于使用了
Shift 进行中英文切换，经常会在英文输入大写字母时突然又不想输入大写，这时输入法状态就会切换中文，造成本来想输入英文，结果出来的是中文，打断输入的流畅性。
对于这个问题，Emacs 社区已经有了现成的方案：
- pyim 输入法最近增加了根据输入法状态切换颜色的功能。
- sis 方案也自带这个功能。
- emacs-rime 也可以直接使用 cursor-chg 这个包实现。
cursor-chg 对我来说功能太多，我只要换个光标颜色而已。但它除了支持更换光标颜色，还支持在闲置时更换光标的形状，在切换到只读模式的 buffer 时更换光标的形状。
所以，在参考了 cursor-chg ，以及在 Emacs 社区 @tumashu 大佬的帮助下， 实现了简洁的输入法切换更换光标颜色的功能。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| ;;; im-cursor-chg.el --- Change cursor color for input method -*- lexical-binding: t; -*-
;; Inspired by code from cursor-chg
;; URL: https://github.com/emacsmirror/cursor-chg/blob/master/cursor-chg.el
;;; Commentary:
;;
;; To turn on the cursor color change by default,
;; put the following in your Emacs init file.
;;
;; (require 'im-cursor-chg)
;; (cursor-chg-mode 1)
;;
;;; Code:
(require 'rime nil t)
(defvar im-cursor-color "Orange"
"The color for input method.")
(defvar im-default-cursor-color (frame-parameter nil 'cursor-color)
"The default cursor color.")
(defun im--chinese-p ()
"Check if the current input state is Chinese."
(if (featurep 'rime)
(and (rime--should-enable-p)
(not (rime--should-inline-ascii-p))
current-input-method)
current-input-method))
(defun im-change-cursor-color ()
"Set cursor color depending on input method."
(interactive)
(set-cursor-color (if (im--chinese-p)
im-cursor-color
im-default-cursor-color)))
(define-minor-mode cursor-chg-mode
"Toggle changing cursor color.
With numeric ARG, turn cursor changing on if ARG is positive.
When this mode is on, `im-change-cursor-color' control cursor changing."
:init-value nil :global t :group 'frames
(if cursor-chg-mode
(add-hook 'post-command-hook 'im-change-cursor-color)
(remove-hook 'post-command-hook 'im-change-cursor-color)))
(provide 'im-cursor-chg)
;;; im-cursor-chg.el ends here
|
只要将上面的代码保存为 im-cursor-chg.el 文件，然后在 Emacs 配置文件(如.emacs)中加入以下配置即可：
1
2
3
| (with-eval-after-load 'rime
(require 'im-cursor-chg)
(cursor-chg-mode 1))
|