Comment «grouper» les crochets?

Il y a certaines choses comme l'affichage des espaces de fin, l'affichage des limites de tampon, les délimiteurs de couleur arc-en-ciel et bien d'autres que j'aimerais activer dans la plupart des modes ou plutôt, tous ceux liés à la programmation et au texte (car l'affichage des espaces de fin dans, disons ediff-mode, serait en conflit avec le mode majeur) au lieu d'utiliser un mode mineur globalisé avec des règles d'exception. Étant donné que la plupart des modes sont dérivés de prog-modeou text-mode, l'ajout de la fonction en question aux deux prog-mode-hooket text-mode-hookfonctionne, cependant, il existe suffisamment de modes ne suivant pas cette spécification, tels que css-modeou LaTeX-mode.

Je voudrais définir un hook qui englobe tous ces modes pour le moment pour n'ajouter des fonctions qu'à un seul hook. Appelons cela non-special-mode-hook(pour le distinguer special-mode-hook). Comment pourrais-je créer un tel crochet exécuté pour tous les principaux modes pour lesquels il est conçu?

Il vous suffit de regrouper ces paramètres dans une fonction et d'ajouter cette fonction à toutes les fonctions de raccordement pertinentes:

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

Aucune autre façon de le faire ne serait plus concise: quoi qu'il arrive, quelque part vous aurez une liste blanche ou une liste noire de modes. Dans la pratique, vous ne trouverez que quelques modes qui doivent être ajoutés à la liste, je suggère donc de garder les choses simples.

Dans ma propre configuration, j'utilise exactement cette astuce pour unifier la configuration de plusieurs modes orientés lisp.

Vous pouvez ajouter une fonction à after-change-major-mode-hook, qui vérifie si le nouveau mode est intéressant (éventuellement via (not (derived-mode-p 'special-mode))), et si c'est le cas, s'exécute non-special-mode-hook.

Je me suis retrouvé à faire souvent le schéma de @ sanityinc pour encapsuler mes paramètres et activations de mode mineur dans un defun et boucler à travers des crochets pour l'appeler, mais je voulais une approche plus propre, j'ai donc écrit cette macro:

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

Remarque: je suis dash.elpour la propreté mais il pourrait facilement être adapté à l'utilisation (dolist).

Ensuite, vous pouvez définir des modes groupés en tant que variables de liste et les utiliser comme suit:

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

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

Plutôt que de définir un nouveau hook qui fonctionne pour tous ces modes non dérivés , vous pouvez procéder comme suit.

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

Vous devrez toujours l'ajouter à tous les modes, mais en définissant votre fonction pour inclure tous les modes, vous n'aurez qu'à modifier une définition lors de l'ajout / suppression de fonctionnalités supplémentaires.

Vous pouvez peut-être essayer ceci:

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