From 1779eb6b86d387429f83492a01421267b195c7e0 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Apr 2005 19:07:10 +0000 Subject: [PATCH] (album-convert-images): New function. --- album.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/album.el b/album.el index 2d44004..3120732 100644 --- 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 -- 1.7.10.4