후크를 어떻게 "그룹화"합니까?

후행 공백 표시, 버퍼 경계 표시, 무지개 색 구분 기호 등 대부분의 모드에서 또는 대부분의 프로그래밍 및 텍스트 관련 문자 (후행 공백을 표시하기 때문에)를 활성화하고 싶습니다. 예를 들어 ediff-mode예외 규칙과 함께 세계화 된 부 모드를 사용하는 대신 주 모드와 충돌합니다. 대부분의 모드가 하나에서 파생되기 때문에 prog-mode또는 text-mode모두에 해당하는 기능을 추가 prog-mode-hook하고 text-mode-hook작업을 수행하지만 같은이 규격 다음 충분한 모드가있다 css-mode거나 LaTeX-mode.

한 번에 하나의 후크에만 기능을 추가하는 동안이 모든 모드를 포함하는 후크를 정의하고 싶습니다. non-special-mode-hook(와 구별하기 위해) 호출 해 봅시다 special-mode-hook. 모든 주요 모드에서 실행되는 후크를 어떻게 만들 수 있습니까?

해당 설정을 기능으로 그룹화하고 해당 기능을 모든 관련 후크 기능에 추가하십시오.

(defun my-non-special-mode-setup ()
  (setq show-trailing-whitespace t)
  ...)
(dolist (hook '(prog-mode-hook text-mode-hook css-mode-hook ...))
  (add-hook hook 'my-non-special-mode-setup))

이 작업을 수행하는 다른 방법은 더 간결하지 않습니다. 어떤 일이 발생하더라도 어딘가에 화이트리스트 또는 블랙리스트 모드가 있습니다. 실제로는 목록에 추가해야하는 몇 가지 모드 만 있으므로 간단하게 유지하는 것이 좋습니다.

내 자신의 구성 에서이 트릭 을 사용하여 여러 lisp 지향 모드의 구성을 통합합니다.

에 after-change-major-mode-hook새로운 모드가 흥미로운 것인지 (가능한 (not (derived-mode-p 'special-mode))경우) 확인하고, 그렇다면 실행 되는 기능을 추가 할 수 있습니다 non-special-mode-hook.

필자는 종종 @sanityinc의 설정 및 마이너 모드 활성화를 defun으로 래핑하고 호출을 통해 루핑하는 패턴을 수행한다는 것을 알았지 만 더 깨끗한 접근 방식을 원했기 때문에이 매크로를 작성했습니다.

(defmacro hook-modes (modes &rest body)
  (declare (indent 1))
  `(--each ,modes
     (add-hook (intern (format "%s-hook" it))
               (lambda () ,@body))))

참고 : 나는 dash.el청결을 위해 있지만 쉽게 사용하도록 조정할 수 있습니다 (dolist).

그런 다음 그룹화 된 모드를 목록 변수로 정의하고 다음과 같이 사용할 수 있습니다.

(defvar progish-modes
  '(prog-mode css-mode sgml-mode))

(hook-modes progish-modes
  (highlight-symbol-mode)
  (highlight-symbol-nav-mode))

파생되지 않은 모든 모드 에서 작동하는 새 후크를 정의하는 대신 다음을 수행 할 수 있습니다.

(defun run-my-hooks ()
  "Run all the following functions in the hook"
  (smartparens-mode 1)
  (whitespace-mode 1)
  (my-needed-mode 1)
  ...)

(add-hook 'specific-mode-hook 'run-my-hooks)
(add-hook 'another-mode-hook 'run-my-hooks)

여전히 모든 모드에 추가해야하지만 모든 모드를 포함하도록 함수를 정의하면 추가 기능을 추가 / 제거 할 때 하나의 정의 만 변경하면됩니다.

아마도 당신은 이것을 시도 할 수 있습니다 :

(setq lisp-dialects-mode-hook '(lisp-mode-hook
                            lisp-interaction-mode-hook
                            emacs-lisp-mode-hook
                            ;; common-lisp-mode-hook
                            scheme-mode-hook
                            clojure-mode-hook
                            cider-repl-mode-hook
                            ))

(add-hook 'lisp-dialects-mode-hook 'func)