Идите рекурсивно, чтобы найти Makefile и скомпилировать

Проблема в M-x compileтом, что если его Makefileнет в текущем каталоге, он завершается ошибкой.

Я хотел бы иметь функцию, которая рекурсивно идет вверх, чтобы найти Makefileи запустить makeиз этого каталога.

Я видел этот вопрос , но он зависит от пути, и мне нужно подумать о беге.

compilation directories

Если вы используете, projectileесть способы компиляции из projectile-project-root. Например, github.com/abo-abo/helm-make

— abo-abo

@ abo-abo Я не пробовал снаряд! Кажется, что projectile-compile-projectделает то, что я хочу. Но я бы хотел иметь что-то без этой зависимости, если это возможно.

— Флориан Маргейн

спасибо, у меня работает projectile-compile-project

— netawater

Ответы:

Вы ищете функцию locate-dominating-file. Вот документация по emacs для этой функции:

(locate-dominating-file FILE NAME)

Ищите иерархию каталогов из FILEдиректории, содержащей NAME. Остановитесь на первом родительском каталоге, содержащем файл NAME, и верните каталог. Вернуть, nilесли не найдено. Вместо строки NAMEтакже может быть предикатом, принимающим один аргумент (каталог) и возвращающим ненулевое значение, если этот каталог является тем, который мы ищем.

Используя это, ответ abo-abo может быть сокращен до

(defun desperately-compile ()
  "Traveling up the path, find a Makefile and `compile'."
  (interactive)
  (when (locate-dominating-file default-directory "Makefile")
  (with-temp-buffer
    (cd (locate-dominating-file default-directory "Makefile"))
    (compile "make -k"))))

— Pradhan
источник

Ницца! Эта функция делает то же самое, что и мой цикл, но хорошо документировано и обрабатывает крайний случай. Я обязательно добавлю его в свой список рецептов, спасибо.

— Або-або

Ницца! vim имеет похожую функцию findfile, я был удивлен, что в emacs ее нет.

— Флориан Маргейн

Есть ли что-то похожее на Лисп let? Ты бежишь locate-dominating-fileдважды.

— Флориан Маргейн

@FlorianMargaine Да, вы можете использовать let. Я набирал ответ напрямую, не тестируя, и решил, что это вряд ли приведет к неправильным скобкам :)

— Прадхан

Хотел бы я больше проголосовать за этот ответ. Спасибо.

— Эрик

Рекурсивная компиляция без каких-либо зависимостей:

(defun desperately-compile ()
  "Traveling up the path, find a Makefile and `compile'."
  (interactive)
  (with-temp-buffer
    (while (and (not (file-exists-p "Makefile"))
                (not (equal "/" default-directory)))
      (cd ".."))
    (when (file-exists-p "Makefile")
      (compile "make -k"))))

— Або-або
источник

Потрясающие! Это именно то, что я хотел.

— Флориан Маргейн

Хорошо, просто будьте осторожны с конечным условием цикла. Если вы работаете в Windows, вы можете получить бесконечный цикл.

— Або-або

Дополнительный вопрос: почему вы используете with-temp-buffer?

— Флориан Маргейн

Да, меня не волнуют окна, но спасибо, что упомянули об этом.

— Флориан Маргейн

Я использую with-temp-buffer, потому что default-directoryэто локальный буфер. Я не хочу менять его для текущего файла.

— Або-або