이맥스 : 2 줄 이상의 빈 줄을 강조 표시합니다.

Question

내 .emacs 파일에 다음 코드를 입력하여 원하지 않는 공백을 강조 표시했습니다.

(require 'whitespace) 
(setq whitespace-style '(face empty tabs lines-tail trailing)) 
(global-whitespace-mode t) 

이 쇼 (1) 버퍼 (2)의 탭 (3) 80 문자 제한을 초과 (4) 후단 공백 라인

I의 시작 & 끝에 빈 행 이맥스가 자동으로 '2 개 이상의 빈 줄'을 강조 표시하려고합니다. 이것을 구현하는 방법에 대한 아이디어가 있습니까? 내가 blog post regexp의 도움으로 이렇게하는 방법을 설명했지만,이 .emacs 파일에서 이것을 구현하는 방법을 잘 모르겠습니다.

편집 1 : 여분의 빈 줄을 삭제하는 방법을 찾았지만 여전히 여러 빈 줄을 자동으로 강조 표시하는 데 도움이되지 않습니다. delete extra blank lines in emacs

편집 2 : .emacs에 다음을 추가하면 작동하지만, 버퍼에 파일을 저장하고 다시 여는 경우에만 가능합니다.

(add-hook 'change-major-mode-hook '(lambda() (highlight-regexp "\\(^\\s-*$\\)\n" 'hi-yellow))) 

편집 3 : 바로 편집 2의 라인 전에 파일을 이맥스에 (global-hi-lock-mode 1)를 추가 한 후, 버퍼 내에서 1 개 이상의 빈 라인을 강조하는 것 같다. regexp를 수정하는 방법을 모르므로 2 개 이상의 빈 줄만 받아 들일 것입니다.

Answer 1

귀하의 highlight-regexp 해결책은 다음 elisp (예 : .emacs 파일)을 사용하여 보조 모드로 만들 수 있습니다.

모드 - 라인에서 모드 이름 중 하나를 마우스 오른쪽 버튼으로 클릭 한 다음 nl2-mode을 선택하여 마이너 모드를 활성화 할 수 있습니다. 모드 행에서 nl2을 클릭하고 Turn off minor mode을 선택하여 부 모드를 비활성화 할 수 있습니다.

코드가 define-minor-mode 및 define-key 도움말을 참조 이해 (예를 들어, C-H F define-minor-mode RET). emacs에서도 메뉴의 마우스 클릭은 키 스트로크로 간주됩니다.

(define-minor-mode nl2-mode 
    "Highlight two successive newlines." 
    :global t 
    :lighter " nl2" 
    (if nl2-mode 
     (highlight-regexp "\\(^\\s-*$\\)\n" 'hi-yellow) 
    (unhighlight-regexp "\\(^\\s-*$\\)\n"))) 

(define-key mode-line-mode-menu [nl2-mode] 
    `(menu-item ,(purecopy "nl2-mode") nl2-mode 
    :help "Highlight two succesive newlines." 
    :button (:toggle . (bound-and-true-p nl2-mode)))) 

만들 몇 가지 사실이 있습니다 더 복잡 강조하는 두 개의 연속 빈 라인 (font-lock 만, 줄 바꿈 버퍼 변경이 필요할 후이 지역이 다시 fontification-fontify을 다시하기 위해 한계는 비 빈 영역을 강조하는 경향이있다). 다음 코드는 한 가지 방법을 보여줍니다. 어쩌면, 더 쉬운 방법이 있습니다.

(require 'font-lock) 
(global-font-lock-mode) 

(defface jit-lock-nl2-face '((default :background "yellow")) 
    "Face to indicate two or more successive newlines." 
    :group 'jit-lock) 

(defun jit-nl2-extend (start end &optional old) 
    "Extend region to be re-fontified" 
    (save-excursion 
    (save-match-data 
     ;; trailing: 
     (goto-char end) 
     (skip-chars-forward "[[:blank:]]\n") 
     (setq jit-lock-end (point)) 
     ;; leading: 
     (goto-char start) 
     (beginning-of-line) 
     (skip-chars-backward "[[:blank:]]\n") 
     (unless (bolp) (forward-line)) 
     (setq jit-lock-start (point))))) 

(defun jit-nl2 (jit-lock-start jit-lock-end) 
    "Highlight two or more successive newlines." 
    (save-excursion 
    (save-match-data 
     (jit-nl2-extend jit-lock-start jit-lock-end) 
     ;; cleanup 
     (remove-text-properties jit-lock-start jit-lock-end '(font-lock-face jit-lock-nl2-face)) 
     ;; highlight 
     (while (< (point) jit-lock-end) 
    (if (looking-at "[[:blank:]]*\n\\([[:blank:]]*\n\\)+") 
     (progn (put-text-property (match-beginning 0) (match-end 0) 'font-lock-face 'jit-lock-nl2-face) 
      (goto-char (match-end 0))) 
     (forward-line)))))) 


(add-hook 'after-change-major-mode-hook (lambda() 
         (add-hook 'jit-lock-after-change-extend-region-functions 'jit-nl2-extend) 
         (jit-lock-register 'jit-nl2) 
         (jit-lock-mode 1) 
        )) 

Answer 2

그냥 라이브러리 Highlight (highlight.el)를 사용합니다. 그것이 바로 그 때문입니다.

hlt-highlight-regexp-region (C-x X h x) 또는 hlt-highlight-regexp-to-end (C-x X h e) 명령을 사용하십시오. (하는 정규 표현식을 unhighlight C-x X u x 또는 C-x X u e을 사용합니다.)

대화식으로, 당신이 입력 정규 표현식은 (개행 문자, 더블 백 슬래시에 대한 필요에 맞게 C-q C-j와) 이맥스에서 평소 사용하는, 당신이 \(^\s-*$\) C-q C-j를 입력 할 수 있도록.