Wie "gruppiere" ich Hooks?

Es gibt bestimmte Dinge wie die Anzeige von abschließenden Leerzeichen, die Anzeige von Puffergrenzen, regenbogenfarbene Begrenzer und vieles mehr, die ich in den meisten Modi oder vielmehr in allen programmier- und textbezogenen Modi aktivieren möchte (weil abschließende Leerzeichen in, B. ediff-modemit dem Hauptmodus kollidieren, anstatt einen globalisierten Nebenmodus mit Ausnahmeregeln zu verwenden. Da die meisten Modi von einem prog-modeoder abgeleitet text-modesind und die betreffende Funktion zu beiden hinzugefügt wird prog-mode-hookund text-mode-hookfunktioniert, gibt es jedoch genügend Modi, die dieser Spezifikation nicht folgen, wie z. B. css-modeoder LaTeX-mode.

Ich möchte einen Hook definieren, der vorerst alle diese Modi umfasst, um nur einem Hook Funktionen hinzuzufügen. Nennen wir es non-special-mode-hook(um es zu unterscheiden special-mode-hook). Wie kann ich einen solchen Hook erstellen, der für alle Hauptmodi ausgeführt wird, für die er gemacht ist?

Gruppieren Sie diese Einstellungen einfach zu einer Funktion und fügen Sie diese Funktion allen relevanten Hook-Funktionen hinzu:

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

Kein anderer Weg, dies zu tun, wäre prägnanter: Was auch immer passiert, irgendwo werden Sie entweder eine Whitelist oder eine Blacklist von Modi haben. In der Praxis gibt es nur wenige Modi, die zur Liste hinzugefügt werden müssen. Ich empfehle daher, die Dinge einfach zu halten.

In meiner eigenen Konfiguration verwende ich genau diesen Trick , um die Konfiguration mehrerer lisp-orientierter Modi zu vereinheitlichen.

Sie können eine Funktion hinzufügen after-change-major-mode-hook, die prüft, ob der neue Modus interessant ist (möglicherweise durchgehend (not (derived-mode-p 'special-mode))) und wenn ja, ausgeführt wird non-special-mode-hook.

Ich habe oft das @ sanityinc-Muster ausgeführt, bei dem ich meine Einstellungen und Nebenmodusaktivierungen in eine Defun-Funktion eingebunden und Hooks durchgeschleift habe, um sie aufzurufen, aber ich wollte einen saubereren Ansatz, also habe ich dieses Makro geschrieben:

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

Hinweis: Ich bin dash.elfür die Sauberkeit, aber es könnte leicht angepasst werden, um zu verwenden (dolist).

Dann können Sie gruppierte Modi als Listenvariablen definieren und wie folgt verwenden:

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

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

Anstatt einen neuen Hook zu definieren, der für alle diese nicht abgeleiteten Modi funktioniert , können Sie Folgendes tun.

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

Sie müssen es weiterhin allen Modi hinzufügen, aber indem Sie Ihre Funktion so definieren, dass sie alle Modi umfasst, müssen Sie nur eine Definition ändern, wenn Sie zusätzliche Funktionen hinzufügen oder entfernen.

Vielleicht können Sie dies versuchen:

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