(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 (file)
--- 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 @@
                                    "\e$B!A\e(B")))
                     (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)