Функция, которая возвращает абсолютный путь к родительскому каталогу

10
    (parent-dir "/home/sk/parent/ab.el")

дает

    "/home/sk/parent"

тогда,

(parent-dir "/home/sk/parent")

дает

"/home/sk"

Любая функция elisp, parent-dirкоторая дает базовый путь для пути к файлу и пути к каталогу?

Madhavan
источник

Ответы:

14

file-name-directory делает то, что вы просите.

Однако, (file-name-directory "/home/sk/parent/") (с косой чертой) возвращает тот же каталог, а не его родитель.

Это делает то, что, я думаю, ты действительно хочешь:

(file-name-directory (directory-file-name "/home/sk/parent/ab.el")) ; => "/home/sk/parent/"
(file-name-directory (directory-file-name "/home/sk/parent/")) ; => "/home/sk/"
(file-name-directory (directory-file-name "/home/sk/parent")) ; => "/home/sk/"

И библиотека Dired + использует эту функцию:

(defun diredp-parent-dir (file &optional relativep)
  "Return the parent directory of FILE, or nil if none.
Optional arg RELATIVEP non-nil means return a relative name, that is,
just the parent component."
  (let ((parent  (file-name-directory (directory-file-name (expand-file-name file))))
        relparent)
    (when relativep
      (setq relparent  (file-name-nondirectory (directory-file-name parent))))
    (and (not (equal parent file))  (or relparent  parent))))
Нарисовалась
источник