mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 09:43:26 -08:00
Code Issues Projects Releases Wiki Activity

Fixes for changes of 2005-06-09.

Browse source 
(thumbs-thumbsdir): Force `thumbs-thumbsdir' to be interpretable as a directory.
(thumbs-thumbname): Remove directory separator from format string;
`thumbs-thumbsdir' now returns a valid directory name.
(thumbs-temp-dir): New defsubst.
(thumbs-temp-file, thumbs-resize-image, thumbs-modify-image): Use it.
This commit is contained in:
Juanma Barranquero 2005-06-10 14:59:59 +00:00
parent a8ab3e9607
commit 6cae5f240f
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/thumbs.el
View file

@ -172,17 +172,21 @@ The name is made by appending a number to PREFIX, default \"G\"."
(1+ thumbs-gensym-counter))))))
(make-symbol (format "%s%d" pfix num))))))
(defsubst thumbs-temp-dir ()
(file-name-as-directory (expand-file-name thumbs-temp-dir)))
(defun thumbs-temp-file ()
"Return a unique temporary filename for an image."
(format "%s%s-%s.jpg"
(expand-file-name thumbs-temp-dir)
(thumbs-temp-dir)
thumbs-temp-prefix
(thumbs-gensym "T")))
(defun thumbs-thumbsdir ()
"Return the current thumbnails directory (from `thumbs-thumbsdir').
Create the thumbnails directory if it does not exist."
(let ((thumbs-thumbsdir (expand-file-name thumbs-thumbsdir)))
(let ((thumbs-thumbsdir (file-name-as-directory
(expand-file-name thumbs-thumbsdir))))
(unless (file-directory-p thumbs-thumbsdir)
(make-directory thumbs-thumbsdir)
(message "Creating thumbnails directory"))
@ -267,7 +271,7 @@ Or, alternatively, a SIZE may be specified."
(condition-case nil
(apply 'delete-file
(directory-files
thumbs-temp-dir t
(thumbs-temp-dir) t
thumbs-temp-prefix))
(error nil))
(let ((buffer-read-only nil)
@ -306,7 +310,7 @@ Or, alternatively, a SIZE may be specified."
"Return a thumbnail name for the image IMG."
(convert-standard-filename
(let ((filename (expand-file-name img)))
(format "%s/%08x-%s.jpg"
(format "%s%08x-%s.jpg"
(thumbs-thumbsdir)
(sxhash filename)
(subst-char-in-string
@ -637,7 +641,7 @@ ACTION and ARG should be a valid convert command."
;; cleaning of old temp file
(mapc 'delete-file
(directory-files
thumbs-temp-dir
(thumbs-temp-dir)
t
thumbs-temp-prefix))
(let ((buffer-read-only nil)