¿Cómo “agrupo” los ganchos?

Hay ciertas cosas como la visualización del espacio en blanco al final, la visualización de los límites del búfer, los delimitadores de colores del arco iris y muchos más que me gustaría habilitar en la mayoría de los modos o más bien, todos los relacionados con la programación y el texto (porque mostrar espacios al final, digamos ediff-mode, entraría en conflicto con el modo mayor) en lugar de usar un modo menor globalizado con reglas de excepción. Dado que la mayoría de los modos se derivan de cualquiera prog-modeo text-mode, agregar la función en cuestión a ambos prog-mode-hooky text-mode-hookfunciona, sin embargo, hay suficientes modos que no siguen esta especificación, como css-modeo LaTeX-mode.

Me gustaría definir un gancho que abarque todos estos modos por el momento para agregar solo funciones a un gancho. Llamémoslo non-special-mode-hook(para distinguirlo de special-mode-hook). ¿Cómo podría crear un gancho que se ejecute para todos los modos principales para los que está hecho?

Solo agrupe esas configuraciones en una función y agregue esa función a todas las funciones de enlace relevantes:

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

Ninguna otra forma de hacerlo sería más conciso: pase lo que pase, en algún lugar tendrá una lista blanca o una lista negra de modos. En la práctica, solo encontrará algunos modos que deben agregarse a la lista, por lo que sugeriría que las cosas sean simples.

En mi propia configuración, uso exactamente este truco para unificar la configuración de varios modos orientados a lisp.

Podría agregar una función a after-change-major-mode-hook, que verifique si el nuevo modo es interesante (posiblemente a través de (not (derived-mode-p 'special-mode))), y si es así, se ejecuta non-special-mode-hook.

Me encontré a menudo haciendo el patrón de @ sanityinc de envolver mis configuraciones y activaciones de modo menores en un defun y recorrer los ganchos para llamarlo, pero quería un enfoque más limpio, así que escribí esta macro:

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

Nota: Estoy a dash.elfavor de la limpieza, pero podría adaptarse fácilmente para usar (dolist).

Luego puede definir modos agrupados como variables de lista y usarlo así:

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

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

En lugar de definir un nuevo enlace que funcione para todos estos modos no derivados , puede hacer lo siguiente.

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

Aún necesitará agregarlo a todos los modos, pero al definir su función para incluir todos los modos, solo tendrá que cambiar una definición al agregar / eliminar funciones adicionales.

Quizás puedas probar esto:

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