From: tomo <tomo>
Date: Sat, 16 Apr 2005 16:05:47 +0000 (+0000)
Subject: (album-convert-directory): New function.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d921439af45af559c6c2c3b73ece324c1e998371;p=elisp%2Falbum.git

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

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