Emacs lisp: Làm thế nào tôi có thể lấy tập tin mới nhất trong một thư mục?

Question

Với đường dẫn của một thư mục, làm thế nào tôi có thể trả lại đường dẫn của tệp mới nhất trong thư mục đó?

Answer 1

Sử dụng 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

Sử dụng API built-in có thể đạt được cũng như:

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

Nếu bạn cũng cần tập tin theo thư mục, sử dụng directory-files-recursively hơn directory-files. Nếu bạn muốn loại trừ các thư mục, trước tiên hãy lọc danh sách tệp/thư mục bằng cách sử dụng file-directory-p.