(album-convert-directory): New function.

diff --git a/album.el b/album.el
index 3120732..0d7ac01 100644 (file)
--- a/album.el
+++ b/album.el
@@ -210,6 +210,17 @@
       (setq prev-file file
            source-images (cdr source-images)))))
 
+(defun album-convert-directory (dest-dir source-dir &rest patterns)
+  (let (files)
+    (if patterns
+       (dolist (pat patterns)
+         (setq files
+               (append files
+                       (directory-files source-dir 'full pat))))
+      (setq files (directory-files source-dir 'full)))
+    (album-convert-images dest-dir files)))
+
+
 (provide 'album)
 
 ;;; album.el ends here