From d921439af45af559c6c2c3b73ece324c1e998371 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 16 Apr 2005 16:05:47 +0000 Subject: [PATCH] (album-convert-directory): New function. --- album.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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 -- 1.7.10.4