Emacs lisp: come posso ottenere il file più nuovo in una directory?

Question

Dato il percorso di una directory, come posso restituire il percorso del file più recente in quella directory?

Answer 1

Utilizzando f:

(defun aj-fetch-latest (path) 
    (let ((e (f-entries path))) 
    (car (sort e (lambda (a b) 
        (not (time-less-p (aj-mtime a) 
            (aj-mtime b)))))))) 
(defun aj-mtime (f) (let ((attrs (file-attributes f))) (nth 5 attrs))) 

Answer 2

Utilizzando le API built-in può raggiungere così:

(defun latest-file (path) 
    "Get latest file (including directory) in PATH." 
    (car (directory-files path 'full nil #'file-newer-than-file-p))) 

(latest-file "~/.emacs.d") ;; => "/Users/xcy/.emacs.d/var" 

Se si ha bisogno anche i file in sotto-directory, utilizzare directory-files-recursively piuttosto che directory-files. Se si desidera escludere le directory, filtrare innanzitutto l'elenco di file/directory utilizzando file-directory-p.