X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=iphoto-util.el;h=11e84bc047e4a47205bd59a8d4e52ed033c0729d;hb=5b34960bc49468bf383834b288bd5d8d235fed4c;hp=1321b7d38f3cc2d46f004d55fe324fe298608823;hpb=03f6a756ab652d208bb071bb20bf42790019ab15;p=elisp%2Falbum.git

diff --git a/iphoto-util.el b/iphoto-util.el
index 1321b7d..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
-				     url-root album-dir-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)
@@ -191,7 +192,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 +219,3 @@
 		    (expand-file-name
 		     "index.html.ja.utf-8" album-dir-base))
       )))
-		  
\ No newline at end of file