.Dir-locals.el dosyalarını papatya dizimi yapmanın bir yolu var mı?


15

Bu dosyaları içeren bir dizinim olduğunu varsayalım.

/foo/bar/baz/.dir-locals.el
/foo/bar/.dir-locals.el
/foo/.dir-locals.el

Ben de bir dosya oluşturmak için gittiğinizde /foo/bar/baz/, ben onları birlikte böyle zincirleme istiyorum /foo/.dir-locals.elilk uygulanır ve daha sonra /foo/bar/.dir-locals.eldaha sonra, ve/foo/bar/baz/.dir-locals.el



Bunu yapacak bir seçenek yoktur (oldukça yakından koda baktım), ancak bazı ekstra kodlarla (neredeyse kesinlikle) mümkün olmalıdır . Bunun için de bir kullanımım var, bu yüzden buna bakabilirim ...
Constantine

Elisp ile her şey mümkündür. :)
Eric Johnson

Yanıtlar:


7

Buradaki cevaba dayanarak, bunu hack-dir-local-variablesbir dizine bakmanızı ve .dir-locals.eldosyanın okunabilir olup olmadığını kontrol etmenizi tavsiye ederek yapıyoruz . Okunabilir olmayan bir dizin bulana kadar devam eder .dir-locals.el.

walk-dir-locals-upwardDosyaların değerine bağlı olarak geçerli dizinden yukarıya veya son .dir-locals.elbulunandan aşağıya doğru okunabilir . Alt dizinlerin ebeveynlerinin ayarlarını gizleyebilmesi için aşağı doğru varsayılan değerdir.

(defvar walk-dir-locals-upward nil
  "If non-nil, evaluate .dir-locals.el files starting in the
  current directory and going up. Otherwise they will be
  evaluated from the top down to the current directory.")

(defadvice hack-dir-local-variables (around walk-dir-locals-file activate)
  (let* ((dir-locals-list (list dir-locals-file))
         (walk-dir-locals-file (first dir-locals-list)))
    (while (file-readable-p (concat "../" walk-dir-locals-file))
      (progn
        (setq walk-dir-locals-file (concat "../" walk-dir-locals-file))
        (add-to-list 'dir-locals-list walk-dir-locals-file
                     walk-dir-locals-upward)
        ))
    (dolist (file dir-locals-list)
      (let ((dir-locals-file (expand-file-name file)))
        (message dir-locals-file)
        ad-do-it
        )))
  )

Bu, ağaçtaki her dizinin (geçerli yoldan bir seviyeye kadar) bir olmasını bekler .dir-locals.el. Bir dizinler ağacım varsa a/b/cve var ise işe yarar mı, a/.dir-locals.elve a/b/c/.dir-locals.elhayır a/b/.dir-locals.el(ziyaret a/b/c/foo.elettiğimi ve ayarların a/.dir-locals.eluygulanmasını istiyorum ).
Konstantin

1
Evet, bunu varsayıyorum. Kayıp yerel a/b/direkler zinciri kırar. Bir yerde durmalı ve devam etmesini istiyorsanız boş bir dir-local dosyaları ekleyebilirsiniz.
erikstokes

3
BTW, Emacs'ın yerel halkın kutudan çıkarılmasını desteklemesi için bir yama memnuniyetle karşılarım.
Stefan

6

İşte bunu yapmanın farklı bir yolu.

Geçerli dizin hiyerarşisindeki tüm dizinlerin listesini üreten bir işlev tanımlarım.

(defun file-name-directory-nesting-helper (name previous-name accumulator)
  (if (string= name previous-name)
      accumulator                       ; stop when names stop changing (at the top)
      (file-name-directory-nesting-helper
       (directory-file-name (file-name-directory name))
       name
       (cons name accumulator))))

(defun file-name-directory-nesting (name)
  (file-name-directory-nesting-helper (expand-file-name name) "" ()))

Bir örnek şu şekildedir:

(file-name-directory-nesting "/foo/bar/baz/quux/foo.el")
;; => ("/" "/foo" "/foo/bar" "/foo/bar/baz" "/foo/bar/baz/quux" "/foo/bar/baz/quux/foo.el")

Şimdi hack-dir-local-variables, ağacın en üstündeki bir dosyayı ziyaret ettiğimizi "taklit etmek" için öneriler ekleyebilirim , yerel dizin ayarlarını uygulayabilir, sonra bir seviye aşağı inebilir, ayarları tekrar uygulayabilir vb.

(defun hack-dir-local-variables-chained-advice (orig)
  "Apply dir-local settings from the whole directory hierarchy,
from the top down."
  (let ((original-buffer-file-name (buffer-file-name))
        (nesting (file-name-directory-nesting (or (buffer-file-name)
                                                  default-directory))))
    (unwind-protect
        (dolist (name nesting)
          ;; make it look like we're in a directory higher up in the
          ;; hierarchy; note that the file we're "visiting" does not
          ;; have to exist
          (setq buffer-file-name (expand-file-name "ignored" name))
          (funcall orig))
      ;; cleanup
      (setq buffer-file-name original-buffer-file-name))))

(advice-add 'hack-dir-local-variables :around
            #'hack-dir-local-variables-chained-advice)
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.