Créer un dossier parent automatiquement

Publié le 30 mai 2022 par Matthias David.

Il est fastidieux de devoir appeler M-x: make-directory chaque fois que l’on souhaite créer un dossier dans Emacs.

Voici une solution que l’on trouve sur l’article de Iqbal Ansari

(defun md/create-non-existent-directory ()
  "Ask to make directory for file if it does not exist."
  (let ((parent-directory (file-name-directory buffer-file-name)))
    (when (and (not (file-exists-p parent-directory))
               (yes-or-no-p (format "Directory `%s' does not exist! Create it?" parent-directory)))
      (make-directory parent-directory t))))

(add-to-list 'find-file-not-found-functions 'md/create-non-existent-directory)

Maintenant, chaque fois que je visite un fichier, un répertoire inexistant, emacs propose de créer les répertoires parents.