高亮长期标注的问题

lingyefengzi · 2018 年12 月 8 日 08:44

emacs中如何有没有相应的快捷键让选中的词一直高亮，而不是临时高亮，就像下图那样

guanghui.qu · 2018 年12 月 8 日 09:28

Symbol overlay, global highlight两个包了解一下

zmqclee · 2018 年12 月 8 日 09:39

可以自己挨个试着玩玩，这个是 Emacs 自带的

key		binding
M-s h .		highlight-symbol-at-point
M-s h f		hi-lock-find-patterns
M-s h l		highlight-lines-matching-regexp
M-s h p		highlight-phrase
M-s h r		highlight-regexp
M-s h u		unhighlight-regexp
M-s h w		hi-lock-write-interactive-patterns

相关文档

lingyefengzi · 2018 年12 月 8 日 09:42

好的，我试试，

JJPandari · 2018 年12 月 10 日 12:18

这个的高亮是主题里有配置的，比symbol-overlay好看，而且这个还能高亮非symbol目标，我要抛弃后者了……

zmqclee · 2018 年12 月 10 日 12:35

symbol-overlay 拥有很多的功能，自带的在功能上还是比较简单的

JJPandari · 2018 年12 月 10 日 12:39

在match之间跳转么？它要在某个match上才能跳，我还是喜欢evil-search-next。或者哪位给symbol-overlay加个能按正则highlight、能按active-region highlight，就最好了……

zmqclee · 2018 年12 月 10 日 12:41

恩，合适自己就好，我也喜欢直接 C-s

JJPandari · 2018 年12 月 11 日 03:04

在自带的基础上稍微扩展了一下，写在之前我那个帖子里了：

[推销package] symbol-overlay，同时高亮多个symbol

基于自带的写了个toggle highlight和clear all，支持当前选中region或symbol at point:

(defun jester/toggle-highlight-at-point ()
  "Toggle highlight at point (region or symbol)."
  (interactive)
  (let ((hi-regexp-list (mapcar #'car hi-lock-interactive-patterns))
        (hi-regexp-at-pt (jester/regexp-at-point))
        (hi-lock-auto-select-face t))
    (if (member hi-regexp-at-pt hi-regexp-list)
        (unhighlight-regexp hi-regexp-at-pt)
      (highlight-phrase hi-regexp-at-pt (hi-lock-read-face-name)))
    (deactivate-mark)))

(defun jester/clear-all-highlight ()
  "clear all highlight."
  (interactive)
  (let ((hi-regexp-list (mapcar #'car hi-lock-interactive-patterns)))
    (mapcar 'unhighlight-regexp hi-regexp-list)))

(defun jester/regexp-at-point ()
  "if region active, return the region,
otherwise return regexp like \"\\\\_<sym\\\\_>\" for the symbol at point."
  (if (region-active-p)
       (buffer-substring-no-properties
        (region-beginning) (region-end))
     (format "\\_<%s\\_>" (thing-at-point 'symbol t))))