Emacs lisp:如何在目录中获取最新文件?

时间:2015-06-17 08:32:59

标签: file emacs directory elisp

给定目录的路径,如何返回该目录中最新文件的路径?

3 个答案:

答案 0 :(得分:7)

使用内置API也可以实现:

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

如果您还需要子目录下的文件,请使用directory-files-recursively而不是directory-files。如果要排除目录,请先使用file-directory-p过滤文件/目录列表。

答案 1 :(得分:2)

使用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)))

答案 2 :(得分:0)

如果你想在没有依赖的情况下做到这一点

  • directory-files-and-attributes 为我们提供了具有属性的文件和目录列表
    • 第 4 个参数 NOSORT 是一个布尔值,不采用最佳答案所暗示的函数
    <块引用>

    (目录文件和属性目录和可选的 FULL MATCH NOSORT ID格式)
    如果 NOSORT 非零,则列表未排序——它的顺序是不可预测的。 如果您打算自己对结果进行排序,则 NOSORT 很有用。

    • 属性的格式为 file-attributes - 它为我们提供了修改时间以及项目是文件还是目录
    <块引用>
    1. t 表示目录,字符串(链接到的名称)表示符号链接,或 nil。\
    2. 上次修改时间,同样如此。这是最后一次
(car
 (seq-find
  '(lambda (x) (not (nth 1 x))) ; non-directory
  (sort
   (directory-files-and-attributes path 'full nil t)
   '(lambda (x y) (time-less-p (nth 5 y) (nth 5 x)))))) ; last modified first: y < x