From: tomo <tomo>
Date: Fri, 15 Apr 2005 19:07:10 +0000 (+0000)
Subject: (album-convert-images): New function.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1779eb6b86d387429f83492a01421267b195c7e0;p=elisp%2Falbum.git

(album-convert-images): New function.
---

diff --git a/album.el b/album.el
index 2d44004..3120732 100644
--- a/album.el
+++ b/album.el
@@ -23,7 +23,7 @@
 
 ;;; Commentary:
 
-;; This facility is documented in the Emacs Manual.
+;; It requires `convert' and `identify' of ImageMagick.
 
 ;;; Code:
 
@@ -198,4 +198,18 @@
 		   (expand-file-name "fullsize" dest-dir)))
     dest))
 
+(defun album-convert-images (dest-dir &rest source-images)
+  (if (and (consp (car source-images))
+	   (null (cdr source-images)))
+      (setq source-images (car source-images)))
+  (let (file prev-file)
+    (while source-images
+      (setq file (car source-images))
+      (album-convert-image dest-dir
+			   prev-file file (nth 1 source-images))
+      (setq prev-file file
+	    source-images (cdr source-images)))))
+
+(provide 'album)
+
 ;;; album.el ends here