Як я успадковую прогрес-режим, підтримуючи старший emacsen?

Я пишу основний режим для мови програмування, але хочу підтримувати старіші версії Emacs. prog-modeє відносно новим. Я хочу успадкувати, prog-modeякщо це визначено, але все-таки зробити щось розумне інакше.

Який найкращий підхід? Чи варто мені defalias prog-modeна старшому Emacsen, чи це буде заважати іншим режимам, якщо вони будуть робити те саме?

Ціною додаткового прив’язки символів верхнього рівня є дуже акуратне рішення, яке дозволяє уникнути повторення define-derived-modeформи:

(defalias 'my-fancy-parent-mode
  (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))

(define-derived-mode my-fancy-mode my-fancy-parent-mode
   ...)

Працює чудово в будь-якому Emacs> = 23. Я придумав це протягом haml-modeдекількох років тому IIRC, і, здається, він поширився звідти на кілька інших основних режимів. Головне, що define-derived-modeмакрос робить із символом батьківського режиму, - це генерувати код, який викликає його функцію: у цьому сенсі defaliasнова змінна робить рівнозначною ззаданою функцією.

Одне застереження полягає в тому, що це може заплутатись derived-mode-p, тому код, який перевіряє, чи не працює ваш режим, prog-modeможе працювати неправильно. На практиці я не зіткнувся з жодними проблемами: звичніший приєднання такого коду prog-mode-hook, який все-таки запускається.

(Як Йорген зазначає у коментарях, define-derived-modeтакож використовує mode-classвластивість з символу батьківського режиму, і defaliasне копіює його. На момент написання цього ресурсу, здається, він використовується лише дляspecial-mode .)

Оновлення: в ці дні я просто пропоную вимагати принаймні Emacs 24, оскільки старіші версії давно застаріли.

tl; dr: Використовуйте ifта власну функцію init:

(if (fboundp 'prog-mode)
    (define-derived-mode your-cool-mode prog-mode "Cool"
      "Docstring"
      (your-cool--init))
  (define-derived-mode your-cool-mode nil "Cool"
    "Docstring"
    (your-cool--init)))

Потім виконайте всі ініціалізації режиму в your-cool-init.

Більш тривале пояснення:

Проблема полягає в тому, що офіційним способом написання похідного основного режиму є використання define-derived-modeмакросу:

(define-derived-mode your-cool-mode prog-mode ...)

Що стосується старшого Emacsen (до 24 років), це перерва, коли prog-mode. І ви не можете використовувати (if (fboundp 'prog-mode) ...)там, оскільки макрос очікує буквального символу, і він буде цитувати його для вас у розширенні.

define-derived-modeвикористовує батьківство безліччю способів. Вам потрібно буде скопіювати всі ці дані у власному режимі визначення, щоб скористатися ними, і це є втомливим і схильним до помилок.

Тож єдиний спосіб - використовувати два різних define-derived-modeтвердження, залежно від того, prog-modeіснує чи ні. Це ставить перед вами проблему написання коду ініціалізації двічі. Звичайно, це погано, тому ви отримуєте це у своїй функції, як описано вище.

(Найкраще рішення - це, звичайно, відмовитися від підтримки 23.x і використовувати лексичне обстеження. Але я думаю, ви вже розглядали та відмовилися від цього варіанту. :-))

Я думаю, тестування з використанням fboundpмає більше сенсу.

(if (fboundp 'prog-mode)
    ...
   ...)

Ви можете визначити макрос обгортки, define-derived-modeякий оцінює його аргументи.

(defmacro define-derived-mode* (child parent name &optional docstring &rest body)
  (macroexpand `(define-derived-mode ,(eval child) ,(eval parent) ,(eval name)
                                     ,(eval docstring) . ,body)))
(define-derived-mode* 'toy-mode
  (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode)
  "Toy"
  "Major mode for my favorite toy language"
  (toy-mode-setup))

(Попередження: перевірено лише мінімально.)