From 21eec0779a2e0706602452f321561b839d8e3840 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 19 May 2006 10:35:14 +0000
Subject: [PATCH] (www-image-default-base-directory): New variable.
 (www-image-display-thumbnails): Get title from dir.desc;
 insert note feature of dir.desc; use
 www-image-default-base-directory.

---
 www-image.el |   25 +++++++++++++++++++------
 1 file changed, 19 insertions(+), 6 deletions(-)

diff --git a/www-image.el b/www-image.el
index 63695f1..bc727c8 100644
--- a/www-image.el
+++ b/www-image.el
@@ -32,6 +32,9 @@
       'utf-8-jp-er
     'utf-8))
 
+(defvar www-image-default-base-directory
+  "../pub/pictures/")
+
 (defvar www-image-size-specs
   '((thumbnail	 160  160)
     (QVGA	 320  240)
@@ -66,10 +69,6 @@
 (defun www-image-display-thumbnails (url-dir &optional size image-root
 					     lang title parent-url)
   (setq url-dir (file-name-as-directory url-dir))
-  (unless title
-    (setq title
-	  (file-name-nondirectory
-	   (substring url-dir 0 (1- (length url-dir))))))
   (let* ((desc-file
 	  (expand-file-name "dir.desc"
 			    (expand-file-name url-dir image-root)))
@@ -79,9 +78,18 @@
 	      (insert-file-contents desc-file)
 	      (read (current-buffer)))))
 	 source-images
-	 file)
+	 file
+	 note)
+    (when (setq title (assq 'title params))
+      (setq title (cdr title)))
+    (unless title
+      (setq title
+	    (file-name-nondirectory
+	     (substring url-dir 0 (1- (length url-dir))))))
     (when (setq source-images (assq 'files params))
       (setq source-images (cdr source-images)))
+    (when (setq note (assq 'note params))
+      (setq note (cdr note)))
     (when (setq parent-url (assq 'exit params))
       (setq parent-url (cdr parent-url)))
     (with-temp-buffer
@@ -112,6 +120,11 @@
 	(insert (format "<img alt=\"%s\" src=\"image.cgi?file=%s%s&size=thumbnail\">"
 			file url-dir file))
 	(insert "</a>\n"))
+
+      (when note
+	(insert "<p>")
+	(insert note))
+
       (insert "
 
 <hr>
@@ -357,7 +370,7 @@
     (setq command-line-args-left (cdr command-line-args-left))
     (setq image-root (or (car command-line-args-left)
 			 (expand-file-name
-			  "../data/photo/"
+			  www-image-default-base-directory
 			  default-directory)))
     (setq command-line-args-left (cdr command-line-args-left))
     (cond (file
-- 
1.7.10.4