1 ;; print buffers unsaved, unless within "seconds" below
3 ;; for example running, see system-stat
8 (let ((bpath (buffer-file-name buf)))
10 (buffer-modified-p buf))
17 ;; (format "%s" (-reduce-from (lambda (acc buf) (let ((bpath (buffer-file-name buf))) (if (and bpath (buffer-modified-p buf)) (cons bpath acc ) acc))) nil (buffer-list)))
21 ;; Previously, I used a condition to check only for files not saved
22 ;; which had mod times > 60 seconds. However, using it my system status
23 ;; script meant stating a lot of files over and over, which eventually
24 ;; caused some lag, so I abandoned it.