Emacs Lisp: Wie bekomme ich die neueste Datei in einem Verzeichnis?

Question

Wie kann ich den Pfad der neuesten Datei in diesem Verzeichnis zurückgeben?

Answer 1

Mit 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

Mit Einbau-APIs erzielen können auch:

(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" 

Wenn Sie Dateien auch unter Unterverzeichnis muss, verwenden directory-files-recursively statt directory-files. Wenn Sie Verzeichnisse ausschließen möchten, filtern Sie die Datei/Verzeichnisliste zuerst mit file-directory-p.