(album-convert-images): New function.

diff --git a/album.el b/album.el
index 2d44004..3120732 100644 (file)
--- 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