Emacs hl-line：在本地更改颜色

我通常会让hl-line采用当前背景稍暗的阴影。这在编辑缓冲区很好。但是，在一些缓冲区中，例如Org议程和Gnus组缓冲区，我想使用更漂亮的颜色（代替光标）。Emacs hl-line：在本地更改颜色

具体而言，我想更改gnus-hl-line 中的hl-line的颜色，而不影响其他缓冲区中hl-line的颜色。

(add-hook 'gnus-summary-mode-hook 'gnus-hl-line) 
(add-hook 'gnus-group-mode-hook 'gnus-hl-line) 

(defun gnus-hl-line() 
    (hl-line-mode 1) 
    (set (make-local-variable 'line-move-visual) nil) 
    (setq cursor-type nil))

感谢，

用菲尔的建议，最终的解决方案。它大部分时间使用中立的hl线，但有时一个粗体的hl线是可观的，例如，在和Gnus的议程组织

;; From emacs-wiki: 
(defun shade-color (intensity) 
    "print the #rgb color of the background, dimmed according to intensity" 
    (interactive "nIntensity of the shade : ") 
    (apply 'format "#%02x%02x%02x" 
     (mapcar (lambda (x) 
        (if (> (lsh x -8) intensity) 
         (- (lsh x -8) intensity) 
        0)) 
       (color-values (cdr (assoc 'background-color (frame-parameters))))))) 

;; Default hl 
(global-hl-line-mode t) 
(make-variable-buffer-local 'global-hl-line-mode) 
(set-face-background hl-line-face (shade-color 08)) 

(defface hl-line-highlight-face 
    '((t :inherit highlight)) 
    "Face for highlighting the current line with `hl-line-fancy-highlight'." 
    :group 'hl-line) 

(defun hl-line-fancy-highlight() 
    (set (make-local-variable 'hl-line-face) 'hl-line-highlight-face) 
    ;; (set (make-local-variable 'line-move-visual) nil) 
    ;; (set (make-local-variable 'cursor-type) nil) 
    (setq global-hl-line-mode nil) 
    (hl-line-mode)) 

(add-hook 'org-agenda-mode-hook 'hl-line-fancy-highlight) 
(add-hook 'gnus-summary-mode-hook 'hl-line-fancy-highlight) 
(add-hook 'gnus-group-mode-hook 'hl-line-fancy-highlight)

来源

2012-04-20 Rasmus

请问您可以在代码中分别介绍org-agenda，gnus-summary和gnus-group的强度*和*颜色。谢谢！ – 2016-06-28 19:28:47

hl-line-face是包含脸部用于hl-line-mode一个变量，所以我们可以作出这样的变量在这些模式缓冲区局部，并为其分配一个新的自定义面孔。

您可以创建一个新的面孔像这样：

(defface gnus-hl-line 
    '((t :inherit hl-line)) 
    "Face for highlighting the current line with `gnus-hl-line'." 
    :group 'hl-line)

与定制的Mxcustomize-faceRETgnus-hl-lineRET

然后在你的gnus-hl-line功能添加这个（调用hl-line-mode前看起来最明智）。

(set (make-local-variable 'hl-line-face) 'gnus-hl-line)

来源

2012-04-20 02:15:21 phils

确实。谢谢！ – Rasmus 2012-04-20 12:12:19

Emacs hl-line：在本地更改颜色

回答

相关问题