From: tomo <tomo>
Date: Mon, 25 Sep 2006 12:35:55 +0000 (+0000)
Subject: (iphoto-dir-to-album-dir): Change signature to add `image-url-root'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f64d9ddee8c8a1aad2eb75b8ec0d7b7d0bf14102;p=elisp%2Falbum.git

(iphoto-dir-to-album-dir): Change signature to add `image-url-root'.
---

diff --git a/iphoto-util.el b/iphoto-util.el
index 1321b7d..2fb04a6 100644
--- a/iphoto-util.el
+++ b/iphoto-util.el
@@ -107,7 +107,7 @@
 		      (nth 0 time-max))))))
 
 (defun iphoto-dir-to-album-dir (year month day album-name
-				     url-root album-dir-root)
+				     album-dir-root url-root image-url-root)
   (let ((coding-system-for-write 'utf-8-jp-er)
 	(album-dir-base (expand-file-name album-name album-dir-root))
 	album-dir album-dir-original ret a-dir-n a-dirs)
@@ -191,7 +191,7 @@
       >%s</a>
 "
 			url-root album-name sub-url
-			url-root album-name sub-url
+			image-url-root album-name sub-url
 			(progn
 			  (setq ret
 				(directory-files
@@ -218,4 +218,3 @@
 		    (expand-file-name
 		     "index.html.ja.utf-8" album-dir-base))
       )))
-		  
\ No newline at end of file