From 9a36b5a6f00db36bbe37ef048191477347478d8d Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 18 Apr 2005 14:36:37 +0000
Subject: [PATCH] (album-convert-image): Expand relative path in argument
 `file'; don't convert fullsize file if `file' is JPEG.
 (album-convert-directory): Specify default pattern of image
 files.

---
 album.el |   27 +++++++++++++++++++--------
 1 file changed, 19 insertions(+), 8 deletions(-)

diff --git a/album.el b/album.el
index 0d7ac01..3b5bb79 100644
--- a/album.el
+++ b/album.el
@@ -114,6 +114,7 @@
 				     dest-dir)))))
 
 (defun album-convert-image (dest-dir prev-file file next-file)
+  (setq file (expand-file-name file))
   (let* ((ret
 	  (with-temp-buffer
 	    (call-process "identify" nil t t file)
@@ -189,13 +190,19 @@
 	     (expand-file-name "fullsize" dest-dir))
       (make-directory
        (expand-file-name "fullsize" dest-dir)))
-    (call-process "convert" nil nil nil
-		  file
-		  (expand-file-name
-		   (concat
-		    (file-name-sans-extension
-		     (file-name-nondirectory file)) ".jpg")
-		   (expand-file-name "fullsize" dest-dir)))
+    (if (string= (downcase (file-name-extension file))
+		 "jpg")
+	(call-process "ln" nil nil nil
+		      "-f"
+		      file
+		      (expand-file-name "fullsize" dest-dir))
+      (call-process "convert" nil nil nil
+		    file
+		    (expand-file-name
+		     (concat
+		      (file-name-sans-extension
+		       (file-name-nondirectory file)) ".jpg")
+		     (expand-file-name "fullsize" dest-dir))))
     dest))
 
 (defun album-convert-images (dest-dir &rest source-images)
@@ -217,7 +224,11 @@
 	  (setq files
 		(append files
 			(directory-files source-dir 'full pat))))
-      (setq files (directory-files source-dir 'full)))
+      (setq files
+	    (let (case-fold-search)
+	      (directory-files
+	       source-dir 'full
+	       ".+\\.\\(tiff\\|jpg\\|JPG\\|jpeg\\|gif\\|png\\)$"))))
     (album-convert-images dest-dir files)))
 
 
-- 
1.7.10.4