Дерево файлов выглядит следующим образом:
- foo
- lorem
- ipsum <-
- baz <-
- bar
- baz
В настоящее время посещаемый файл ipsum. Теперь я хочу найти первый
baz и каталог, в котором он находится. Как мне подобрать дерево из
ipsum в elisp?
Вы хотите locate-dominating-file.
(defun parent-directory (dir)
(unless (equal "/" dir)
(file-name-directory (directory-file-name dir))))
(defun find-file-in-heirarchy (current-dir fname)
"Search for a file named FNAME upwards through the directory hierarchy, starting from CURRENT-DIR"
(let ((file (concat current-dir fname))
(parent (parent-directory (expand-file-name current-dir))))
(if (file-exists-p file)
file
(when parent
(find-file-in-heirarchy parent fname)))))
Если результат не равен нулю, вы можете извлечь каталог файлов с помощью file-name-directory, например:
(let ((file (find-file-in-heirarchy (buffer-file-name) "baz")))
(when file
(file-name-directory file)))