Function: thumbs-cleanup-thumbsdir

thumbs-cleanup-thumbsdir is a byte-compiled function defined in thumbs.el.gz.

Signature

(thumbs-cleanup-thumbsdir)

Documentation

Clean the thumbnails directory.

If the total size of all files in thumbs-thumbsdir(var)/thumbs-thumbsdir(fun) is bigger than thumbs-thumbsdir-max-size, files are deleted until the max size is reached.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/thumbs.el.gz
(defun thumbs-cleanup-thumbsdir ()
  "Clean the thumbnails directory.
If the total size of all files in `thumbs-thumbsdir' is bigger than
`thumbs-thumbsdir-max-size', files are deleted until the max size is
reached."
  (when (file-directory-p thumbs-thumbsdir)
    (let* ((files-list
	    (sort
	     (mapcar
	      (lambda (f)
                (let ((fattribs-list (file-attributes f)))
		  `(,(file-attribute-access-time fattribs-list)
		    ,(file-attribute-size fattribs-list)
		    ,f)))
	      (directory-files (thumbs-thumbsdir) t (image-file-name-regexp)))
	     (lambda (l1 l2) (time-less-p (car l1) (car l2)))))
           (dirsize (apply #'+ (mapcar #'cadr files-list))))
      (while (> dirsize thumbs-thumbsdir-max-size)
        (progn
	  (message "Deleting file %s" (cadr (cdar files-list))))
        (delete-file (cadr (cdar files-list)))
        (setq dirsize (- dirsize (car (cdar files-list))))
        (setq files-list (cdr files-list))))))