;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;
;; Thanks: Alex Schroeder <alex@gnu.org> for maintaining the package at some time
;; The peoples at #emacs@freenode.net for numerous help
(defcustom thumbs-per-line 5
"*Number of thumbnails per line to show in directory."
- :type 'string
+ :type 'integer
:group 'thumbs)
(defcustom thumbs-thumbsdir-max-size 50000000
"Max size for thumbnails directory.
When it reaches that size (in bytes), a warning is sent."
- :type 'string
+ :type 'integer
:group 'thumbs)
(defcustom thumbs-conversion-program
(defcustom thumbs-relief 5
"*Size of button-like border around thumbnails."
- :type 'string
+ :type 'integer
:group 'thumbs)
(defcustom thumbs-margin 2
"*Size of the margin around thumbnails.
This is where you see the cursor."
- :type 'string
+ :type 'integer
:group 'thumbs)
(defcustom thumbs-thumbsdir-auto-clean t
(defcustom thumbs-image-resizing-step 10
"Step by which to resize image."
- :type 'string
+ :type 'integer
:group 'thumbs)
(defcustom thumbs-temp-dir temporary-file-directory
(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"))
(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)
"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
;; 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)