From: tomo <tomo>
Date: Tue, 3 Apr 2007 15:40:56 +0000 (+0000)
Subject: (iphoto-dir-to-album-dir): Add new argument `album-url-prefix'.
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Falbum.git;a=commitdiff_plain;h=eb3da6d0353d44d5a65f9893e801e2182580dc85

(iphoto-dir-to-album-dir): Add new argument `album-url-prefix'.
---

diff --git a/iphoto-util.el b/iphoto-util.el
index 2fb04a6..11e84bc 100644
--- a/iphoto-util.el
+++ b/iphoto-util.el
@@ -107,7 +107,8 @@
 		      (nth 0 time-max))))))
 
 (defun iphoto-dir-to-album-dir (year month day album-name
-				     album-dir-root url-root image-url-root)
+				     album-dir-root url-root image-url-root
+				     album-url-prefix)
   (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)
@@ -145,7 +146,7 @@
 				    "〜")))
 		     (cons 'files
 			   (directory-files dir nil nil nil t))
-		     (cons 'exit album-name))))
+		     (cons 'exit (concat album-url-prefix album-name)))))
 	(write-region (point-min)(point-max)
 		      (expand-file-name "dir.desc" album-dir)))
       (unless (file-exists-p album-dir-original)