高亮长期标注的问题

JJPandari · 2018 年12 月 11 日 03:04

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

基于自带的写了个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))))