Como faço para "agrupar" ganchos?

Há certas coisas como a exibição de espaços em branco à direita, a exibição de limites de buffer, delimitadores em cores do arco-íris e muito mais que eu gostaria de ativar na maioria dos modos, ou melhor, todos os relacionados a programação e texto (porque exibindo espaços à direita em, digamos ediff-mode, entrariam em conflito com o modo principal) em vez de usar um modo secundário globalizado com regras de exceção. Como a maioria dos modos é derivada de um prog-modeou de text-mode, adicionando a função em questão a ambos prog-mode-hooke text-mode-hookfunciona, no entanto, existem modos suficientes que não seguem esta especificação, como css-modeou LaTeX-mode.

Gostaria de definir um gancho que englobe todos esses modos por enquanto para adicionar apenas funções a um gancho. Vamos chamá-lo non-special-mode-hook(para diferenciá-lo special-mode-hook). Como eu seria capaz de criar um gancho que é executado para todos os principais modos para os quais é criado?

Apenas agrupe essas configurações em uma função e adicione essa função a todas as funções relevantes do gancho:

(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))

Nenhuma outra maneira de fazer isso seria mais concisa: aconteça o que acontecer, em algum lugar você terá uma lista de permissões ou uma lista negra de modos. Na prática, você encontrará apenas alguns modos que precisam ser adicionados à lista, então sugiro apenas manter as coisas simples.

Na minha própria configuração, eu uso exatamente esse truque para unificar a configuração de vários modos orientados a lisp.

Você pode adicionar uma função para after-change-major-mode-hook, que verifica se o novo modo é interessante (possivelmente até (not (derived-mode-p 'special-mode))) e, se for, é executado non-special-mode-hook.

Eu me encontrei frequentemente fazendo o padrão do @ sanityinc de agrupar minhas configurações e ativações de modo menor em um estado de desintegração e percorrer ganchos para chamá-lo, mas eu queria uma abordagem mais limpa, então escrevi esta macro:

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

Nota: Sou a dash.elfavor da limpeza, mas ela pode ser facilmente adaptada para uso (dolist).

Em seguida, você pode definir modos agrupados como variáveis ​​de lista e usá-lo da seguinte maneira:

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

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

Em vez de definir um novo gancho que funcione para todos esses modos não derivados , você pode fazer o seguinte.

(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)

Você ainda precisará adicioná-lo a todos os modos, mas definindo sua função para incluir todos os modos, você precisará alterar apenas uma definição ao adicionar / remover recursos adicionais.

Talvez você possa tentar o seguinte:

(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)