☰

emacs 将点颜色更改为当前前景

tag-icon • tag-icon emacs elisp
emacs 将点颜色更改为当前前景

我正在尝试自定义我的 emacs，以便点颜色与我所站立的角色的前景相同。

我现在有这个：

(defun fixpoint ()
  "awesome stuff happening to point"
  (interactive)
  (set-cursor-color (eyedrop-foreground-at-point)))

(add-hook 'post-command-hook 'fixpoint)

我在用着http://www.emacswiki.org/eyedropper.el用于滴管。

我正在尝试解决两个问题。

首先，钩子在每个命令之后运行，这似乎有点矫枉过正。不是有一个点运动的钩子吗？

其次，当突出显示匹配的大括号时，该点不会改变颜色。我必须前进到下一个匹配的大括号并跳回以查看点颜色的实际变化。

答案1

不知道是否有更好的钩子可以使用。

Wrt 突出显示大括号，我无法重现该问题。请提供食谱。请记住，配方应该首先突出显示大括号（使用前景色）。如果大括号本身只是黑色（即默认前景色），那么您当然不会注意到任何变化。

我emacs -Q在输入后从 开始执行此操作{{{}}}：

  1. 关闭font-lock-mode（这样您就可以看到添加的突出显示）。另一种方法是使用font-lock-*脸部来突出显示。

  2. 选择大括号并执行以下操作：

    (put-text-property (region-beginning) (region-end) 'face '警告)

这把脸放在warning了牙套上。将点移到它们上方会使光标具有与其前景相同的背景颜色 ( DarkOrange) 。warning

相关内容