emacs：显示日期之前＆＃39; n天前＆＃39;

Question

目前，我的RSS Feed使用此功能显示日期

(format-time-string "%Y-%m-%d %H:%M" (seconds-to-time date))

我希望显示日期＆＃34; N天前＆＃34;

这可以用emacs lisp吗？

Answer 1

试试这个：

(format "%d days ago"
        (floor
         (/ (float-time (time-subtract (current-time) (seconds-to-time date)))
            (* 60 60 24))))