X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=album.el;h=0d7ac012f6e9c174a5ebfb6dc3304d22a5efa155;hb=d921439af45af559c6c2c3b73ece324c1e998371;hp=312073288e78935753dfc4e078804d0327691b0e;hpb=0bf10364575fa4b6441c852855fee4058ef8f0c4;p=elisp%2Falbum.git

diff --git a/album.el b/album.el
index 3120732..0d7ac01 100644
--- 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